(buffer-disable-undo): Fix previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c69d9a8cec35782b7b7e0798b957daad51cf1d6b..80edd505a9ef3b39fcfc9eb427f81528a1768816 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-28  Richard M. Stallman  <rms@gnu.org>
+
+       * simple.el (buffer-disable-undo): Fix previous change.
+
 2004-12-27  Masatake YAMATO  <jet@gyve.org>
 
        * hexl.el (hexlify-buffer): Remove fontification here.

diff --git a/lisp/simple.el b/lisp/simple.el
index b2c6d9df8668d4e95ba368d93fbe921989c6d7c4..65a667f482e2743e1c1b478c1b450b05abfbf4d8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1328,7 +1328,7 @@ as an argument limits undo to changes within the current region."
   "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)))