Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 103331:35fd76739f2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-mode-variables): Fix doc-string.
author Martin Rudalics <rudalics@gmx.at>
date Sun, 07 Jun 2009 07:21:23 +0000
parents 3193dcef2e7b
children 247269056555
comparison
equal deleted inserted replaced
103330:b4cfe4e41fff 103331:35fd76739f2f
195 font-lock-comment-face)) 195 font-lock-comment-face))
196 196
197 (defun lisp-mode-variables (&optional lisp-syntax keywords-case-insensitive) 197 (defun lisp-mode-variables (&optional lisp-syntax keywords-case-insensitive)
198 "Common initialization routine for lisp modes. 198 "Common initialization routine for lisp modes.
199 The LISP-SYNTAX argument is used by code in inf-lisp.el and is 199 The LISP-SYNTAX argument is used by code in inf-lisp.el and is
200 (uselessly) passed from pp.el, chistory.el, gnus-kill.el and score-mode.el 200 \(uselessly) passed from pp.el, chistory.el, gnus-kill.el and
201 KEYWORDS-CASE-INSENSITIVE means that for font-lock keywords will not 201 score-mode.el. KEYWORDS-CASE-INSENSITIVE non-nil means that for
202 be case sensitive." 202 font-lock keywords will not be case sensitive."
203 (when lisp-syntax 203 (when lisp-syntax
204 (set-syntax-table lisp-mode-syntax-table)) 204 (set-syntax-table lisp-mode-syntax-table))
205 (setq local-abbrev-table lisp-mode-abbrev-table) 205 (setq local-abbrev-table lisp-mode-abbrev-table)
206 (make-local-variable 'paragraph-ignore-fill-prefix) 206 (make-local-variable 'paragraph-ignore-fill-prefix)
207 (setq paragraph-ignore-fill-prefix t) 207 (setq paragraph-ignore-fill-prefix t)