Function: defconst-mode-local

defconst-mode-local is a macro defined in mode-local.el.gz.

Signature

(defconst-mode-local MODE SYM VAL &optional DOCSTRING)

Documentation

Define MODE local constant SYM with value VAL.

DOCSTRING is optional.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/mode-local.el.gz
(defmacro defconst-mode-local (mode sym val &optional docstring)
  "Define MODE local constant SYM with value VAL.
DOCSTRING is optional."
  (declare (indent defun) (debug defvar-mode-local))
  (let ((tmp (make-symbol "tmp")))
    `(let (,tmp)
       (setq-mode-local ,mode ,sym ,val)
       (setq ,tmp (mode-local-symbol ',sym ',mode))
       (put ,tmp 'constant-flag t)
       (put ,tmp 'variable-documentation ,docstring)
       ',sym)))