Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-28

[gnu-emacs] / lisp / generic.el

diff --git a/lisp/generic.el b/lisp/generic.el
index 9545b0970accf54d9b0a71d09ddae64280d0d35f..556cb598f1907ab3573f49433cf616d2224904d9 100644 (file)
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -294,9 +294,9 @@ Some generic modes are defined in `generic-x.el'."
        (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 (characterp start) (setq start (char-to-string start)))
        (cond
-        ((char-valid-p end)   (setq end (char-to-string end)))
+        ((characterp end)   (setq end (char-to-string end)))
         ((zerop (length end)) (setq end "\n")))
 
        ;; Setup the vars for `comment-region'