Make `eq' obsolete as a generalized variable

* lisp/emacs-lisp/gv.el (eq): Make obsolete as a generalized
variable.

diff --git a/etc/NEWS b/etc/NEWS
index 2b8764135851ca7f4fe5462aa7176468f08885d0..e0e2178d284ab8be3f6f266b044e093744ed621b 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -3066,7 +3066,7 @@ The following generalized variables have been made obsolete:
 'current-column', 'current-global-map', 'current-input-mode',
 'current-local-map', 'current-window-configuration',
 'default-file-modes', 'documentation-property', 'frame-height',
-'frame-width', 'frame-visible-p', 'global-key-binding',
+'frame-width', 'frame-visible-p', 'global-key-binding', `if'
 'local-key-binding', 'mark', 'mark-marker', 'marker-position',
 'mouse-position', 'point', 'point-marker', 'point-max', 'point-min',
 'read-mouse-position', 'screen-height', 'screen-width',

diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index ade8064114dccc76eaaf1426bd05c692a9bedf87..a96fa19a3ff38b390e8c63d71dbd2c3daf28d3eb 100644 (file)
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -812,6 +812,7 @@ REF must have been previously obtained with `gv-ref'."
                    `(cond
                      (,v ,(funcall setter val))
                      ((eq ,getter ,val) ,(funcall setter `(not ,val))))))))))
+(make-obsolete-generalized-variable 'eq nil "29.1")
 
 (gv-define-expander substring
   (lambda (do place from &optional to)