[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[Lute Kamstra]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.171 
emacs/lisp/emacs-lisp/lisp-mode.el:1.172
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.171    Tue Feb  1 15:48:50 2005
--- emacs/lisp/emacs-lisp/lisp-mode.el  Tue Feb 15 09:19:32 2005
***************
*** 182,188 ****
    (make-local-variable 'parse-sexp-ignore-comments)
    (setq parse-sexp-ignore-comments t)
    (make-local-variable 'outline-regexp)
!   (setq outline-regexp ";;;;* [^ \t\n]\\|(")
    (make-local-variable 'outline-level)
    (setq outline-level 'lisp-outline-level)
    (make-local-variable 'comment-start)
--- 182,188 ----
    (make-local-variable 'parse-sexp-ignore-comments)
    (setq parse-sexp-ignore-comments t)
    (make-local-variable 'outline-regexp)
!   (setq outline-regexp ";;;\\(;* [^ \t\n]\\|###autoload\\)\\|(")
    (make-local-variable 'outline-level)
    (setq outline-level 'lisp-outline-level)
    (make-local-variable 'comment-start)
***************
*** 212,222 ****
  
  (defun lisp-outline-level ()
    "Lisp mode `outline-level' function."
!   (if (looking-at "(\\|;;;###autoload")
!       1000
!     (looking-at outline-regexp)
!     (- (match-end 0) (match-beginning 0))))
! 
  
  (defvar lisp-mode-shared-map
    (let ((map (make-sparse-keymap)))
--- 212,221 ----
  
  (defun lisp-outline-level ()
    "Lisp mode `outline-level' function."
!   (let ((len (- (match-end 0) (match-beginning 0))))
!     (if (looking-at "(\\|;;;###autoload")
!       1000
!       len)))
  
  (defvar lisp-mode-shared-map
    (let ((map (make-sparse-keymap)))