Mercurial > hg > xemacs-beta
comparison lisp/cl-macs.el @ 223:2c611d1463a6 r20-4b10
Import from CVS: tag r20-4b10
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:10:54 +0200 |
| parents | 41ff10fd062f |
| children | 12579d965149 |
comparison
equal
deleted
inserted
replaced
| 222:aae4c8b01452 | 223:2c611d1463a6 |
|---|---|
| 1697 (defsetf symbol-value-in-buffer (s b &optional u) (store) | 1697 (defsetf symbol-value-in-buffer (s b &optional u) (store) |
| 1698 `(with-current-buffer ,b (set ,s ,store))) | 1698 `(with-current-buffer ,b (set ,s ,store))) |
| 1699 (defsetf symbol-value-in-console (s c &optional u) (store) | 1699 (defsetf symbol-value-in-console (s c &optional u) (store) |
| 1700 `(letf (((selected-console) ,c)) | 1700 `(letf (((selected-console) ,c)) |
| 1701 (set ,s ,store))) | 1701 (set ,s ,store))) |
| 1702 | |
| 1703 (defsetf buffer-dedicated-frame (&optional b) (v) | |
| 1704 `(set-buffer-dedicated-frame ,b ,v)) | |
| 1705 (defsetf console-type-image-conversion-list | |
| 1706 set-console-type-image-conversion-list) | |
| 1707 (defsetf default-toolbar-position set-default-toolbar-position) | |
| 1708 (defsetf device-class (&optional d) (v) | |
| 1709 `(set-device-class ,d ,v)) | |
| 1710 (defsetf extent-begin-glyph set-extent-begin-glyph) | |
| 1711 (defsetf extent-begin-glyph-layout set-extent-begin-glyph-layout) | |
| 1712 (defsetf extent-end-glyph set-extent-end-glyph) | |
| 1713 (defsetf extent-end-glyph-layout set-extent-end-glyph-layout) | |
| 1714 (defsetf extent-keymap set-extent-keymap) | |
| 1715 (defsetf extent-parent set-extent-parent) | |
| 1716 (defsetf extent-properties set-extent-properties) | |
| 1717 ;; Avoid adding various face and glyph functions. | |
| 1718 (defsetf frame-selected-window (&optional f) (v) | |
| 1719 `(set-frame-selected-window ,f ,v)) | |
| 1720 (defsetf itimer-function set-itimer-function) | |
| 1721 (defsetf itimer-function-arguments set-itimer-function-arguments) | |
| 1722 (defsetf itimer-is-idle set-itimer-is-idle) | |
| 1723 (defsetf itimer-recorded-run-time set-itimer-recorded-run-time) | |
| 1724 (defsetf itimer-restart set-itimer-restart) | |
| 1725 (defsetf itimer-uses-arguments set-itimer-uses-arguments) | |
| 1726 (defsetf itimer-value set-itimer-value) | |
| 1727 (defsetf keymap-parents set-keymap-parents) | |
| 1728 (defsetf marker-insertion-type set-marker-insertion-type) | |
| 1729 (defsetf mouse-pixel-position (&optional d) (v) | |
| 1730 `(progn | |
| 1731 set-mouse-pixel-position ,d ,(car v) ,(car (cdr v)) ,(cdr (cdr v)) | |
| 1732 ,v)) | |
| 1733 (defsetf trunc-stack-length set-trunc-stack-length) | |
| 1734 (defsetf trunc-stack-stack set-trunc-stack-stack) | |
| 1735 (defsetf undoable-stack-max set-undoable-stack-max) | |
| 1736 (defsetf weak-list-list set-weak-list-list) | |
| 1737 | |
| 1702 | 1738 |
| 1703 (defsetf getenv setenv t) | 1739 (defsetf getenv setenv t) |
| 1704 (defsetf get-register set-register) | 1740 (defsetf get-register set-register) |
| 1705 (defsetf global-key-binding global-set-key) | 1741 (defsetf global-key-binding global-set-key) |
| 1706 (defsetf keymap-parent set-keymap-parent) | 1742 (defsetf keymap-parent set-keymap-parent) |