Function: antlr-c-init-language-vars

antlr-c-init-language-vars is a byte-compiled function defined in antlr-mode.el.gz.

Signature

(antlr-c-init-language-vars)

Documentation

Like c-init-language-vars-for when using cc-mode before v5.29.

Source Code

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

(defun antlr-c-init-language-vars ()
  "Like `c-init-language-vars-for' when using cc-mode before v5.29."
  (let ((settings			; (cdr '(setq...)) will be optimized
	 (if (eq antlr-language 'c++-mode)
	     (cdr '(setq		;' from `c++-mode' v5.20, v5.28
		    c-keywords (c-identifier-re c-C++-keywords)
		    c-conditional-key c-C++-conditional-key
		    c-comment-start-regexp c-C++-comment-start-regexp
		    c-class-key c-C++-class-key
		    c-extra-toplevel-key c-C++-extra-toplevel-key
		    c-access-key c-C++-access-key
		    c-recognize-knr-p nil
		    c-bitfield-key c-C-bitfield-key ; v5.28
		    ))
	   (cdr '(setq			; from `java-mode' v5.20, v5.28
		  c-keywords (c-identifier-re c-Java-keywords)
		  c-conditional-key c-Java-conditional-key
		  c-comment-start-regexp c-Java-comment-start-regexp
		  c-class-key c-Java-class-key
		  c-method-key nil
		  c-baseclass-key nil
		  c-recognize-knr-p nil
		  c-access-key c-Java-access-key ; v5.20
		  c-inexpr-class-key c-Java-inexpr-class-key ; v5.28
		  )))))
    (while settings
      (when (boundp (car settings))
	(ignore-errors
	  (set (car settings) (eval (cadr settings) t))))
      (setq settings (cddr settings)))))