Function: antlr-set-local-variables

antlr-set-local-variables is a byte-compiled function defined in antlr-mode.el.gz.

Signature

(antlr-set-local-variables SELECTOR-SYMBOL SELECTOR VARIABLES)

Documentation

Set SELECTOR dependent local variables for VARIABLES.

Also set SELECTOR-SYMBOL to SELECTOR. See antlr-tool-version-variables and antlr-language-variables.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/antlr-mode.el.gz
(defun antlr-set-local-variables (selector-symbol selector variables)
  ;; checkdoc-order: nil
  "Set SELECTOR dependent local variables for VARIABLES.
Also set SELECTOR-SYMBOL to SELECTOR.
See `antlr-tool-version-variables' and `antlr-language-variables'."
  (unless (symbolp selector)
    (error "Illegal selector %s" selector))
  (let ((required t) (prefix (symbol-name selector)))
    (dolist (var variables)
      (if (eq var '&optional)
          (setq required nil)
        (let ((name (symbol-name var)))
          (unless (and (string-match "\\`antlr-" name) (boundp var))
            (error "Illegal element %s" var))
          (let ((valsym (intern (concat prefix (substring name 5)))))
            (when (or (boundp valsym) required)
              (set (make-local-variable var) (symbol-value valsym)))))))
    (set (make-local-variable selector-symbol) selector)
    nil))