diff options
| author | Dave Love | 2003-09-10 17:53:26 +0000 |
|---|---|---|
| committer | Dave Love | 2003-09-10 17:53:26 +0000 |
| commit | 93fd8eebcc43afc1879fbe2b6a08ae88f5e4e12a (patch) | |
| tree | b784a1fff75de3b54c568c62f1d355e01c3ce47e | |
| parent | fbd12f5147ba76c538f1f15433ba7088d7411a7d (diff) | |
| download | emacs-93fd8eebcc43afc1879fbe2b6a08ae88f5e4e12a.tar.gz emacs-93fd8eebcc43afc1879fbe2b6a08ae88f5e4e12a.zip | |
(generic-mode-set-comments): Use characterp.
| -rw-r--r-- | lisp/generic.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/generic.el b/lisp/generic.el index 7f2051329c9..80885915e70 100644 --- a/lisp/generic.el +++ b/lisp/generic.el | |||
| @@ -297,8 +297,8 @@ Some generic modes are defined in `generic-x.el'." | |||
| 297 | (when (consp start) | 297 | (when (consp start) |
| 298 | (setq end (or (cdr start) end)) | 298 | (setq end (or (cdr start) end)) |
| 299 | (setq start (car start))) | 299 | (setq start (car start))) |
| 300 | (when (char-valid-p start) (setq start (char-to-string start))) | 300 | (when (characterp start) (setq start (char-to-string start))) |
| 301 | (when (char-valid-p end) (setq end (char-to-string end))) | 301 | (when (characterp end) (setq end (char-to-string end))) |
| 302 | 302 | ||
| 303 | ;; Setup the vars for `comment-region' | 303 | ;; Setup the vars for `comment-region' |
| 304 | (if comment-start | 304 | (if comment-start |