Mercurial > emacs
comparison lisp/emacs-lisp/cl-macs.el @ 22554:f7ee88b7618a
(buffer-modified-p): Make defsetf handle buffer argument.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Jun 1998 15:47:38 +0000 |
| parents | 63185360c2fa |
| children | f1998d661bc2 |
comparison
equal
deleted
inserted
replaced
| 22553:b071f874301e | 22554:f7ee88b7618a |
|---|---|
| 1577 (defsetf tenth (x) (store) (list 'setcar (list 'nthcdr 9 x) store)) | 1577 (defsetf tenth (x) (store) (list 'setcar (list 'nthcdr 9 x) store)) |
| 1578 (defsetf rest setcdr) | 1578 (defsetf rest setcdr) |
| 1579 | 1579 |
| 1580 ;;; Some more Emacs-related place types. | 1580 ;;; Some more Emacs-related place types. |
| 1581 (defsetf buffer-file-name set-visited-file-name t) | 1581 (defsetf buffer-file-name set-visited-file-name t) |
| 1582 (defsetf buffer-modified-p set-buffer-modified-p t) | 1582 (defsetf buffer-modified-p (&optional buf) (flag) |
| 1583 (list 'with-current-buffer buf | |
| 1584 (list 'set-buffer-modified-p flag))) | |
| 1583 (defsetf buffer-name rename-buffer t) | 1585 (defsetf buffer-name rename-buffer t) |
| 1584 (defsetf buffer-string () (store) | 1586 (defsetf buffer-string () (store) |
| 1585 (list 'progn '(erase-buffer) (list 'insert store))) | 1587 (list 'progn '(erase-buffer) (list 'insert store))) |
| 1586 (defsetf buffer-substring cl-set-buffer-substring) | 1588 (defsetf buffer-substring cl-set-buffer-substring) |
| 1587 (defsetf current-buffer set-buffer) | 1589 (defsetf current-buffer set-buffer) |