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.
This commit is contained in:
parent
84548f8dc7
commit
c1772ce296
14 changed files with 17 additions and 11 deletions
|
@ -107,6 +107,7 @@
|
|||
|
||||
(defconst icalendar-version "0.19"
|
||||
"Version number of icalendar.el.")
|
||||
(make-obsolete-variable 'icalendar-version nil "28.1")
|
||||
|
||||
;; ======================================================================
|
||||
;; Customizables
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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.")
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -51,7 +51,7 @@
|
|||
" <title>Supported Protocols</title>\n"
|
||||
" </head>\n"
|
||||
" <body>\n"
|
||||
" <h1>Supported Protocols - URL v" url-version "</h1>\n"
|
||||
" <h1>Supported Protocols - URL package in Emacs " emacs-version "</h1>\n"
|
||||
" <table width='100%' border='1'>\n"
|
||||
" <tr>\n"
|
||||
" <td>Protocol\n"
|
||||
|
|
|
@ -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))
|
||||
" ")))
|
||||
|
|
|
@ -75,7 +75,7 @@
|
|||
" </div>\n"
|
||||
" </body>\n"
|
||||
"</html>\n"
|
||||
"<!-- Automatically generated by URL v" url-version " -->\n"
|
||||
"<!-- Automatically generated by URL in Emacs " emacs-version " -->\n"
|
||||
)))
|
||||
buf))
|
||||
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue