Make frame-width obsolete as a generalized variable

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

diff --git a/etc/NEWS b/etc/NEWS
index 44ee9b8fc7362e840e99ee1933a62e9853b79a9d..7f460e8b881011306d0a6663f0a8400499add780 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2599,13 +2599,13 @@ 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-visible-p', 'global-key-binding', 'local-key-binding', 'mark',
-'mark-marker', 'marker-position', 'mouse-position', 'point',
-'point-marker', 'point-max', 'point-min', 'read-mouse-position',
-'screen-height', 'screen-width', 'selected-frame', 'selected-screen',
-'selected-window', 'standard-case-table', 'syntax-table',
-'visited-file-modtime', 'window-height', 'window-width', and
-'x-get-secondary-selection'.
+'frame-width', 'frame-visible-p', 'global-key-binding',
+'local-key-binding', 'mark', 'mark-marker', 'marker-position',
+'mouse-position', 'point', 'point-marker', 'point-max', 'point-min',
+'read-mouse-position', 'screen-height', 'screen-width',
+'selected-frame', 'selected-screen', 'selected-window',
+'standard-case-table', 'syntax-table', 'visited-file-modtime',
+'window-height', 'window-width', and 'x-get-secondary-selection'.
 
 \f
 * Lisp Changes in Emacs 29.1

diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 770cdb3d4f9156c74534fb206b18fcccdcacbb0c..eaab6439adb6861657e5de1795f30d6d63ca4ca4 100644 (file)
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -706,6 +706,8 @@ REF must have been previously obtained with `gv-ref'."
 
 (gv-define-setter frame-width (x &optional frame)
   `(set-frame-width (or ,frame (selected-frame)) ,x))
+(make-obsolete-generalized-variable 'frame-width 'set-frame-width "29.1")
+
 (gv-define-simple-setter getenv setenv t)
 (gv-define-simple-setter get-register set-register)