Mercurial > hg > xemacs-beta

comparison lisp/modes/rsz-minibuf.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 360340f9fd5f
children 5a88923fcbfe
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
8 ;;; Modified for Lucid Emacs By: Peter Stout <pds@cs.cmu.edu> 8 ;;; Modified for Lucid Emacs By: Peter Stout <pds@cs.cmu.edu>
9 ;;; Maintainer: friedman@prep.ai.mit.edu 9 ;;; Maintainer: friedman@prep.ai.mit.edu
10 ;;; Keywords: minibuffer, window, frames, display 10 ;;; Keywords: minibuffer, window, frames, display
11 ;;; Status: Known to work in FSF GNU Emacs 19.23 and Lucid Emacs 19.9. 11 ;;; Status: Known to work in FSF GNU Emacs 19.23 and Lucid Emacs 19.9.
12 12
13 ;;; $Id: rsz-minibuf.el,v 1.3 1997/03/08 23:26:27 steve Exp $ 13 ;;; $Id: rsz-minibuf.el,v 1.4 1997/04/19 23:21:04 steve Exp $
14 14
15 ;;; This program is free software; you can redistribute it and/or modify 15 ;;; This program is free software; you can redistribute it and/or modify
16 ;;; it under the terms of the GNU General Public License as published by 16 ;;; it under the terms of the GNU General Public License as published by
17 ;;; the Free Software Foundation; either version 2, or (at your option) 17 ;;; the Free Software Foundation; either version 2, or (at your option)
18 ;;; any later version. 18 ;;; any later version.
59 59
60 ;;; Code: 60 ;;; Code:
61 61
62 62
63 ;;;###autoload 63 ;;;###autoload
64 (defvar resize-minibuffer-mode nil 64
65 "*If non-`nil', resize the minibuffer so its entire contents are visible.") 65 (defgroup resize-minibuffer nil
66 66 "Dynamically resize minibuffer to display entire contents"
67 ;;;###autoload 67 :group 'frames)
68 (defvar resize-minibuffer-window-max-height nil 68
69
70 (defcustom resize-minibuffer-mode nil
71 "*If non-`nil', resize the minibuffer so its entire contents are visible."
72 :type 'boolean
73 :group 'resize-minibuffer)
74
75 ;;;###autoload
76 (defcustom resize-minibuffer-window-max-height nil
69 "*Maximum size the minibuffer window is allowed to become. 77 "*Maximum size the minibuffer window is allowed to become.
70 If less than 1 or not a number, the limit is the height of the frame in 78 If less than 1 or not a number, the limit is the height of the frame in
71 which the active minibuffer window resides.") 79 which the active minibuffer window resides."
72 80 :type '(choice (const nil) integer)
73 ;;;###autoload 81 :group 'resize-minibuffer)
74 (defvar resize-minibuffer-window-exactly t 82
83 ;;;###autoload
84 (defcustom resize-minibuffer-window-exactly t
75 "*If non-`nil', make minibuffer exactly the size needed to display all its contents. 85 "*If non-`nil', make minibuffer exactly the size needed to display all its contents.
76 Otherwise, the minibuffer window can temporarily increase in size but 86 Otherwise, the minibuffer window can temporarily increase in size but
77 never get smaller while it is active.") 87 never get smaller while it is active."
78 88 :type 'boolean
79 89 :group 'resize-minibuffer)
80 ;;;###autoload 90
81 (defvar resize-minibuffer-frame nil 91
82 "*If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height.") 92 ;;;###autoload
83 93 (defcustom resize-minibuffer-frame nil
84 ;;;###autoload 94 "*If non-`nil' and the active minibuffer is the sole window in its frame, allow changing the frame height."
85 (defvar resize-minibuffer-frame-max-height nil 95 :type 'boolean
96 :group 'resize-minibuffer)
97
98 ;;;###autoload
99 (defcustom resize-minibuffer-frame-max-height nil
86 "*Maximum size the minibuffer frame is allowed to become. 100 "*Maximum size the minibuffer frame is allowed to become.
87 If less than 1 or not a number, there is no limit.") 101 If less than 1 or not a number, there is no limit.")
88 102
89 ;;;###autoload 103 ;;;###autoload
90 (defvar resize-minibuffer-frame-exactly nil 104 (defcustom resize-minibuffer-frame-exactly nil
91 "*If non-`nil', make minibuffer frame exactly the size needed to display all its contents. 105 "*If non-`nil', make minibuffer frame exactly the size needed to display all its contents.
92 Otherwise, the minibuffer frame can temporarily increase in size but 106 Otherwise, the minibuffer frame can temporarily increase in size but
93 never get smaller while it is active.") 107 never get smaller while it is active."
108 :type 'boolean
109 :group 'resize-minibuffer)
94 110
95 111
96 ;;;###autoload 112 ;;;###autoload
97 (defun resize-minibuffer-mode (&optional prefix) 113 (defun resize-minibuffer-mode (&optional prefix)
98 "Enable or disable resize-minibuffer mode. 114 "Enable or disable resize-minibuffer mode.