* lisp/newcomment.el (comment-normalize-vars): Better test validity of

comment-end-skip.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a411d7e9c7212674c1ce0877da71e7e8e5531b13..e69a658cfa66248c79678f2aab3941219295f90c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * newcomment.el (comment-normalize-vars): Better test validity of
+       comment-end-skip.
+
 2010-09-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/float-sup.el (float-pi): New name for `pi'.

diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 5d2da4673473745367fe71e6d147a52da476ac6e..1e40317c9a148e1f5e038ee0cfef739301c33f94 100644 (file)
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -318,7 +318,8 @@ the variables are properly set."
                   "+\\)[ \t]*")))
     (unless (and comment-end-skip
                 ;; In case comment-end has changed since last time.
-                (string-match comment-end-skip comment-end))
+                (string-match comment-end-skip
+                               (if (string= "" comment-end) "\n" comment-end)))
       (let ((ce (if (string= "" comment-end) "\n"
                  (comment-string-strip comment-end t t))))
        (set (make-local-variable 'comment-end-skip)