# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867031786 0
# Node ID c3b46f285d54776c584aa3dfc7a8965683b3cc56
# Parent  16de434b80262d9eaf943292205998aac35776d7
(lm-version, lm-last-modified-date):
Clean up strings that looked like RCS headers.

diff -r 16de434b8026 -r c3b46f285d54 lisp/emacs-lisp/lisp-mnt.el
--- 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