Mercurial > hg > xemacs-beta
diff lisp/modes/rsz-minibuf.el @ 134:34a5b81f86ba r20-2b1
Import from CVS: tag r20-2b1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:30:11 +0200 |
parents | 360340f9fd5f |
children | 5a88923fcbfe |
line wrap: on
line diff
--- a/lisp/modes/rsz-minibuf.el Mon Aug 13 09:29:37 2007 +0200 +++ b/lisp/modes/rsz-minibuf.el Mon Aug 13 09:30:11 2007 +0200 @@ -10,7 +10,7 @@ ;;; Keywords: minibuffer, window, frames, display ;;; Status: Known to work in FSF GNU Emacs 19.23 and Lucid Emacs 19.9. -;;; $Id: rsz-minibuf.el,v 1.3 1997/03/08 23:26:27 steve Exp $ +;;; $Id: rsz-minibuf.el,v 1.4 1997/04/19 23:21:04 steve Exp $ ;;; This program is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -61,36 +61,52 @@ ;;;###autoload -(defvar resize-minibuffer-mode nil - "*If non-`nil', resize the minibuffer so its entire contents are visible.") + +(defgroup resize-minibuffer nil + "Dynamically resize minibuffer to display entire contents" + :group 'frames) + + +(defcustom resize-minibuffer-mode nil + "*If non-`nil', resize the minibuffer so its entire contents are visible." + :type 'boolean + :group 'resize-minibuffer) ;;;###autoload -(defvar resize-minibuffer-window-max-height nil +(defcustom 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.") +which the active minibuffer window resides." + :type '(choice (const nil) integer) + :group 'resize-minibuffer) ;;;###autoload -(defvar resize-minibuffer-window-exactly t +(defcustom 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.") +never get smaller while it is active." + :type 'boolean + :group 'resize-minibuffer) ;;;###autoload -(defvar resize-minibuffer-frame nil - "*If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height.") +(defcustom resize-minibuffer-frame nil + "*If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height." + :type 'boolean + :group 'resize-minibuffer) ;;;###autoload -(defvar resize-minibuffer-frame-max-height nil +(defcustom 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.") ;;;###autoload -(defvar resize-minibuffer-frame-exactly nil +(defcustom 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.") +never get smaller while it is active." + :type 'boolean + :group 'resize-minibuffer) ;;;###autoload