/[emacs]/emacs/lisp/emacs-lisp/lisp-mode.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/lisp-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.171 by ttn, Tue Feb 1 15:48:50 2005 UTC revision 1.172 by lute, Tue Feb 15 09:19:32 2005 UTC
# Line 182  Line 182 
182    (make-local-variable 'parse-sexp-ignore-comments)    (make-local-variable 'parse-sexp-ignore-comments)
183    (setq parse-sexp-ignore-comments t)    (setq parse-sexp-ignore-comments t)
184    (make-local-variable 'outline-regexp)    (make-local-variable 'outline-regexp)
185    (setq outline-regexp ";;;;* [^ \t\n]\\|(")    (setq outline-regexp ";;;\\(;* [^ \t\n]\\|###autoload\\)\\|(")
186    (make-local-variable 'outline-level)    (make-local-variable 'outline-level)
187    (setq outline-level 'lisp-outline-level)    (setq outline-level 'lisp-outline-level)
188    (make-local-variable 'comment-start)    (make-local-variable 'comment-start)
# Line 212  Line 212 
212    
213  (defun lisp-outline-level ()  (defun lisp-outline-level ()
214    "Lisp mode `outline-level' function."    "Lisp mode `outline-level' function."
215    (if (looking-at "(\\|;;;###autoload")    (let ((len (- (match-end 0) (match-beginning 0))))
216        1000      (if (looking-at "(\\|;;;###autoload")
217      (looking-at outline-regexp)          1000
218      (- (match-end 0) (match-beginning 0))))        len)))
   
219    
220  (defvar lisp-mode-shared-map  (defvar lisp-mode-shared-map
221    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))

Legend:
Removed from v.1.171  
changed lines
  Added in v.1.172

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26