diff options
| author | Noam Postavsky | 2018-07-16 22:14:32 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-08-27 18:54:23 -0400 |
| commit | c8b86362d45a07e0aec0041cade551c3c663ea8c (patch) | |
| tree | 8a864ed38ddc58d516dfb09039a4d7bc33e2256c | |
| parent | 66bf12b6a1777d8dd09f8ddcefe96314555d0134 (diff) | |
| download | emacs-c8b86362d45a07e0aec0041cade551c3c663ea8c.tar.gz emacs-c8b86362d45a07e0aec0041cade551c3c663ea8c.zip | |
Allow setf of buffer-modified-p without argument (Bug#21201)
* lisp/emacs-lisp/cl-lib.el (setf buffer-modified-p): Take current
buffer if optional argument BUF is not passed.
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index d7e72ce99a3..592235d2de0 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el | |||
| @@ -531,8 +531,9 @@ If ALIST is non-nil, the new pairs are prepended to it." | |||
| 531 | ;; Some more Emacs-related place types. | 531 | ;; Some more Emacs-related place types. |
| 532 | (gv-define-simple-setter buffer-file-name set-visited-file-name t) | 532 | (gv-define-simple-setter buffer-file-name set-visited-file-name t) |
| 533 | (gv-define-setter buffer-modified-p (flag &optional buf) | 533 | (gv-define-setter buffer-modified-p (flag &optional buf) |
| 534 | `(with-current-buffer ,buf | 534 | (macroexp-let2 nil buffer `(or ,buf (current-buffer)) |
| 535 | (set-buffer-modified-p ,flag))) | 535 | `(with-current-buffer ,buffer |
| 536 | (set-buffer-modified-p ,flag)))) | ||
| 536 | (gv-define-simple-setter buffer-name rename-buffer t) | 537 | (gv-define-simple-setter buffer-name rename-buffer t) |
| 537 | (gv-define-setter buffer-string (store) | 538 | (gv-define-setter buffer-string (store) |
| 538 | `(insert (prog1 ,store (erase-buffer)))) | 539 | `(insert (prog1 ,store (erase-buffer)))) |