Function: rx--translate-compat-form-entry

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

Signature

(rx--translate-compat-form-entry ORIG-FORM ENTRY)

Documentation

Translate a compatibility ORIG-FORM 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-form-entry (orig-form entry)
  "Translate a compatibility ORIG-FORM definition for ENTRY.
Return (REGEXP . PRECEDENCE) or nil if none."
  (and (progn
         (while (and entry (not (consp (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)
       (rx--translate-compat-form (cdr entry) orig-form)))