Mercurial > emacs
changeset 50289:03c508c0bdce
(emerge-show-file-name): Read event irrespective of whether minibuffer
window is resized. Clear minibuffer when done.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 24 Mar 2003 08:52:20 +0000 |
| parents | 3ab5045ca8fa |
| children | 868bcd48f638 |
| files | lisp/emerge.el |
| diffstat | 1 files changed, 13 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emerge.el Mon Mar 24 06:08:32 2003 +0000 +++ b/lisp/emerge.el Mon Mar 24 08:52:20 2003 +0000 @@ -3106,18 +3106,21 @@ (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.