Function: antlr-guess-language

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

Signature

(antlr-guess-language)

Documentation

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

If not found, use the default, which is the first element.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/antlr-mode.el.gz
;;;===========================================================================
;;;  Mode entry
;;;===========================================================================

(defun antlr-guess-language ()
  "Find language in `antlr-language-list' for language option.
If not found, use the default, which is the first element."
  ;; TODO: think about save-restriction & widen
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward (cdr antlr-language-limit-n-regexp)
                             (+ (point)
                                (car antlr-language-limit-n-regexp))
                             t)
      (car (cl-find (match-string-no-properties 1) antlr-language-list
                    :key #'cdr :test #'member)))))