Function: antlr-language-option

antlr-language-option is a byte-compiled function defined in antlr-mode.el.gz.

Signature

(antlr-language-option SEARCH)

Documentation

Find language in antlr-language-alist for language option.

If SEARCH is non-nil, find element for language option. Otherwise, find the default language.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/antlr-mode.el.gz
(defun antlr-language-option (search)
  "Find language in `antlr-language-alist' for language option.
If SEARCH is non-nil, find element for language option.  Otherwise, find
the default language."
  (let ((value
         (and search
              (save-excursion
                (goto-char (point-min))
                (re-search-forward (cdr antlr-language-limit-n-regexp)
                                   (+ (point)
                                      (car antlr-language-limit-n-regexp))
                                   t))
              (match-string 1)))
	(seq antlr-language-alist)
	r)
    ;; Like (find VALUE antlr-language-alist :key 'cddr :test 'member)
    (while seq
      (setq r (pop seq))
      (if (member value (cddr r))
	  (setq seq nil)		; stop
	(setq r nil)))			; no result yet
    (car r)))