diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-08-14 15:30:13 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-08-14 15:30:13 +0200 |
| commit | 62f33baed9e37213dc5164b27a968c42bb60b4a7 (patch) | |
| tree | ce0de430adffd903949e0801ff4707acb998bd7d /lisp/frameset.el | |
| parent | 6c195442ea35de9b22cb5c1f4884f05b5ae92222 (diff) | |
| download | emacs-62f33baed9e37213dc5164b27a968c42bb60b4a7.tar.gz emacs-62f33baed9e37213dc5164b27a968c42bb60b4a7.tar.bz2 emacs-62f33baed9e37213dc5164b27a968c42bb60b4a7.zip | |
lisp/frameset.el: Use gv-setter declaration.
(frameset--prop-setter): New function.
(frameset-prop): Add gv-setter declaration.
Diffstat (limited to 'lisp/frameset.el')
| -rw-r--r-- | lisp/frameset.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/frameset.el b/lisp/frameset.el index e334b4cb1fd..74432db892c 100644 --- a/lisp/frameset.el +++ b/lisp/frameset.el @@ -156,7 +156,13 @@ FRAMESET is copied with `copy-tree'." (let ((states (frameset-states object))) (and (listp states) (cl-every #'consp (frameset-states object)))) - (frameset-version object))) ; And VERSION is non-nil. + (frameset-version object))) ; And VERSION is non-nil. + +(defun frameset--prop-setter (frameset property value) + "Setter function for `frameset-prop'. Internal use only." + (setf (frameset-properties frameset) + (plist-put (frameset-properties frameset) property value)) + value) ;; A setf'able accessor to the frameset's properties (defun frameset-prop (frameset property) @@ -165,15 +171,9 @@ FRAMESET is copied with `copy-tree'." Properties can be set with (setf (frameset-prop FRAMESET PROPERTY) NEW-VALUE)" + (declare (gv-setter frameset--prop-setter)) (plist-get (frameset-properties frameset) property)) -(gv-define-setter frameset-prop (val fs prop) - (macroexp-let2 nil v val - `(progn - (setf (frameset-properties ,fs) - (plist-put (frameset-properties ,fs) ,prop ,v)) - ,v))) - ;; Filtering |