Mercurial > emacs
changeset 18401:c3b46f285d54
(lm-version, lm-last-modified-date):
Clean up strings that looked like RCS headers.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 23 Jun 1997 02:09:46 +0000 |
| parents | 16de434b8026 |
| children | 3718b01db9d0 |
| files | lisp/emacs-lisp/lisp-mnt.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el Mon Jun 23 02:07:09 1997 +0000 +++ b/lisp/emacs-lisp/lisp-mnt.el Mon Jun 23 02:09:46 1997 +0000 @@ -5,7 +5,6 @@ ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com> ;; Created: 14 Jul 1992 -;; Version: $Id: lisp-mnt.el,v 1.16 1996/02/06 21:35:20 erik Exp rms $ ;; Keywords: docs ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out! @@ -308,7 +307,7 @@ (if (progn (goto-char (point-min)) (re-search-forward - "\\$Id: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) " + "\\$[I]d: [^ ]+ [^ ]+ \\([^/]+\\)/\\([^/]+\\)/\\([^ ]+\\) " (lm-code-mark) t)) (format "%s %s %s" (buffer-substring (match-beginning 3) (match-end 3)) @@ -335,7 +334,7 @@ (goto-char (point-min)) (cond ;; Look for an RCS header - ((re-search-forward "\\$Id: [^ ]+ \\([^ ]+\\) " header-max t) + ((re-search-forward "\\$[I]d: [^ ]+ \\([^ ]+\\) " header-max t) (buffer-substring (match-beginning 1) (match-end 1))) ;; Look for an SCCS header