* 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 (file)
--- 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 (file)
--- 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.
 ;;;