mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(comment-normalize-vars): Use " \t" rather than

Browse Source 
"\\s-" when defining comment-end-skip.
This commit is contained in:
Stefan Monnier 2001-09-27 21:13:44 +00:00
parent 8f80abd820
commit 37dbd369b5
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,10 +1,15 @@
2001-09-27 Stefan Monnier <monnier@cs.yale.edu>
* newcomment.el (comment-normalize-vars): Use " \t" rather than
"\\s-" when defining comment-end-skip.
2001-09-27 Gerd Moellmann <gerd@gnu.org>
* mail/feedmail.el (feedmail-queue-send-edit-prompt-help):
* mail/feedmail.el (feedmail-queue-send-edit-prompt-help):
Call get-buffer-window first second arg `visible'.
* international/mule-diag.el (list-input-methods-1): Output
something that's independent of Emacs' version.
* international/mule-diag.el (list-input-methods-1):
Output something that's independent of Emacs' version.
* tar-mode.el (tar-mode-write-file): Don't signal an error by
calling byte-to-position with a nil tar-header-offset.

6
lisp/newcomment.el
View File

@ -5,7 +5,7 @@
;; Author: code extracted from Emacs-20's simple.el
;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: comment uncomment
;; Revision: $Id: newcomment.el,v 1.33 2001/09/01 21:19:45 monnier Exp $
;; Revision: $Id: newcomment.el,v 1.34 2001/09/01 21:23:17 monnier Exp $
;; This file is part of GNU Emacs.
@ -241,7 +241,9 @@ This is obsolete because you might as well use \\[newline-and-indent]."
(let ((ce (if (string= "" comment-end) "\n"
(comment-string-strip comment-end t t))))
(set (make-local-variable 'comment-end-skip)
(concat "\\s-*\\(\\s>" (if comment-quote-nested "" "+")
;; We use [ \t] rather than \s- because we don't want to
;; remove ^L in C mode when uncommenting.
(concat "[ \t]*\\(\\s>" (if comment-quote-nested "" "+")
"\\|" (regexp-quote (substring ce 0 1))
(if (and comment-quote-nested (<= (length ce) 1)) "" "+")
(regexp-quote (substring ce 1))