From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Jun 1998 15:47:38 +0000 (+0000)
Subject: (buffer-modified-p): Make defsetf handle buffer argument.
X-Git-Tag: emacs-20.3~525
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8146c81d068646eb5c5ca306c1b39854f972226d;p=emacs.git

(buffer-modified-p): Make defsetf handle buffer argument.
---

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)))