bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Small patch for lisp-fill-paragraph


From: Peter Seibel
Subject: Small patch for lisp-fill-paragraph
Date: Tue, 21 Sep 2004 20:45:36 -0700
User-agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3.50 (gnu/linux)

This patch keeps lisp-fill-paragraph from filling code like the
following:

  (defun foo (bar)
    "This is a doc string. Now is the time for all good men to come
    to the aid of their party."
    #'(lambda (a b) (stuff)))

like this:

  (defun foo (bar)
    "This is a doc string. Now is the time for all good men to come
    to the aid of their party." #'(lambda (a b) (stuff)))


-Peter


Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.6387
diff -c -r1.6387 ChangeLog
*** ChangeLog   21 Sep 2004 02:26:39 -0000      1.6387
--- ChangeLog   22 Sep 2004 03:44:29 -0000
***************
*** 1,3 ****
--- 1,8 ----
+ 2004-09-21  Peter Seibel  <address@hidden>
+ 
+       * emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Change
+       paragraph-start regexp so we don't fill code starting with #'(
+  
  2004-09-21  Kenichi Handa  <address@hidden>
  
        * descr-text.el (describe-char): Checking of quail activation
Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.165
diff -c -r1.165 lisp-mode.el
*** emacs-lisp/lisp-mode.el     8 Sep 2004 11:09:14 -0000       1.165
--- emacs-lisp/lisp-mode.el     22 Sep 2004 03:44:30 -0000
***************
*** 1182,1188 ****
        ;; The `fill-column' is temporarily bound to
        ;; `emacs-lisp-docstring-fill-column' if that value is an integer.
        (let ((paragraph-start (concat paragraph-start
!                                    "\\|\\s-*\\([\(;:\"]\\|`\(\\)"))
            (paragraph-separate
             (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
              (fill-column (if (integerp emacs-lisp-docstring-fill-column)
--- 1182,1188 ----
        ;; The `fill-column' is temporarily bound to
        ;; `emacs-lisp-docstring-fill-column' if that value is an integer.
        (let ((paragraph-start (concat paragraph-start
!                                    "\\|\\s-*\\([\(;:\"]\\|`\(\\|#'\(\\)"))
            (paragraph-separate
             (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
              (fill-column (if (integerp emacs-lisp-docstring-fill-column)


-- 
Peter Seibel                                      address@hidden

         Lisp is the red pill. -- John Fraser, comp.lang.lisp




reply via email to

[Prev in Thread] Current Thread [Next in Thread]