aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2020-03-21 02:47:08 +0100
committerStefan Kangas2020-03-21 02:49:25 +0100
commitc1772ce296ae9421412b4bc4a904ef51db49376a (patch)
tree5a50aa631025aa6c3b27ce594a0a03e3f57c10ee
parent84548f8dc702ad967e23439d058376c19fea51f8 (diff)
downloademacs-c1772ce296ae9421412b4bc4a904ef51db49376a.tar.gz
emacs-c1772ce296ae9421412b4bc4a904ef51db49376a.zip
Declare some <package>-version variables obsolete
These are not used for anything these days and can therefore be removed. Package developers should check the Emacs version instead. Ref: https://lists.gnu.org/r/emacs-devel/2020-03/msg00080.html * lisp/calendar/icalendar.el (icalendar-version): * lisp/dframe.el (dframe-version): * lisp/emacs-lisp/checkdoc.el (checkdoc-version): * lisp/emulation/edt.el (edt-version): * lisp/international/mule.el (mule-version) (mule-version-date): * lisp/linum.el (linum-version): * lisp/play/bubbles.el (bubbles-version): * lisp/speedbar.el (speedbar-version): * lisp/textmodes/remember.el (remember-version): * lisp/url/url-vars.el (url-version): * lisp/woman.el (woman-version): Declare obsolete. * lisp/emacs-lisp/checkdoc.el (checkdoc-start-section): * lisp/speedbar.el (speedbar-mode): * lisp/url/url-about.el (url-about-protocols): * lisp/url/url-http.el (url-http--user-agent-default-string): * lisp/url/url-news.el (url-news-fetch-message-id): * lisp/woman.el (woman-menu, woman-mode): Stop using variables declared obsolete above.
-rw-r--r--lisp/calendar/icalendar.el1
-rw-r--r--lisp/dframe.el1
-rw-r--r--lisp/emacs-lisp/checkdoc.el3
-rw-r--r--lisp/emulation/edt.el4
-rw-r--r--lisp/international/mule.el3
-rw-r--r--lisp/linum.el1
-rw-r--r--lisp/play/bubbles.el1
-rw-r--r--lisp/speedbar.el3
-rw-r--r--lisp/textmodes/remember.el1
-rw-r--r--lisp/url/url-about.el2
-rw-r--r--lisp/url/url-http.el2
-rw-r--r--lisp/url/url-news.el2
-rw-r--r--lisp/url/url-vars.el1
-rw-r--r--lisp/woman.el3
14 files changed, 17 insertions, 11 deletions
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 @@
107 107
108(defconst icalendar-version "0.19" 108(defconst icalendar-version "0.19"
109 "Version number of icalendar.el.") 109 "Version number of icalendar.el.")
110(make-obsolete-variable 'icalendar-version nil "28.1")
110 111
111;; ====================================================================== 112;; ======================================================================
112;; Customizables 113;; 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 @@
7 7
8(defvar dframe-version "1.3" 8(defvar dframe-version "1.3"
9 "The current version of the dedicated frame library.") 9 "The current version of the dedicated frame library.")
10(make-obsolete-variable 'dframe-version nil "28.1")
10 11
11;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
12 13
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 @@
170;;; Code: 170;;; Code:
171(defvar checkdoc-version "0.6.2" 171(defvar checkdoc-version "0.6.2"
172 "Release version of checkdoc you are currently running.") 172 "Release version of checkdoc you are currently running.")
173(make-obsolete-variable 'checkdoc-version nil "28.1")
173 174
174(require 'cl-lib) 175(require 'cl-lib)
175(require 'help-mode) ;; for help-xref-info-regexp 176(require 'help-mode) ;; for help-xref-info-regexp
@@ -2642,7 +2643,7 @@ function called to create the messages."
2642 (goto-char (point-max)) 2643 (goto-char (point-max))
2643 (let ((inhibit-read-only t)) 2644 (let ((inhibit-read-only t))
2644 (insert "\n\n\C-l\n*** " label ": " 2645 (insert "\n\n\C-l\n*** " label ": "
2645 check-type " V " checkdoc-version))))) 2646 check-type)))))
2646 2647
2647(defun checkdoc-error (point msg) 2648(defun checkdoc-error (point msg)
2648 "Store POINT and MSG as errors in the checkdoc diagnostic buffer." 2649 "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 @@
178(defvar edt-user-global-map) 178(defvar edt-user-global-map)
179(defvar rect-start-point) 179(defvar rect-start-point)
180 180
181;;;
182;;; Version Information
183;;;
184(defconst edt-version "4.0" "EDT Emulation version number.") 181(defconst edt-version "4.0" "EDT Emulation version number.")
182(make-obsolete-variable 'edt-version nil "28.1")
185 183
186;;; 184;;;
187;;; User Configurable Variables 185;;; 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 @@
30 30
31;;; Code: 31;;; Code:
32 32
33;; FIXME? Are these still relevant? Nothing uses them AFAICS.
34(defconst mule-version "6.0 (HANACHIRUSATO)" "\ 33(defconst mule-version "6.0 (HANACHIRUSATO)" "\
35Version number and name of this version of MULE (multilingual environment).") 34Version number and name of this version of MULE (multilingual environment).")
35(make-obsolete-variable 'mule-version nil "28.1")
36 36
37(defconst mule-version-date "2003.9.1" "\ 37(defconst mule-version-date "2003.9.1" "\
38Distribution date of this version of MULE (multilingual environment).") 38Distribution date of this version of MULE (multilingual environment).")
39(make-obsolete-variable 'mule-version-date nil "28.1")
39 40
40 41
41;;; CHARSET 42;;; 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 @@
32;;; Code: 32;;; Code:
33 33
34(defconst linum-version "0.9x") 34(defconst linum-version "0.9x")
35(make-obsolete-variable 'linum-version nil "28.1")
35 36
36(defvar linum-overlays nil "Overlays used in this buffer.") 37(defvar linum-overlays nil "Overlays used in this buffer.")
37(defvar linum-available nil "Overlays available for reuse.") 38(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 @@
80;;; Code: 80;;; Code:
81 81
82(defconst bubbles-version "0.5" "Version number of bubbles.el.") 82(defconst bubbles-version "0.5" "Version number of bubbles.el.")
83(make-obsolete-variable 'bubbles-version nil "28.1")
83 84
84(require 'gamegrid) 85(require 'gamegrid)
85 86
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 @@
7 7
8(defvar speedbar-version "1.0" 8(defvar speedbar-version "1.0"
9 "The current version of speedbar.") 9 "The current version of speedbar.")
10(make-obsolete-variable 'speedbar-version nil "28.1")
10(defvar speedbar-incompatible-version "0.14beta4" 11(defvar speedbar-incompatible-version "0.14beta4"
11 "This version of speedbar is incompatible with this version. 12 "This version of speedbar is incompatible with this version.
12Due to massive API changes (removing the use of the word PATH) 13Due to massive API changes (removing the use of the word PATH)
@@ -1078,7 +1079,7 @@ in the selected file.
1078 (setq font-lock-keywords nil) ;; no font-locking please 1079 (setq font-lock-keywords nil) ;; no font-locking please
1079 (setq truncate-lines t) 1080 (setq truncate-lines t)
1080 (make-local-variable 'frame-title-format) 1081 (make-local-variable 'frame-title-format)
1081 (setq frame-title-format (concat "Speedbar " speedbar-version) 1082 (setq frame-title-format "Speedbar"
1082 case-fold-search nil 1083 case-fold-search nil
1083 buffer-read-only t) 1084 buffer-read-only t)
1084 (speedbar-set-mode-line-format) 1085 (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 @@
181 181
182(defconst remember-version "2.0" 182(defconst remember-version "2.0"
183 "This version of remember.") 183 "This version of remember.")
184(make-obsolete-variable 'remember-version nil "28.1")
184 185
185(defgroup remember nil 186(defgroup remember nil
186 "A mode to remember information." 187 "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 @@
51 " <title>Supported Protocols</title>\n" 51 " <title>Supported Protocols</title>\n"
52 " </head>\n" 52 " </head>\n"
53 " <body>\n" 53 " <body>\n"
54 " <h1>Supported Protocols - URL v" url-version "</h1>\n" 54 " <h1>Supported Protocols - URL package in Emacs " emacs-version "</h1>\n"
55 " <table width='100%' border='1'>\n" 55 " <table width='100%' border='1'>\n"
56 " <tr>\n" 56 " <tr>\n"
57 " <td>Protocol\n" 57 " <td>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.")
225 (os-info (unless (and (listp url-privacy-level) 225 (os-info (unless (and (listp url-privacy-level)
226 (memq 'os url-privacy-level)) 226 (memq 'os url-privacy-level))
227 (format "(%s; %s)" url-system-type url-os-type))) 227 (format "(%s; %s)" url-system-type url-os-type)))
228 (url-info (format "URL/%s" url-version))) 228 (url-info (format "URL/Emacs")))
229 (string-join (delq nil (list package-info url-info 229 (string-join (delq nil (list package-info url-info
230 emacs-info os-info)) 230 emacs-info os-info))
231 " "))) 231 " ")))
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 @@
75 " </div>\n" 75 " </div>\n"
76 " </body>\n" 76 " </body>\n"
77 "</html>\n" 77 "</html>\n"
78 "<!-- Automatically generated by URL v" url-version " -->\n" 78 "<!-- Automatically generated by URL in Emacs " emacs-version " -->\n"
79 ))) 79 )))
80 buf)) 80 buf))
81 81
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 @@
24 24
25(defconst url-version "Emacs" 25(defconst url-version "Emacs"
26 "Version number of URL package.") 26 "Version number of URL package.")
27(make-obsolete-variable 'url-version nil "28.1")
27 28
28(defgroup url nil 29(defgroup url nil
29 "Uniform Resource Locator tool." 30 "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 @@
401;;; Code: 401;;; Code:
402 402
403(defvar woman-version "0.551 (beta)" "WoMan version information.") 403(defvar woman-version "0.551 (beta)" "WoMan version information.")
404(make-obsolete-variable 'woman-version nil "28.1")
404 405
405(require 'man) 406(require 'man)
406(require 'button) 407(require 'button)
@@ -1830,7 +1831,6 @@ Argument EVENT is the invoking mouse event."
1830 ["Mini Help" woman-mini-help t] 1831 ["Mini Help" woman-mini-help t]
1831 ,@(if (fboundp 'customize-group) 1832 ,@(if (fboundp 'customize-group)
1832 '(["Customize..." (customize-group 'woman) t])) 1833 '(["Customize..." (customize-group 'woman) t]))
1833 ["Show Version" (message "WoMan %s" woman-version) t]
1834 "--" 1834 "--"
1835 ("Advanced" 1835 ("Advanced"
1836 ["View Source" (view-file woman-last-file-name) woman-last-file-name] 1836 ["View Source" (view-file woman-last-file-name) woman-last-file-name]
@@ -1878,7 +1878,6 @@ Argument EVENT is the invoking mouse event."
1878WoMan is an ELisp emulation of much of the functionality of the Emacs 1878WoMan is an ELisp emulation of much of the functionality of the Emacs
1879`man' command running the standard UN*X man and ?roff programs. 1879`man' command running the standard UN*X man and ?roff programs.
1880WoMan author: F.J.Wright@Maths.QMW.ac.uk 1880WoMan author: F.J.Wright@Maths.QMW.ac.uk
1881WoMan version: see `woman-version'.
1882See `Man-mode' for additional details. 1881See `Man-mode' for additional details.
1883\\{woman-mode-map}" 1882\\{woman-mode-map}"
1884 (let ((Man-build-page-list (symbol-function 'Man-build-page-list)) 1883 (let ((Man-build-page-list (symbol-function 'Man-build-page-list))