Use emacs-version instead of obsolete version variables

* 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):
* lisp/linum.el (linum-version):
* lisp/play/bubbles.el (bubbles-version):
* lisp/textmodes/remember.el (remember-version):
* lisp/url/url-vars.el (url-version):
* lisp/woman.el (woman-version): Use emacs-version instead of obsolete
version variables.
This commit is contained in:
Stefan Kangas 2021-03-31 18:17:15 +02:00
parent 4f595cca57
commit c59dedcdf1
10 changed files with 39 additions and 29 deletions

View file

@ -105,10 +105,6 @@
;;; Code:
(defconst icalendar-version "0.19"
"Version number of icalendar.el.")
(make-obsolete-variable 'icalendar-version nil "28.1")
;; ======================================================================
;; Customizables
;; ======================================================================
@ -2557,6 +2553,11 @@ the entry."
(or (icalendar--get-event-property event 'URL) "")
(or (icalendar--get-event-property event 'CLASS) "")))
;; Obsolete
(defconst icalendar-version "0.19" "Version number of icalendar.el.")
(make-obsolete-variable 'icalendar-version 'emacs-version "28.1")
(provide 'icalendar)
;;; icalendar.el ends here

View file

@ -828,7 +828,7 @@ the mode-line."
(defvar dframe-version "1.3"
"The current version of the dedicated frame library.")
(make-obsolete-variable 'dframe-version nil "28.1")
(make-obsolete-variable 'dframe-version 'emacs-version "28.1")
(provide 'dframe)

View file

@ -160,9 +160,6 @@
;; not specifically docstring related. Would this even be useful?
;;; 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
@ -2709,6 +2706,12 @@ function called to create the messages."
(custom-add-option 'emacs-lisp-mode-hook 'checkdoc-minor-mode)
;; Obsolete
(defvar checkdoc-version "0.6.2"
"Release version of checkdoc you are currently running.")
(make-obsolete-variable 'checkdoc-version 'emacs-version "28.1")
(provide 'checkdoc)
;;; checkdoc.el ends here

View file

@ -178,9 +178,6 @@
(defvar edt-user-global-map)
(defvar rect-start-point)
(defconst edt-version "4.0" "EDT Emulation version number.")
(make-obsolete-variable 'edt-version nil "28.1")
;;;
;;; User Configurable Variables
;;;
@ -2533,6 +2530,9 @@ G-C-\\: Split Window | FNDNXT | Yank | CUT |
(set-frame-width nil 132)
(message "Terminal width 132"))
(defconst edt-version "4.0" "EDT Emulation version number.")
(make-obsolete-variable 'edt-version 'emacs-version "28.1")
(provide 'edt)
;;; edt.el ends here

View file

@ -32,7 +32,7 @@
(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")
(make-obsolete-variable 'mule-version 'emacs-version "28.1")
(defconst mule-version-date "2003.9.1" "\
Distribution date of this version of MULE (multilingual environment).")

View file

@ -31,9 +31,6 @@
;;; Code:
(defconst linum-version "0.9x")
(make-obsolete-variable 'linum-version nil "28.1")
(defvar-local linum-overlays nil "Overlays used in this buffer.")
(defvar-local linum-available nil "Overlays available for reuse.")
(defvar linum-before-numbering-hook nil
@ -244,6 +241,9 @@ Linum mode is a buffer-local minor mode."
;; continue standard unloading
nil)
(defconst linum-version "0.9x")
(make-obsolete-variable 'linum-version 'emacs-version "28.1")
(provide 'linum)
;;; linum.el ends here

View file

@ -72,9 +72,6 @@
;;; Code:
(defconst bubbles-version "0.5" "Version number of bubbles.el.")
(make-obsolete-variable 'bubbles-version nil "28.1")
(require 'gamegrid)
;; User options
@ -1405,6 +1402,11 @@ Return t if new char is non-empty."
(forward-char 1)))
(put-text-property (point-min) (point-max) 'pointer 'arrow)))))
;; Obsolete.
(defconst bubbles-version "0.5" "Version number of bubbles.el.")
(make-obsolete-variable 'bubbles-version 'emacs-version "28.1")
(provide 'bubbles)
;;; bubbles.el ends here

View file

@ -178,10 +178,6 @@
;;; Code:
(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."
:group 'data)
@ -671,6 +667,11 @@ is non-nil, bury it and return nil; otherwise return t."
nil)
t))
;; Obsolete
(defconst remember-version "2.0" "This version of remember.")
(make-obsolete-variable 'remember-version 'emacs-version "28.1")
(provide 'remember)
;;; remember.el ends here

View file

@ -22,10 +22,6 @@
;;; Code:
(defconst url-version "Emacs"
"Version number of URL package.")
(make-obsolete-variable 'url-version nil "28.1")
(defgroup url nil
"Uniform Resource Locator tool."
:version "22.1"
@ -427,6 +423,11 @@ Should be one of:
This should be set, e.g. by mail user agents rendering HTML to avoid
`bugs' which call home.")
;; Obsolete
(defconst url-version "Emacs" "Version number of URL package.")
(make-obsolete-variable 'url-version 'emacs-version "28.1")
(provide 'url-vars)
;;; url-vars.el ends here

View file

@ -390,9 +390,6 @@
(eval-when-compile (require 'cl-lib))
(defvar woman-version "0.551 (beta)" "WoMan version information.")
(make-obsolete-variable 'woman-version nil "28.1")
(require 'man)
(define-button-type 'WoMan-xref-man-page
:supertype 'Man-abstract-xref-man-page
@ -4580,6 +4577,11 @@ logging the message."
(bookmark-default-handler
`("" (buffer . ,buf) . ,(bookmark-get-bookmark-record bookmark)))))
;; Obsolete.
(defvar woman-version "0.551 (beta)" "WoMan version information.")
(make-obsolete-variable 'woman-version 'emacs-version "28.1")
(provide 'woman)
;;; woman.el ends here