From 784fda4fefbb4a7a271c9e6cfc3478a39de483fa Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 24 Mar 2003 08:53:46 +0000 Subject: [PATCH] (emerge-show-file-name): Read event irrespective of whether minibuffer window is resized. Clear minibuffer when done. --- lisp/ChangeLog | 3 +++ lisp/emerge.el | 23 +++++++++++++---------- 2 files changed, 16 insertions(+), 10 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4a80a436f7e..34ea2dcc44e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2003-03-24 John Paul Wallington + * emerge.el (emerge-show-file-name): Read event irrespective of + whether minibuffer window is resized. Clear minibuffer when done. + * cus-theme.el (customize-create-theme): Rename from `custom-theme-create'. diff --git a/lisp/emerge.el b/lisp/emerge.el index 170a907afae..b3e411735e3 100644 --- a/lisp/emerge.el +++ b/lisp/emerge.el @@ -3106,18 +3106,21 @@ SPC, it is ignored; if it is anything else, it is processed as a command." (setq name "Buffer has no file name.")) (save-window-excursion (select-window (minibuffer-window)) - (erase-buffer) - (insert name) - (if (not (pos-visible-in-window-p)) - (let ((echo-keystrokes 0)) - (while (and (not (pos-visible-in-window-p)) - (> (1- (frame-height)) (window-height))) - (enlarge-window 1)) - (let ((c (read-event))) + (unwind-protect + (progn + (erase-buffer) + (insert name) + (if (not (pos-visible-in-window-p)) + (while (and (not (pos-visible-in-window-p)) + (> (1- (frame-height)) (window-height))) + (enlarge-window 1))) + (let* ((echo-keystrokes 0) + (c (read-event))) (if (not (eq c 32)) - (setq unread-command-events (list c))))))))) + (setq unread-command-events (list c))))) + (erase-buffer))))) -;; Improved auto-save file names. +;; Improved auto-save gfile names. ;; This function fixes many problems with the standard auto-save file names: ;; Auto-save files for non-file buffers get put in the default directory ;; for the buffer, whether that makes sense or not. -- 2.39.2