[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113671: lisp/frameset.el (frameset-prop): Preserve
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] trunk r113671: lisp/frameset.el (frameset-prop): Preserve `setf' semantics in setter. |
Date: |
Sat, 03 Aug 2013 13:33:33 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113671: lisp/frameset.el (frameset-prop): Preserve `setf' semantics in setter.,
Juanma Barranquero <=