mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(emerge-show-file-name): Read event irrespective of whether minibuffer

Browse source 
window is resized.  Clear minibuffer when done.
This commit is contained in:
John Paul Wallington 2003-03-24 08:53:46 +00:00
parent f560e69cee
commit 784fda4fef
2 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2003-03-24 John Paul Wallington <jpw@gnu.org>
* 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'.

23
lisp/emerge.el
View file

@ -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.