From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 3 Aug 2013 13:33:22 +0000 (+0200)
Subject: lisp/frameset.el (frameset-prop): Preserve `setf' semantics in setter.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1688^2~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6475c94b6a312780f051c91733632ac485080e25;p=emacs.git

lisp/frameset.el (frameset-prop): Preserve `setf' semantics in setter.
---

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 8bb734b96fe..914ef5306cb 100644
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -87,11 +87,13 @@ Properties other than :version can be set with
   (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