Mercurial > emacs
changeset 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 | b071f874301e |
| children | 318d69b6292c |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Tue Jun 23 14:42:40 1998 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Tue Jun 23 15:47:38 1998 +0000 @@ -1579,7 +1579,9 @@ ;;; Some more Emacs-related place types. (defsetf buffer-file-name set-visited-file-name t) -(defsetf buffer-modified-p set-buffer-modified-p t) +(defsetf buffer-modified-p (&optional buf) (flag) + (list 'with-current-buffer buf + (list 'set-buffer-modified-p flag))) (defsetf buffer-name rename-buffer t) (defsetf buffer-string () (store) (list 'progn '(erase-buffer) (list 'insert store)))