[Emacs-diffs] trunk r113671: lisp/frameset.el (frameset-prop): Preserve `setf' semantics in setter.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113671
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sat 2013-08-03 15:33:22 +0200
message:
  lisp/frameset.el (frameset-prop): Preserve `setf' semantics in setter.
modified:
  lisp/frameset.el               frameset.el-20130802043218-tfwraxv1c2zlibpw-1

=== modified file 'lisp/frameset.el'
--- a/lisp/frameset.el  2013-08-03 09:57:07 +0000
+++ b/lisp/frameset.el  2013-08-03 13:33:22 +0000
@@ -87,11 +87,13 @@
   (setf (frameset-prop FRAMESET PROP) NEW-VALUE)"
   (plist-get (frameset-properties frameset) prop))
 
-(gv-define-setter frameset-prop (v fs prop)
-  `(progn
-     (cl-assert (not (eq ,prop :version)) t ":version can not be set")
-     (setf (frameset-properties ,fs)
-        (plist-put (frameset-properties ,fs) ,prop ,v))))
+(gv-define-setter frameset-prop (val fs prop)
+  (macroexp-let2 nil v val
+    `(progn
+       (cl-assert (not (eq ,prop :version)) t ":version can not be set")
+       (setf (frameset-properties ,fs)
+            (plist-put (frameset-properties ,fs) ,prop ,v))
+       ,v)))
 
 
 ;; Filtering