diff options
| author | Richard M. Stallman | 1998-06-23 15:47:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-06-23 15:47:38 +0000 |
| commit | 8146c81d068646eb5c5ca306c1b39854f972226d (patch) | |
| tree | d484c89bb0e0da7d38624e1209dbba811944ec30 | |
| parent | 956e3c7e0ba945a2ea6b10acc6059946c2a8be14 (diff) | |
| download | emacs-8146c81d068646eb5c5ca306c1b39854f972226d.tar.gz emacs-8146c81d068646eb5c5ca306c1b39854f972226d.zip | |
(buffer-modified-p): Make defsetf handle buffer argument.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index ed47ef4a4a6..75209c08232 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -1579,7 +1579,9 @@ Example: (defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))." | |||
| 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))) |