;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Wed Jul 13 23:01:39 1994 ;;; from file /home/fsf/rms/e19/lisp/rsz-mini.el ;;; emacs version 19.25.16. ;;; 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 "\ *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-frame nil "\ *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-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 t "\ *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.") (byte-code "ÀÁ!„‡" [boundp resize-minibuffer-frame-original-height nil] 2) (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 "…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]) (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-window-restore #[nil "À ÁV…ÂÁÀ Z!ˆÃÄ!‡" [window-height 1 enlarge-window sit-for 0] 3] 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] resize-minibuffer-frame-restore #[nil "ÀÁ  #‡" [set-frame-size selected-frame frame-width resize-minibuffer-frame-original-height] 4] provide rsz-mini add-hook minibuffer-setup-hook resize-minibuffer-setup resize-minibuffer-mode] 3)