# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104210663 0
# Node ID ced0821d5f7ccf96be3770a68d2a37e7b362362a
# Parent  0d5e992b6c18c1f6a7cf2d541ec6e778a979b4d0
(buffer-disable-undo): Fix previous change.

diff -r 0d5e992b6c18 -r ced0821d5f7c lisp/simple.el
--- a/lisp/simple.el	Tue Dec 28 05:10:37 2004 +0000
+++ b/lisp/simple.el	Tue Dec 28 05:11:03 2004 +0000
@@ -1328,7 +1328,7 @@
   "Make BUFFER stop keeping undo information.
 No argument or nil as argument means do this for the current buffer."
   (interactive)
-  (with-current-buffer (get-buffer buffer)
+  (with-current-buffer (if buffer (get-buffer buffer) (current-buffer))
     (setq buffer-undo-list t
 	  undo-list-saved nil)))