[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-24 r117180: * emacs-lisp/gv.el (window-buffer, windo
From: |
Leo Liu |
Subject: |
[Emacs-diffs] emacs-24 r117180: * emacs-lisp/gv.el (window-buffer, window-display-table) |
Date: |
Sat, 31 May 2014 15:46:35 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117180
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17630
committer: Leo Liu <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-05-31 23:43:43 +0800
message:
* emacs-lisp/gv.el (window-buffer, window-display-table)
(window-dedicated-p, window-hscroll, window-point, window-start):
Fix gv-expander.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/emacs-lisp/gv.el setf.el-20120531120738-6w8114hk2anryyud-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-05-31 12:32:36 +0000
+++ b/lisp/ChangeLog 2014-05-31 15:43:43 +0000
@@ -1,3 +1,9 @@
+2014-05-31 Leo Liu <address@hidden>
+
+ * emacs-lisp/gv.el (window-buffer, window-display-table)
+ (window-dedicated-p, window-hscroll, window-point, window-start):
+ Fix gv-expander. (Bug#17630)
+
2014-05-31 Stefan Monnier <address@hidden>
* mouse.el (mouse-posn-property): Ignore posn-point for mode-line
=== modified file 'lisp/emacs-lisp/gv.el'
--- a/lisp/emacs-lisp/gv.el 2014-02-21 19:01:19 +0000
+++ b/lisp/emacs-lisp/gv.el 2014-05-31 15:43:43 +0000
@@ -340,13 +340,18 @@
(gv-define-simple-setter process-filter set-process-filter)
(gv-define-simple-setter process-sentinel set-process-sentinel)
(gv-define-simple-setter process-get process-put)
-(gv-define-simple-setter window-buffer set-window-buffer)
-(gv-define-simple-setter window-display-table set-window-display-table 'fix)
-(gv-define-simple-setter window-dedicated-p set-window-dedicated-p)
-(gv-define-simple-setter window-hscroll set-window-hscroll)
(gv-define-simple-setter window-parameter set-window-parameter)
-(gv-define-simple-setter window-point set-window-point)
-(gv-define-simple-setter window-start set-window-start)
+(gv-define-setter window-buffer (v &optional w)
+ (macroexp-let2 nil v v
+ `(progn (set-window-buffer ,w ,v) ,v)))
+(gv-define-setter window-display-table (v &optional w)
+ (macroexp-let2 nil v v
+ `(progn (set-window-display-table ,w ,v) ,v)))
+(gv-define-setter window-dedicated-p (v &optional w)
+ `(set-window-dedicated-p ,w ,v))
+(gv-define-setter window-hscroll (v &optional w) `(set-window-hscroll ,w ,v))
+(gv-define-setter window-point (v &optional w) `(set-window-point ,w ,v))
+(gv-define-setter window-start (v &optional w) `(set-window-start ,w ,v))
(gv-define-setter buffer-local-value (val var buf)
(macroexp-let2 nil v val
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-24 r117180: * emacs-lisp/gv.el (window-buffer, window-display-table),
Leo Liu <=