From 8146c81d068646eb5c5ca306c1b39854f972226d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 23 Jun 1998 15:47:38 +0000 Subject: [PATCH] (buffer-modified-p): Make defsetf handle buffer argument. --- lisp/emacs-lisp/cl-macs.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))." ;;; 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))) -- 2.39.2