Mercurial > hg > xemacs-beta
comparison lisp/resize-minibuffer.el @ 5118:e0db3c197671 ben-lisp-object
merge up to latest default branch, doesn't compile yet
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sat, 26 Dec 2009 21:18:49 -0600 |
| parents | 5db7720dd944 |
| children | 91b3aa59f49b |
comparison
equal
deleted
inserted
replaced
| 5117:3742ea8250b5 | 5118:e0db3c197671 |
|---|---|
| 34 | 34 |
| 35 ;;; Commentary: | 35 ;;; Commentary: |
| 36 | 36 |
| 37 ;; This file has received maintenance by the XEmacs development team. | 37 ;; This file has received maintenance by the XEmacs development team. |
| 38 | 38 |
| 39 ;; $Id: resize-minibuffer.el,v 1.4 2002/03/15 07:43:21 ben Exp $ | |
| 40 | |
| 41 ;; This package allows the entire contents (or as much as possible) of the | 39 ;; This package allows the entire contents (or as much as possible) of the |
| 42 ;; minibuffer to be visible at once when typing. As the end of a line is | 40 ;; minibuffer to be visible at once when typing. As the end of a line is |
| 43 ;; reached, the minibuffer will resize itself. When the user is done | 41 ;; reached, the minibuffer will resize itself. When the user is done |
| 44 ;; typing, the minibuffer will return to its original size. | 42 ;; typing, the minibuffer will return to its original size. |
| 45 | 43 |
| 86 If less than 1 or not a number, the limit is the height of the frame in | 84 If less than 1 or not a number, the limit is the height of the frame in |
| 87 which the active minibuffer window resides." | 85 which the active minibuffer window resides." |
| 88 :type '(choice (const nil) integer) | 86 :type '(choice (const nil) integer) |
| 89 :group 'resize-minibuffer) | 87 :group 'resize-minibuffer) |
| 90 | 88 |
| 89 ;; #### Yeah, I know. The relation between the echo area and the | |
| 90 ;; minibuffer needs rethinking. It's not really possible to unify them at | |
| 91 ;; present. -- sjt | |
| 92 (defcustom resize-minibuffer-idle-height nil | |
| 93 "When minibuffer is idle, crop its window to this height. | |
| 94 Must be a positive integer or nil. nil indicates no limit. | |
| 95 Effective only when `undisplay-echo-area-function' respects it. One such | |
| 96 function is `undisplay-echo-area-resize-window'.") | |
| 97 | |
| 91 (defcustom resize-minibuffer-window-exactly t | 98 (defcustom resize-minibuffer-window-exactly t |
| 92 "*If non-`nil', make minibuffer exactly the size needed to display all its contents. | 99 "*If non-`nil', make minibuffer exactly the size needed to display all its contents. |
| 93 Otherwise, the minibuffer window can temporarily increase in size but | 100 Otherwise, the minibuffer window can temporarily increase in size but |
| 94 never get smaller while it is active." | 101 never get smaller while it is active." |
| 95 :type 'boolean | 102 :type 'boolean |
| 111 never get smaller while it is active." | 118 never get smaller while it is active." |
| 112 :type 'boolean | 119 :type 'boolean |
| 113 :group 'resize-minibuffer) | 120 :group 'resize-minibuffer) |
| 114 | 121 |
| 115 | 122 |
| 116 ;;;###autoload | |
| 117 (defun resize-minibuffer-mode (&optional prefix) | 123 (defun resize-minibuffer-mode (&optional prefix) |
| 118 "Enable or disable resize-minibuffer mode. | 124 "Enable or disable resize-minibuffer mode. |
| 119 A negative prefix argument disables this mode. A positive argument or | 125 A negative prefix argument disables this mode. A positive argument or |
| 120 argument of 0 enables it. | 126 argument of 0 enables it. |
| 121 | 127 |