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

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 8bb734b96fee42a14e92a3dce698d954f2d42c64..914ef5306cbdfba69c7454aaec130c6074cd5586 100644 (file)
--- 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)))
 
 \f
 ;; Filtering