Mercurial > emacs
comparison lisp/emacs-lisp/cl-macs.el @ 108703:665253a7d3f6
* emacs-lisp/cl-macs.el (window-parameter): Add defsetf with
set-window-parameter.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Wed, 19 May 2010 23:37:57 +0300 |
parents | dc6153a5f4f7 |
children | 6c39bda25895 |
comparison
equal
deleted
inserted
replaced
108702:a0b236a315d5 | 108703:665253a7d3f6 |
---|---|
1811 (defsetf window-display-table set-window-display-table t) | 1811 (defsetf window-display-table set-window-display-table t) |
1812 (defsetf window-dedicated-p set-window-dedicated-p t) | 1812 (defsetf window-dedicated-p set-window-dedicated-p t) |
1813 (defsetf window-height () (store) | 1813 (defsetf window-height () (store) |
1814 (list 'progn (list 'enlarge-window (list '- store '(window-height))) store)) | 1814 (list 'progn (list 'enlarge-window (list '- store '(window-height))) store)) |
1815 (defsetf window-hscroll set-window-hscroll) | 1815 (defsetf window-hscroll set-window-hscroll) |
1816 (defsetf window-parameter set-window-parameter) | |
1816 (defsetf window-point set-window-point) | 1817 (defsetf window-point set-window-point) |
1817 (defsetf window-start set-window-start) | 1818 (defsetf window-start set-window-start) |
1818 (defsetf window-width () (store) | 1819 (defsetf window-width () (store) |
1819 (list 'progn (list 'enlarge-window (list '- store '(window-width)) t) store)) | 1820 (list 'progn (list 'enlarge-window (list '- store '(window-width)) t) store)) |
1820 (defsetf x-get-cutbuffer x-store-cutbuffer t) | 1821 (defsetf x-get-cutbuffer x-store-cutbuffer t) |