Small patch for lisp-fill-paragraph

Small patch for lisp-fill-paragraph

[Peter Seibel]

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  <peter@javamonkey.com>
+ 
+ 	* 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  <handa@m17n.org>
  
  	* 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                                      peter@javamonkey.com

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