diff options
| author | Richard M. Stallman | 1998-01-03 07:17:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-03 07:17:25 +0000 |
| commit | 6fc7e037746e106f8d47d28412dcb7cddbf9d593 (patch) | |
| tree | c2636775191b0cfb4702c5a250c720f0c3701e27 | |
| parent | 835766b6edb523d051b23ecf8a1ebd50e48f4915 (diff) | |
| download | emacs-6fc7e037746e106f8d47d28412dcb7cddbf9d593.tar.gz emacs-6fc7e037746e106f8d47d28412dcb7cddbf9d593.zip | |
(resize-minibuffer-mode): Variable customized to
automatically load the package.
| -rw-r--r-- | lisp/rsz-mini.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el index 647f1d46cc0..d1e3af9276e 100644 --- a/lisp/rsz-mini.el +++ b/lisp/rsz-mini.el | |||
| @@ -7,7 +7,7 @@ | |||
| 7 | ;; Maintainer: friedman@prep.ai.mit.edu | 7 | ;; Maintainer: friedman@prep.ai.mit.edu |
| 8 | ;; Keywords: minibuffer, window, frame, display | 8 | ;; Keywords: minibuffer, window, frame, display |
| 9 | 9 | ||
| 10 | ;; $Id$ | 10 | ;; $Id: rsz-mini.el,v 1.17 1997/06/23 08:21:26 friedman Exp rms $ |
| 11 | 11 | ||
| 12 | ;; This file is part of GNU Emacs. | 12 | ;; This file is part of GNU Emacs. |
| 13 | 13 | ||
| @@ -61,11 +61,15 @@ | |||
| 61 | "Dynamically resize minibuffer to display entire contents" | 61 | "Dynamically resize minibuffer to display entire contents" |
| 62 | :group 'frames) | 62 | :group 'frames) |
| 63 | 63 | ||
| 64 | ;;;###autoload | ||
| 65 | (defcustom resize-minibuffer-mode nil | 64 | (defcustom resize-minibuffer-mode nil |
| 66 | "*If non-`nil', resize the minibuffer so its entire contents are visible." | 65 | "*If non-`nil', resize the minibuffer so its entire contents are visible. |
| 66 | You must modify via \\[customize] for this variable to have an effect." | ||
| 67 | :set (lambda (symbol value) | ||
| 68 | (resize-minibuffer-mode (if value 1 -1))) | ||
| 69 | :initialize 'custom-initialize-default | ||
| 67 | :type 'boolean | 70 | :type 'boolean |
| 68 | :group 'resize-minibuffer) | 71 | :group 'resize-minibuffer |
| 72 | :require 'rsz-mini) | ||
| 69 | 73 | ||
| 70 | ;;;###autoload | 74 | ;;;###autoload |
| 71 | (defcustom resize-minibuffer-window-max-height nil | 75 | (defcustom resize-minibuffer-window-max-height nil |
| @@ -262,6 +266,9 @@ respectively." | |||
| 262 | (frame-width) | 266 | (frame-width) |
| 263 | resize-minibuffer-frame-original-height)) | 267 | resize-minibuffer-frame-original-height)) |
| 264 | 268 | ||
| 269 | (if resize-minibuffer-mode | ||
| 270 | (resize-minibuffer-mode 1)) | ||
| 271 | |||
| 265 | (provide 'rsz-mini) | 272 | (provide 'rsz-mini) |
| 266 | 273 | ||
| 267 | ;; rsz-mini.el ends here | 274 | ;; rsz-mini.el ends here |