diff lisp/url/url-vars.el @ 54770:e8824c4f5f7e

Revision: [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-196 Remove RCS keywords 2004-04-10 Miles Bader <[e-mail]> RCS keyword removal (only non-comment changes are enumerated here): * lisp/emacs-lisp/bytecomp.el (byte-compile-version): Variable removed. (byte-compile-insert-header): Don't use `byte-compile-version'. * lisp/url/url-vars.el (url-version): Use the constant string "Emacs" instead of calculating something from the RCS `State' keyword [the latter is almost entirely useless anyway]. * lisp/forms.el (forms-version): Variable removed. (forms-mode): Don't use `forms-version'. * lisp/recentf.el (recentf-version): Variable removed. * lisp/progmodes/delphi.el (delphi-version): Variable removed. * lisp/progmodes/ada-mode.el (ada-mode): RCS keyword removed from docstring.

--- a/lisp/url/url-vars.el	Fri Apr 09 17:32:16 2004 +0000
+++ b/lisp/url/url-vars.el	Sat Apr 10 05:55:49 2004 +0000
@@ -1,7 +1,4 @@
 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
-;; Author: $Author: monnier $
-;; Created: $Date: 2004/04/04 01:21:46 $
-;; Version: $Revision: 1.1.1.1 $
 ;; Keywords: comm, data, processes, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -29,10 +26,7 @@
 (require 'mm-util)
 (eval-when-compile (require 'cl))
 
-(defconst url-version (let ((x "$State: Exp $"))
-			(if (string-match "State: \\([^ \t\n]+\\)" x)
-			    (substring x (match-beginning 1) (match-end 1))
-			  x))
+(defconst url-version "Emacs"
   "Version number of URL package.")
 
 (defgroup url nil