(generic-mode-set-comments): Accept an empty comment-end.

2 files changed, 16 insertions, 12 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad0a8a1bb72..d2254e1c196 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,12 @@
+2004-11-24  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * generic.el (generic-mode-set-comments): Accept an empty comment-end.
+
 2004-11-24  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gdb-ui.el (dedicated-switch-to-buffer): New function.
-        (gdb-ann3, gdb-setup-windows, gdb-restore-windows): Dedicate
-        gdb-related windows.
+        (gdb-ann3, gdb-setup-windows, gdb-restore-windows):
+        Dedicate gdb-related windows.
         (gdb-display-buffer): Dedicate gdb-related windows. Don't grab
         other frames.
         (gdb-reset): Remove dedicated property after debugging.
@@ -48,20 +52,19 @@
         (math-comp-simplify, math-comp-simplify-term)
         (math-comp-add-string, math-comp-add-string-sel):
         Replace variables comp-highlight, comp-buf, comp-base,
-        comp-height, comp-tag, comp-hpos and comp-vpos by declared
-        variables.
+        comp-height, comp-tag, comp-hpos and comp-vpos by declared variables.
 
 2004-11-23  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
-        * cus-start.el (all): Added x-use-old-gtk-file-dialog.
+        * cus-start.el (all): Add x-use-old-gtk-file-dialog.
 
         * mail/emacsbug.el (report-emacs-bug): Catch error that x-server-vendor
         and x-server-version may throw.
 
 2004-11-23  Kim F. Storm  <storm@cua.dk>
 
-        * subr.el (substitute-key-definition-key): Optimize.  Don't
-        call indirect-function for nil defn (always signals error).
+        * subr.el (substitute-key-definition-key): Optimize.
+        Don't call indirect-function for nil defn (always signals error).
 
         * ido.el (ido-read-internal): Fix require-match check when
         ido-directory-too-big is set.
@@ -71,8 +74,7 @@
         * calc/calc-ext.el (math-read-replacement-list)
         (math-read-superscripts): New variables.
         (math-read-preprocess-string): New function.
-        (math-read-expr): Filter input through
-        math-read-preprocess-string.
+        (math-read-expr): Filter input through math-read-preprocess-string.
 
         * calc/calc-aent.el (math-read-exprs): Filter input through
         math-read-preprocess-string.
diff --git a/lisp/generic.el b/lisp/generic.el
index 57937be6c0b..b246cd48d4a 100644
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -289,13 +289,15 @@ Some generic modes are defined in `generic-x.el'."
 
     ;; Go through all the comments
     (dolist (start comment-list)
-      (let ((end ?\n) (comstyle ""))
+      (let ((end nil) (comstyle ""))
         ;; Normalize
         (when (consp start)
           (setq end (or (cdr start) end))
           (setq start (car start)))
         (when (char-valid-p start) (setq start (char-to-string start)))
-        (when (char-valid-p end)   (setq end (char-to-string end)))
+        (cond
+         ((char-valid-p end)   (setq end (char-to-string end)))
+         ((zerop (length end)) (setq end "\n")))
 
         ;; Setup the vars for `comment-region'
         (if comment-start
@@ -414,5 +416,5 @@ The regexp is highlighted with FACE."
 
 (provide 'generic)
 
-;;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea
+;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea
 ;;; generic.el ends here