From 0d808a6319780244f9a8ef8f58ef1070be0c551e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 28 Dec 2004 05:11:26 +0000 Subject: [PATCH] (buffer-disable-undo): Fix previous change. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c69d9a8cec3..80edd505a9e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-12-28 Richard M. Stallman + + * simple.el (buffer-disable-undo): Fix previous change. + 2004-12-27 Masatake YAMATO * hexl.el (hexlify-buffer): Remove fontification here. diff --git a/lisp/simple.el b/lisp/simple.el index b2c6d9df866..65a667f482e 100644 --- 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))) -- 2.39.5