;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:50:04 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/rsz-mini.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/rsz-mini.el' was compiled for Emacs 19")) #@74 *If non-`nil', resize the minibuffer so its entire contents are visible. (defvar resize-minibuffer-mode nil (#$ . -485)) #@175 *Maximum size the minibuffer window is allowed to become. If less than 1 or not a number, the limit is the height of the frame in which the active minibuffer window resides. (defvar resize-minibuffer-window-max-height nil (#$ . -613)) #@219 *Allow making minibuffer exactly the size to display all its contents. If `nil', the minibuffer window can temporarily increase in size but never get smaller while it is active. Any other value allows exact resizing. (defvar resize-minibuffer-window-exactly t (#$ . -855)) #@161 *Allow changing the frame height of minibuffer frames. If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height. (defvar resize-minibuffer-frame nil (#$ . -1136)) #@109 *Maximum size the minibuffer frame is allowed to become. If less than 1 or not a number, there is no limit. (defvar resize-minibuffer-frame-max-height nil (#$ . -1353)) #@224 *Allow making minibuffer frame exactly the size to display all its contents. If `nil', the minibuffer frame can temporarily increase in size but never get smaller while it is active. Any other value allows exact resizing. (defvar resize-minibuffer-frame-exactly t (#$ . -1529)) (byte-code "ÀÁ!„ÂÁ B‡" [boundp resize-minibuffer-frame-original-height nil current-load-list] 2) #@1110 Enable or disable resize-minibuffer mode. A negative prefix argument disables this mode. A positive argument or argument of 0 enables it. When this minor mode is enabled, the minibuffer is dynamically resized to contain the entire region of text put in it as you type. The variable `resize-minibuffer-mode' is set to t or nil depending on whether this mode is active or not. The maximum height to which the minibuffer can grow is controlled by the variable `resize-minibuffer-window-max-height'. The variable `resize-minibuffer-window-exactly' determines whether the minibuffer window should ever be shrunk to make it no larger than needed to display its contents. When using a window system, it is possible for a minibuffer to be the sole window in a frame. Since that window is already its maximum size, the only way to make more text visible at once is to increase the size of the frame. The variable `resize-minibuffer-frame' controls whether this should be done. The variables `resize-minibuffer-frame-max-height' and `resize-minibuffer-frame-exactly' are analogous to their window counterparts. (defalias 'resize-minibuffer-mode #[(&optional prefix) "„ÁÁYƒ‰‡Ä‰‡" [prefix 0 t resize-minibuffer-mode nil] 2 (#$ . 1918) "p"]) (defalias 'resize-minibuffer-setup #[nil "…U ƒ:Âà žAÄ=ƒ: …UÆÇ!ˆÈ ÆÉ!ˆÊ ! ËÉÅÌ#ˆÆÍ!ˆËÍÎ\"ˆÅ ‡ÆÉ!ˆÊ ! ËÉÏÌ#ˆÆÍ!ˆËÍÐ\"ˆÏ ‡" [resize-minibuffer-mode window-system minibuffer frame-parameters only resize-minibuffer-frame make-local-variable resize-minibuffer-frame-original-height frame-height post-command-hook copy-sequence add-hook append minibuffer-exit-hook resize-minibuffer-frame-restore resize-minibuffer-window resize-minibuffer-window-restore] 4]) #@279 Return number of window lines occupied by text in region. The number of window lines may be greater than the number of actual lines in the buffer if any wrap on the display due to their length. Optional arguments START and END default to point-min and point-max, respectively. (defalias 'resize-minibuffer-count-window-lines #[(&optional start end) "„e „\fd Uƒ‡ŠŒ~ˆ }ˆbˆÃÄ !*‡" [start end 0 vertical-motion buffer-size] 2 (#$ . 3636)]) (defalias 'resize-minibuffer-window #[nil "À Á =…8 à T§ƒ!ÇVƒ!\f^ƒ,\f U‚/\f X†7É\f Z!*‡" [selected-window minibuffer-window window-height resize-minibuffer-count-window-lines lines height resize-minibuffer-window-max-height 0 resize-minibuffer-window-exactly enlarge-window] 3]) (defalias 'resize-minibuffer-window-restore #[nil "À Á =?† ÃV…ÄàZ!ˆÅÆ!‡" [minibuffer-window selected-window window-height 1 enlarge-window sit-for 0] 3]) (defalias 'resize-minibuffer-frame #[nil "À Á T\f§ƒ\fÅVƒ\n\f^\n Vƒ&ÆÇ È \n#‚? …? \nV…?\n W…?ÆÇ È \n#*‡" [frame-height resize-minibuffer-count-window-lines lines height resize-minibuffer-frame-max-height 0 set-frame-size selected-frame frame-width resize-minibuffer-frame-exactly resize-minibuffer-frame-original-height] 4]) (defalias 'resize-minibuffer-frame-restore #[nil "ÀÁ  #‡" [set-frame-size selected-frame frame-width resize-minibuffer-frame-original-height] 4]) (byte-code "ÀÁ!ˆÂÃÄ\"ˆÅ ‡" [provide rsz-mini add-hook minibuffer-setup-hook resize-minibuffer-setup resize-minibuffer-mode] 3)