From 89dcad164026386235482b29f18fa36880448db5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 15 Dec 2000 05:04:06 +0000 Subject: [PATCH] * 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'. --- ChangeLog | 6 ++++++ poe-18.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c0e2f71..17e6184 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2000-12-15 Katsumi Yamaoka + + * 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 * 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. ;;; -- 1.7.10.4