diff options
| author | Stefan Kangas | 2020-03-21 02:47:08 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2020-03-21 02:49:25 +0100 |
| commit | c1772ce296ae9421412b4bc4a904ef51db49376a (patch) | |
| tree | 5a50aa631025aa6c3b27ce594a0a03e3f57c10ee | |
| parent | 84548f8dc702ad967e23439d058376c19fea51f8 (diff) | |
| download | emacs-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.el | 1 | ||||
| -rw-r--r-- | lisp/dframe.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 3 | ||||
| -rw-r--r-- | lisp/emulation/edt.el | 4 | ||||
| -rw-r--r-- | lisp/international/mule.el | 3 | ||||
| -rw-r--r-- | lisp/linum.el | 1 | ||||
| -rw-r--r-- | lisp/play/bubbles.el | 1 | ||||
| -rw-r--r-- | lisp/speedbar.el | 3 | ||||
| -rw-r--r-- | lisp/textmodes/remember.el | 1 | ||||
| -rw-r--r-- | lisp/url/url-about.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-news.el | 2 | ||||
| -rw-r--r-- | lisp/url/url-vars.el | 1 | ||||
| -rw-r--r-- | lisp/woman.el | 3 |
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)" "\ |
| 35 | Version number and name of this version of MULE (multilingual environment).") | 34 | Version 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" "\ |
| 38 | Distribution date of this version of MULE (multilingual environment).") | 38 | Distribution 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. |
| 12 | Due to massive API changes (removing the use of the word PATH) | 13 | Due 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." | |||
| 1878 | WoMan is an ELisp emulation of much of the functionality of the Emacs | 1878 | WoMan 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. |
| 1880 | WoMan author: F.J.Wright@Maths.QMW.ac.uk | 1880 | WoMan author: F.J.Wright@Maths.QMW.ac.uk |
| 1881 | WoMan version: see `woman-version'. | ||
| 1882 | See `Man-mode' for additional details. | 1881 | See `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)) |