(char-ideographic-radical): Renamed from `char-ideograph-radical'.

[chise/xemacs-chise.git] / lisp / files.el

diff --git a/lisp/files.el b/lisp/files.el
index 93a0c36..6712bf6 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1545,7 +1545,7 @@ for current buffer."
        (cond ((not (search-forward "-*-" end t))
               ;; doesn't have one.
               (setq force t))
-             ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)")
+             ((looking-at "[ \t]*\\([^ \t\n\r:;]+?\\)\\([ \t]*-\\*-\\)")
               ;; Antiquated form: "-*- ModeName -*-".
               (setq result
                     (list (cons 'mode