[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 7bc4820: Make setf for frame-height/width work ag
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] emacs-25 7bc4820: Make setf for frame-height/width work again |
Date: |
Tue, 23 Feb 2016 04:56:44 +0000 |
branch: emacs-25
commit 7bc4820ffdbd062a04de8be7328fa90e5996b3e6
Author: Christopher Wellons <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make setf for frame-height/width work again
* lisp/emacs-lisp/cl-lib.el (frame-height): Make setf for
frame-height/width work again (bug#21979).
---
lisp/emacs-lisp/cl-lib.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el
index 4609505..b401714 100644
--- a/lisp/emacs-lisp/cl-lib.el
+++ b/lisp/emacs-lisp/cl-lib.el
@@ -660,10 +660,12 @@ If ALIST is non-nil, the new pairs are prepended to it."
(gv-define-setter face-underline-p (x f &optional s)
`(set-face-underline ,f ,x ,s))
(gv-define-simple-setter file-modes set-file-modes t)
-(gv-define-simple-setter frame-height set-screen-height t)
+(gv-define-setter frame-height (x &optional frame)
+ `(set-frame-height (or ,frame (selected-frame)) ,x))
(gv-define-simple-setter frame-parameters modify-frame-parameters t)
(gv-define-simple-setter frame-visible-p cl--set-frame-visible-p)
-(gv-define-simple-setter frame-width set-screen-width t)
+(gv-define-setter frame-width (x &optional frame)
+ `(set-frame-width (or ,frame (selected-frame)) ,x))
(gv-define-simple-setter getenv setenv t)
(gv-define-simple-setter get-register set-register)
(gv-define-simple-setter global-key-binding global-set-key)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 7bc4820: Make setf for frame-height/width work again,
Lars Ingebrigtsen <=