From: yamaoka <yamaoka>
Date: Fri, 15 Dec 2000 05:04:06 +0000 (+0000)
Subject: * poe-18.el (buffer-disable-undo): Define it as a function to make an argument
X-Git-Tag: apel-10_3~39
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=89dcad164026386235482b29f18fa36880448db5;p=elisp%2Fapel.git

* poe-18.el (buffer-disable-undo): Define it as a function to make an argument
 optional instead of the use of `defalias' to `buffer-flush-undo'.
---

diff --git a/ChangeLog b/ChangeLog
index c0e2f71..17e6184 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-12-15  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* poe-18.el (buffer-disable-undo): Define it as a function to make
+	an argument optional instead of the use of `defalias' to
+	`buffer-flush-undo'.
+
 2000-12-14   Daiki Ueno  <ueno@unixuser.org>
 
 	* alist.el (del-alist): Simplified.
diff --git a/poe-18.el b/poe-18.el
index 0edb4d8..67c7a4d 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -517,7 +517,6 @@ With optional non-nil ALL, force redisplay of all mode-lines."
 (defvar-maybe unread-command-event nil)
 (defvar-maybe unread-command-events nil)
 
-(defalias 'buffer-disable-undo 'buffer-flush-undo)
 (defalias 'insert-and-inherit 'insert)
 (defalias 'insert-before-markers-and-inherit 'insert-before-markers)
 (defalias 'number-to-string 'int-to-string)
@@ -602,6 +601,11 @@ Optional third argunemt ALL-FRAMES is ignored in this implementation."
 		 (not (eq walk-windows-current walk-windows-start))))
       (select-window walk-windows-start))))
 
+(defun buffer-disable-undo (&optional buffer)
+  "Make BUFFER stop keeping undo information.
+No argument or nil as argument means do this for the current buffer."
+  (buffer-flush-undo (or buffer (current-buffer))))
+
 ;;; @@ Environment variables.
 ;;;