diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index 0a4b68a9cb3..d76c1105031 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -107,6 +107,7 @@ (defconst icalendar-version "0.19" "Version number of icalendar.el.") +(make-obsolete-variable 'icalendar-version nil "28.1") ;; ====================================================================== ;; Customizables diff --git a/lisp/dframe.el b/lisp/dframe.el index 2c421470a54..efe2bc57d93 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -7,6 +7,7 @@ (defvar dframe-version "1.3" "The current version of the dedicated frame library.") +(make-obsolete-variable 'dframe-version nil "28.1") ;; This file is part of GNU Emacs. diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 1df55e167a7..b5581aa3fbb 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -170,6 +170,7 @@ ;;; Code: (defvar checkdoc-version "0.6.2" "Release version of checkdoc you are currently running.") +(make-obsolete-variable 'checkdoc-version nil "28.1") (require 'cl-lib) (require 'help-mode) ;; for help-xref-info-regexp @@ -2642,7 +2643,7 @@ function called to create the messages." (goto-char (point-max)) (let ((inhibit-read-only t)) (insert "\n\n\C-l\n*** " label ": " - check-type " V " checkdoc-version))))) + check-type))))) (defun checkdoc-error (point msg) "Store POINT and MSG as errors in the checkdoc diagnostic buffer." diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 8dc18ebc85e..e70b44658d5 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -178,10 +178,8 @@ (defvar edt-user-global-map) (defvar rect-start-point) -;;; -;;; Version Information -;;; (defconst edt-version "4.0" "EDT Emulation version number.") +(make-obsolete-variable 'edt-version nil "28.1") ;;; ;;; User Configurable Variables diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 86f3d2a34bf..72e8cad9d62 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -30,12 +30,13 @@ ;;; Code: -;; FIXME? Are these still relevant? Nothing uses them AFAICS. (defconst mule-version "6.0 (HANACHIRUSATO)" "\ Version number and name of this version of MULE (multilingual environment).") +(make-obsolete-variable 'mule-version nil "28.1") (defconst mule-version-date "2003.9.1" "\ Distribution date of this version of MULE (multilingual environment).") +(make-obsolete-variable 'mule-version-date nil "28.1") ;;; CHARSET diff --git a/lisp/linum.el b/lisp/linum.el index 5efaafc9dc3..e8c364245ae 100644 --- a/lisp/linum.el +++ b/lisp/linum.el @@ -32,6 +32,7 @@ ;;; Code: (defconst linum-version "0.9x") +(make-obsolete-variable 'linum-version nil "28.1") (defvar linum-overlays nil "Overlays used in this buffer.") (defvar linum-available nil "Overlays available for reuse.") diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el index 6842cb06302..e5982573792 100644 --- a/lisp/play/bubbles.el +++ b/lisp/play/bubbles.el @@ -80,6 +80,7 @@ ;;; Code: (defconst bubbles-version "0.5" "Version number of bubbles.el.") +(make-obsolete-variable 'bubbles-version nil "28.1") (require 'gamegrid) diff --git a/lisp/speedbar.el b/lisp/speedbar.el index d8dccfac933..e9c15b71ce6 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -7,6 +7,7 @@ (defvar speedbar-version "1.0" "The current version of speedbar.") +(make-obsolete-variable 'speedbar-version nil "28.1") (defvar speedbar-incompatible-version "0.14beta4" "This version of speedbar is incompatible with this version. Due to massive API changes (removing the use of the word PATH) @@ -1078,7 +1079,7 @@ in the selected file. (setq font-lock-keywords nil) ;; no font-locking please (setq truncate-lines t) (make-local-variable 'frame-title-format) - (setq frame-title-format (concat "Speedbar " speedbar-version) + (setq frame-title-format "Speedbar" case-fold-search nil buffer-read-only t) (speedbar-set-mode-line-format) diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el index bc69ccea357..279dbb4450c 100644 --- a/lisp/textmodes/remember.el +++ b/lisp/textmodes/remember.el @@ -181,6 +181,7 @@ (defconst remember-version "2.0" "This version of remember.") +(make-obsolete-variable 'remember-version nil "28.1") (defgroup remember nil "A mode to remember information." diff --git a/lisp/url/url-about.el b/lisp/url/url-about.el index fd83ac34364..59c233b58cf 100644 --- a/lisp/url/url-about.el +++ b/lisp/url/url-about.el @@ -51,7 +51,7 @@ " Supported Protocols\n" " \n" " \n" - "

Supported Protocols - URL v" url-version "

\n" + "

Supported Protocols - URL package in Emacs " emacs-version "

\n" " \n" " \n" "
Protocol\n" diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 55953c83c04..669c24571f9 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -225,7 +225,7 @@ request.") (os-info (unless (and (listp url-privacy-level) (memq 'os url-privacy-level)) (format "(%s; %s)" url-system-type url-os-type))) - (url-info (format "URL/%s" url-version))) + (url-info (format "URL/Emacs"))) (string-join (delq nil (list package-info url-info emacs-info os-info)) " "))) diff --git a/lisp/url/url-news.el b/lisp/url/url-news.el index d47eb02db68..9ef17cccd77 100644 --- a/lisp/url/url-news.el +++ b/lisp/url/url-news.el @@ -75,7 +75,7 @@ " \n" " \n" "\n" - "\n" + "\n" ))) buf)) diff --git a/lisp/url/url-vars.el b/lisp/url/url-vars.el index 4e44eedb122..d9277cf6f42 100644 --- a/lisp/url/url-vars.el +++ b/lisp/url/url-vars.el @@ -24,6 +24,7 @@ (defconst url-version "Emacs" "Version number of URL package.") +(make-obsolete-variable 'url-version nil "28.1") (defgroup url nil "Uniform Resource Locator tool." diff --git a/lisp/woman.el b/lisp/woman.el index 51f189ae7b9..c0e27c57077 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -401,6 +401,7 @@ ;;; Code: (defvar woman-version "0.551 (beta)" "WoMan version information.") +(make-obsolete-variable 'woman-version nil "28.1") (require 'man) (require 'button) @@ -1830,7 +1831,6 @@ Argument EVENT is the invoking mouse event." ["Mini Help" woman-mini-help t] ,@(if (fboundp 'customize-group) '(["Customize..." (customize-group 'woman) t])) - ["Show Version" (message "WoMan %s" woman-version) t] "--" ("Advanced" ["View Source" (view-file woman-last-file-name) woman-last-file-name] @@ -1878,7 +1878,6 @@ Argument EVENT is the invoking mouse event." WoMan is an ELisp emulation of much of the functionality of the Emacs `man' command running the standard UN*X man and ?roff programs. WoMan author: F.J.Wright@Maths.QMW.ac.uk -WoMan version: see `woman-version'. See `Man-mode' for additional details. \\{woman-mode-map}" (let ((Man-build-page-list (symbol-function 'Man-build-page-list))