Fix RCS crashes in vc-test

[gnu-emacs] / lisp / emacs-lisp / lisp-mnt.el

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index fec172d05ca7a8bf0b6c56a731af520fb93f6836..104c23c210236e098e09ca403267bf7208d5ca7d 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -437,9 +437,9 @@ This can be found in an RCS or SCCS header."
           ((re-search-forward
             (concat
              "@(#)"
-             (if buffer-file-name
+              (if buffer-file-name
                   (regexp-quote (file-name-nondirectory buffer-file-name))
-                "[^\t\n]*")
+                "[^\t\n]+")
              "\t\\([012345679.]*\\)")
             header-max t)
            (match-string-no-properties 1)))))))