all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* lisp-outline-level.
@ 2005-02-13 15:59 Lute Kamstra
  2005-02-13 16:37 ` lisp-outline-level David Kastrup
                   ` (2 more replies)
  0 siblings, 3 replies; 15+ messages in thread
From: Lute Kamstra @ 2005-02-13 15:59 UTC (permalink / raw)


In (Emacs) Lisp mode, outline-regexp is ";;;;* [^ \t\n]\\|(" and
outline-level is lisp-outline-level:

(defun lisp-outline-level ()
  "Lisp mode `outline-level' function."
  (if (looking-at "(\\|;;;###autoload")
      1000
    (looking-at outline-regexp)
    (- (match-end 0) (match-beginning 0))))

This is a bit strange as outline-regexp doesn't match
";;;###autoload".  Shall I commit the patch below?

Lute.


*** lisp/emacs-lisp/lisp-mode.el	1 Feb 2005 15:48:50 -0000	1.171
--- lisp/emacs-lisp/lisp-mode.el	13 Feb 2005 11:03:02 -0000
***************
*** 212,223 ****
  
  (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)))
      (define-key map "\t" 'lisp-indent-line)
--- 212,221 ----
  
  (defun lisp-outline-level ()
    "Lisp mode `outline-level' function."
!   (if (eq (following-char) ?\()
        1000
      (- (match-end 0) (match-beginning 0))))
  
  (defvar lisp-mode-shared-map
    (let ((map (make-sparse-keymap)))
      (define-key map "\t" 'lisp-indent-line)

^ permalink raw reply	[flat|nested] 15+ messages in thread

end of thread, other threads:[~2005-02-17 23:07 UTC | newest]

Thread overview: 15+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2005-02-13 15:59 lisp-outline-level Lute Kamstra
2005-02-13 16:37 ` lisp-outline-level David Kastrup
2005-02-13 17:06   ` lisp-outline-level Lute Kamstra
2005-02-13 17:37     ` lisp-outline-level David Kastrup
2005-02-13 18:13       ` lisp-outline-level Lute Kamstra
2005-02-13 16:56 ` lisp-outline-level Stefan Monnier
2005-02-13 17:35   ` lisp-outline-level Lute Kamstra
2005-02-13 17:48   ` lisp-outline-level David Kastrup
2005-02-13 18:23     ` lisp-outline-level Lute Kamstra
2005-02-13 19:01     ` lisp-outline-level Stefan Monnier
2005-02-15  6:19 ` lisp-outline-level Richard Stallman
2005-02-15  9:30   ` lisp-outline-level Lute Kamstra
2005-02-16  9:32     ` lisp-outline-level Richard Stallman
2005-02-16 10:47       ` lisp-outline-level Lute Kamstra
2005-02-17 23:07         ` lisp-outline-level Richard Stallman

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.