Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 90105:7e3f621f1dd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-15 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-95 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-96 Move Gnus images into etc/images * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-97 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-105 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-14 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-15 Update from CVS: lisp/imap.el (imap-log): Doc fix. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-16 Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Fri, 18 Feb 2005 00:41:50 +0000
parents 72cf6261961e 65b1f2f4ce8f
children 13796b0653c7
comparison
equal deleted inserted replaced
90104:a01e7a9f1659 90105:7e3f621f1dd4
180 (make-local-variable 'indent-region-function) 180 (make-local-variable 'indent-region-function)
181 (setq indent-region-function 'lisp-indent-region) 181 (setq indent-region-function 'lisp-indent-region)
182 (make-local-variable 'parse-sexp-ignore-comments) 182 (make-local-variable 'parse-sexp-ignore-comments)
183 (setq parse-sexp-ignore-comments t) 183 (setq parse-sexp-ignore-comments t)
184 (make-local-variable 'outline-regexp) 184 (make-local-variable 'outline-regexp)
185 (setq outline-regexp ";;;;* [^ \t\n]\\|(") 185 (setq outline-regexp ";;;\\(;* [^ \t\n]\\|###autoload\\)\\|(")
186 (make-local-variable 'outline-level) 186 (make-local-variable 'outline-level)
187 (setq outline-level 'lisp-outline-level) 187 (setq outline-level 'lisp-outline-level)
188 (make-local-variable 'comment-start) 188 (make-local-variable 'comment-start)
189 (setq comment-start ";") 189 (setq comment-start ";")
190 (make-local-variable 'comment-start-skip) 190 (make-local-variable 'comment-start-skip)
210 (font-lock-syntactic-face-function 210 (font-lock-syntactic-face-function
211 . lisp-font-lock-syntactic-face-function)))) 211 . lisp-font-lock-syntactic-face-function))))
212 212
213 (defun lisp-outline-level () 213 (defun lisp-outline-level ()
214 "Lisp mode `outline-level' function." 214 "Lisp mode `outline-level' function."
215 (if (looking-at "(\\|;;;###autoload") 215 (let ((len (- (match-end 0) (match-beginning 0))))
216 1000 216 (if (looking-at "(\\|;;;###autoload")
217 (looking-at outline-regexp) 217 1000
218 (- (match-end 0) (match-beginning 0)))) 218 len)))
219
220 219
221 (defvar lisp-mode-shared-map 220 (defvar lisp-mode-shared-map
222 (let ((map (make-sparse-keymap))) 221 (let ((map (make-sparse-keymap)))
223 (define-key map "\t" 'lisp-indent-line) 222 (define-key map "\t" 'lisp-indent-line)
224 (define-key map "\e\C-q" 'indent-sexp) 223 (define-key map "\e\C-q" 'indent-sexp)