diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-09-27 21:13:44 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-09-27 21:13:44 +0000 |
| commit | 37dbd369b5c3e08c3746b2643a9314bdbba20a48 (patch) | |
| tree | d78a2d8d55b64f99691796c7f9d05da2f0bdfccf /lisp/newcomment.el | |
| parent | 8f80abd820d016a1e866841dee2a97185f6c59f0 (diff) | |
| download | emacs-37dbd369b5c3e08c3746b2643a9314bdbba20a48.tar.gz | |
(comment-normalize-vars): Use " \t" rather than
"\\s-" when defining comment-end-skip.
Diffstat (limited to 'lisp/newcomment.el')
| -rw-r--r-- | lisp/newcomment.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 2a889e6a632..0ed7bb412a9 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -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)) |