(generic-mode-set-comments): Use "" rather than nil for comment-end.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6801e15190c0ca23688bbd4a220d2fd03f75dbb0..24db082e6e9ea8a342e416d96784a0cc806ec639 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
+2001-03-29  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * generic.el (generic-mode-set-comments): Use "" rather than nil
+       for comment-end.
+
 2001-03-29  Gerd Moellmann  <gerd@gnu.org>
 
-       * emacs-lisp/advice.el (ad-make-advised-definition): Call
-       interactive-form to obtain the interactive spec of subrs.
+       * emacs-lisp/advice.el (ad-make-advised-definition):
+       Call interactive-form to obtain the interactive spec of subrs.
 
        * subr.el (interactive-form): New function.
 

diff --git a/lisp/generic.el b/lisp/generic.el
index 97eb131346e1c89db2043eafc50e2df0496ad6a4..fd2ac80afa0081a86a7353ba69daf030f50516f2 100644 (file)
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -309,7 +309,7 @@ Some generic modes are defined in `generic-x.el'."
                    (concat comment-start-skip "\\|" (regexp-quote start) "+\\s-*")))
          ;; First comment-style
          (setq comment-start start)
-         (setq comment-end (unless (string-equal end "\n") end))
+         (setq comment-end (if (string-equal end "\n") "" end))
          (setq comment-start-skip (concat (regexp-quote start) "+\\s-*")))
 
        ;; Reuse comstyles if necessary