mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(resize-minibuffer-window-restore): Don't do anything if the window height

Browse Source 
is already 1.
This commit is contained in:
Noah Friedman 1994-06-30 06:46:44 +00:00
parent 5fb9cdd99e
commit ee50a52806
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/rsz-mini.el
View File

@ -7,7 +7,7 @@
;;; Maintainer: friedman@prep.ai.mit.edu
;;; Keywords: minibuffer, window, frame, display
;;; Status: Known to work in FSF GNU Emacs 19.26 and later.
;;; $Id: rsz-mini.el,v 1.3 1994/05/20 17:43:40 friedman Exp friedman $
;;; $Id: rsz-mini.el,v 1.4 1994/06/22 22:14:28 friedman Exp friedman $
;; This file is part of GNU Emacs.
@ -207,8 +207,10 @@ respectively."
;; its idea of the minibuffer window size when the minibuffer isn't in use
;; anyway; this is just a kludge because of the timing for that update).
(defun resize-minibuffer-window-restore ()
(enlarge-window (- 1 (window-height)))
(sit-for 0))
(cond
((> (window-height) 1)
(enlarge-window (- 1 (window-height)))
(sit-for 0))))
;; Resize the minibuffer frame to contain the minibuffer's contents.