[Emacs-diffs] trunk r113874: lisp/frameset.el: Use gv-setter declaration.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113874
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Wed 2013-08-14 15:30:13 +0200
message:
  lisp/frameset.el: Use gv-setter declaration.
  (frameset--prop-setter): New function.
  (frameset-prop): Add gv-setter declaration.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/frameset.el               frameset.el-20130802043218-tfwraxv1c2zlibpw-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-14 09:14:32 +0000
+++ b/lisp/ChangeLog    2013-08-14 13:30:13 +0000
@@ -1,3 +1,8 @@
+2013-08-14  Juanma Barranquero  <address@hidden>
+
+       * frameset.el (frameset--prop-setter): New function.
+       (frameset-prop): Add gv-setter declaration.
+
 2013-08-14  Martin Rudalics  <address@hidden>
 
        * window.el (window-make-atom): Don't overwrite parameter

=== modified file 'lisp/frameset.el'
--- a/lisp/frameset.el  2013-08-13 13:47:54 +0000
+++ b/lisp/frameset.el  2013-08-14 13:30:13 +0000
@@ -156,7 +156,13 @@
        (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 @@
 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