[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 <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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Small patch for lisp-fill-paragraph,
Peter Seibel <=