# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 898616858 0
# Node ID f7ee88b7618a7d0c3e32e64866f7da2a07eb5914
# Parent  b071f874301e34fc90edeae605c3d1858a282ada
(buffer-modified-p): Make defsetf handle buffer argument.

diff -r b071f874301e -r f7ee88b7618a lisp/emacs-lisp/cl-macs.el
--- 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)))