[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a2ecf73545 2/2: ; * lisp/play/5x5.el (5x5-defvar-local): Improve
From: |
Stefan Kangas |
Subject: |
master a2ecf73545 2/2: ; * lisp/play/5x5.el (5x5-defvar-local): Improve obsoletion. |
Date: |
Thu, 11 Aug 2022 07:32:24 -0400 (EDT) |
branch: master
commit a2ecf73545bcab598de8c8996c5591d6ffa5d1fc
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
; * lisp/play/5x5.el (5x5-defvar-local): Improve obsoletion.
---
lisp/play/5x5.el | 12 +++---------
1 file changed, 3 insertions(+), 9 deletions(-)
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 8fe72ddf59..fb944f4d76 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -82,13 +82,6 @@
;; Non-customize variables.
-(defmacro 5x5-defvar-local (var value doc)
- "Define VAR to VALUE with documentation DOC and make it buffer local."
- (declare (obsolete defvar-local "28.1"))
- `(progn
- (defvar ,var ,value ,doc)
- (make-variable-buffer-local (quote ,var))))
-
(defvar-local 5x5-grid nil
"5x5 grid contents.")
@@ -930,14 +923,15 @@ lest."
;; Support functions
-(define-obsolete-function-alias '5x5-xor 'xor "27.1")
-
(defun 5x5-y-or-n-p (prompt)
"5x5 wrapper for `y-or-n-p' which respects the `5x5-hassle-me' setting."
(if 5x5-hassle-me
(y-or-n-p prompt)
t))
+(define-obsolete-function-alias '5x5-xor #'xor "27.1")
+(define-obsolete-function-alias '5x5-defvar-local #'defvar-local "28.1")
+
(provide '5x5)
;;; 5x5.el ends here