;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun May 22 03:16:20 1994 ;;; from file /home/fsf/rms/e19/lisp/rsz-mini.el ;;; emacs version 19.23.90.1. ;;; 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 "`/home/fsf/rms/e19/lisp/rsz-mini.el' was compiled for Emacs 19")) (defvar resize-minibuffer-mode nil "\ *If non-`nil', resize the minibuffer so its entire contents are visible.") (defvar resize-minibuffer-window-max-height nil "\ *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-exactly t "\ *If non-`nil', make minibuffer exactly the size needed to display all its contents. Otherwise, the minibuffer window can temporarily increase in size but never get smaller while it is active.") (defvar resize-minibuffer-frame nil "\ *If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height.") (defvar resize-minibuffer-frame-max-height nil "\ *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-exactly nil "\ *If non-`nil', make minibuffer frame exactly the size needed to display all its contents. Otherwise, the minibuffer frame can temporarily increase in size but never get smaller while it is active.") (defalias 'resize-minibuffer-mode #[(&optional prefix) "„ÁÁYƒ‰‡Ä‰‡" [prefix 0 t resize-minibuffer-mode nil] 2 "\ 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." "p"]) (defalias (quote resize-minibuffer-setup) #[nil "…0 ƒ(Âà žAÄ=ƒ( …0ÆÇ!ˆÈÇÉ\"ˆÆÊ!ˆÈÊÅ\"‡ÆÊ!ˆÈÊË\"‡" [resize-minibuffer-mode window-system minibuffer frame-parameters only resize-minibuffer-frame make-local-variable minibuffer-exit-hook add-hook resize-minibuffer-frame-restore post-command-hook resize-minibuffer-window] 3]) (defalias 'resize-minibuffer-count-window-lines #[(&optional start end) "„e „\fd Uƒ‡ŠŒ~ˆ }ˆbˆÃÄ !*‡" [start end 0 vertical-motion buffer-size] 2 "\ 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."]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÇÈ!ˆÉÊË\"ˆÌ ‡" [defalias resize-minibuffer-window #[nil "À Á T\f§ƒ\fÅVƒ\n\f^ƒ!\n U‚$\n X†,Ç\n Z!*‡" [window-height resize-minibuffer-count-window-lines lines height resize-minibuffer-window-max-height 0 resize-minibuffer-window-exactly enlarge-window] 3] resize-minibuffer-frame #[nil "À Á T\f§ƒ\fÅVƒ\n\f^\n Vƒ&ÆÇ È \n#‚B …B Ã\nžAV…B\n W…BÆÇ È \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 minibuffer-frame-alist] 4] resize-minibuffer-frame-restore #[nil "ÀÁ  Ã\fžA#‡" [set-frame-size selected-frame frame-width height minibuffer-frame-alist] 5] provide rsz-mini add-hook minibuffer-setup-hook resize-minibuffer-setup resize-minibuffer-mode] 3)