Mercurial > hg > xemacs-beta

comparison lisp/cl/cl-macs.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 34a5b81f86ba
children 25f70ba0133c
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
1621 (defsetf file-modes set-file-modes t) 1621 (defsetf file-modes set-file-modes t)
1622 (defsetf frame-height set-screen-height t) 1622 (defsetf frame-height set-screen-height t)
1623 (defsetf frame-parameters modify-frame-parameters t) 1623 (defsetf frame-parameters modify-frame-parameters t)
1624 (defsetf frame-visible-p cl-set-frame-visible-p) 1624 (defsetf frame-visible-p cl-set-frame-visible-p)
1625 (defsetf frame-width set-screen-width t) 1625 (defsetf frame-width set-screen-width t)
1626
1627 ;; XEmacs: new stuff
1628 (defsetf selected-console select-console t)
1629 (defsetf selected-device select-device t)
1630 (defsetf device-baud-rate (&optional d) (v)
1631 `(set-device-baud-rate ,d ,v))
1632 (defsetf current-frame-configuration set-frame-configuration)
1633 (defsetf frame-properties (&optional f) (p)
1634 `(progn (set-frame-properties ,f ,p) ,p))
1635 (defsetf frame-property (f p &optional d) (v)
1636 `(progn (set-frame-property ,f ,v) ,p))
1637 (defsetf specifier-instance (spec &optional dom def nof) (val)
1638 `(set-specifier ,spec ,val ,dom))
1639 (defsetf annotation-glyph set-annotation-glyph)
1640 (defsetf annotation-down-glyph set-annotation-down-glyph)
1641 (defsetf annotation-face set-annotation-face)
1642 (defsetf annotation-layout set-annotation-layout)
1643 (defsetf annotation-data set-annotation-data)
1644 (defsetf annotation-action set-annotation-action)
1645 (defsetf annotation-menu set-annotation-menu)
1646
1626 (defsetf getenv setenv t) 1647 (defsetf getenv setenv t)
1627 (defsetf get-register set-register) 1648 (defsetf get-register set-register)
1628 (defsetf global-key-binding global-set-key) 1649 (defsetf global-key-binding global-set-key)
1629 (defsetf keymap-parent set-keymap-parent) 1650 (defsetf keymap-parent set-keymap-parent)
1630 (defsetf local-key-binding local-set-key) 1651 (defsetf local-key-binding local-set-key)