From 0d808a6319780244f9a8ef8f58ef1070be0c551e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 28 Dec 2004 05:11:26 +0000 Subject: (buffer-disable-undo): Fix previous change. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/simple.el') 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))) -- cgit v1.2.1