Function: rx--translate-compat-symbol-entry

rx--translate-compat-symbol-entry is a byte-compiled function defined in rx.el.gz.

Signature

(rx--translate-compat-symbol-entry ENTRY)

Documentation

Translate a compatibility symbol definition for ENTRY.

Return (REGEXP . PRECEDENCE) or nil if none.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/rx.el.gz
(defun rx--translate-compat-symbol-entry (entry)
  "Translate a compatibility symbol definition for ENTRY.
Return (REGEXP . PRECEDENCE) or nil if none."
  (and (progn
         (while (and entry (not (stringp (cdr entry))))
           (setq entry
                 (if (symbolp (cdr entry))
                     ;; Alias for another entry.
                     (assq (cdr entry) rx-constituents)
                   ;; Wrong type, try further down the list.
                   (assq (car entry)
                         (cdr (memq entry rx-constituents))))))
         entry)
       (cons (list (cdr entry)) nil)))