[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 764d832bfa 1/3: Make htmlfontify-version variable obsolete

From: Stefan Kangas
Subject: master 764d832bfa 1/3: Make htmlfontify-version variable obsolete
Date: Sat, 13 Aug 2022 07:19:28 -0400 (EDT)

branch: master
commit 764d832bfaffe5a0069f4acc7a5aff465c36e801
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Make htmlfontify-version variable obsolete
    * lisp/htmlfontify.el (htmlfontify-version): Make obolete.
    (hfy-meta-tags): Don't use above obsolete variable.
 lisp/htmlfontify.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index dbcc152c15..bf7446f151 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -81,11 +81,9 @@
 (eval-when-compile (require 'cl-lib))
 (require 'cus-edit)
-(defconst htmlfontify-version 0.21)
 (defconst hfy-meta-tags
-  (format "<meta name=\"generator\" content=\"emacs %s; htmlfontify %0.2f\" />"
-          emacs-version htmlfontify-version)
+  (format "<meta name=\"generator\" content=\"emacs %s; htmlfontify\" />"
+          emacs-version)
   "The generator meta tag for this version of htmlfontify.")
 (defconst htmlfontify-manual "Htmlfontify Manual"
@@ -2392,13 +2390,14 @@ You may also want to set `hfy-page-header' and 
   (let ((file (hfy-initfile)))
     (load file 'NOERROR nil nil) ))
-;; Obsolete.
 (defun hfy-interq (set-a set-b)
   "Return the intersection (using `eq') of two lists SET-A and SET-B."
   (declare (obsolete seq-intersection "28.1"))
   (nreverse (seq-intersection set-a set-b #'eq)))
+(defconst htmlfontify-version 0.21)
+(make-obsolete-variable 'htmlfontify-version 'emacs-version "29.1")
 (define-obsolete-function-alias 'hfy-prop-invisible-p #'invisible-p "29.1")
 (provide 'htmlfontify)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]