From: Peter Seibel <peter@javamonkey.com>
Subject: Small patch for lisp-fill-paragraph
Date: Tue, 21 Sep 2004 20:45:36 -0700 [thread overview]
Message-ID: <m3ekkvhspr.fsf@javamonkey.com> (raw)
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
reply other threads:[~2004-09-22 3:45 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3ekkvhspr.fsf@javamonkey.com \
--to=peter@javamonkey.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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.