diff options
| author | Stefan Monnier | 2001-03-29 14:16:37 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-03-29 14:16:37 +0000 |
| commit | 1ac1fa962672bdf6c47d1d59812cd49da554f6e7 (patch) | |
| tree | 725d5640cefa41450eb30860f7fc3b9ba84d8229 | |
| parent | e2b8a8307614d0b603bbf98beed3b154e67a95c4 (diff) | |
| download | emacs-1ac1fa962672bdf6c47d1d59812cd49da554f6e7.tar.gz emacs-1ac1fa962672bdf6c47d1d59812cd49da554f6e7.zip | |
(generic-mode-set-comments): Use "" rather than nil for comment-end.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/generic.el | 2 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6801e15190c..24db082e6e9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,12 @@ | |||
| 1 | 2001-03-29 Stefan Monnier <monnier@cs.yale.edu> | ||
| 2 | |||
| 3 | * generic.el (generic-mode-set-comments): Use "" rather than nil | ||
| 4 | for comment-end. | ||
| 5 | |||
| 1 | 2001-03-29 Gerd Moellmann <gerd@gnu.org> | 6 | 2001-03-29 Gerd Moellmann <gerd@gnu.org> |
| 2 | 7 | ||
| 3 | * emacs-lisp/advice.el (ad-make-advised-definition): Call | 8 | * emacs-lisp/advice.el (ad-make-advised-definition): |
| 4 | interactive-form to obtain the interactive spec of subrs. | 9 | Call interactive-form to obtain the interactive spec of subrs. |
| 5 | 10 | ||
| 6 | * subr.el (interactive-form): New function. | 11 | * subr.el (interactive-form): New function. |
| 7 | 12 | ||
diff --git a/lisp/generic.el b/lisp/generic.el index 97eb131346e..fd2ac80afa0 100644 --- a/lisp/generic.el +++ b/lisp/generic.el | |||
| @@ -309,7 +309,7 @@ Some generic modes are defined in `generic-x.el'." | |||
| 309 | (concat comment-start-skip "\\|" (regexp-quote start) "+\\s-*"))) | 309 | (concat comment-start-skip "\\|" (regexp-quote start) "+\\s-*"))) |
| 310 | ;; First comment-style | 310 | ;; First comment-style |
| 311 | (setq comment-start start) | 311 | (setq comment-start start) |
| 312 | (setq comment-end (unless (string-equal end "\n") end)) | 312 | (setq comment-end (if (string-equal end "\n") "" end)) |
| 313 | (setq comment-start-skip (concat (regexp-quote start) "+\\s-*"))) | 313 | (setq comment-start-skip (concat (regexp-quote start) "+\\s-*"))) |
| 314 | 314 | ||
| 315 | ;; Reuse comstyles if necessary | 315 | ;; Reuse comstyles if necessary |