Mercurial > emacs
comparison lisp/rsz-mini.el @ 21269:b25d5f1dd2de
(resize-minibuffer-mode): Make it a proper minor
mode: toggle resize-minibuffer mode when called without argument.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 23 Mar 1998 13:18:54 +0000 |
| parents | 9b78b337e8bf |
| children | 808ecc2eaa84 |
comparison
equal
deleted
inserted
replaced
| 21268:74fc1642fe30 | 21269:b25d5f1dd2de |
|---|---|
| 5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu> | 5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu> |
| 6 ;; Roland McGrath <roland@prep.ai.mit.edu> | 6 ;; Roland McGrath <roland@prep.ai.mit.edu> |
| 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: rsz-mini.el,v 1.17 1997/06/23 08:21:26 friedman Exp rms $ | 10 ;; $Id: rsz-mini.el,v 1.18 1998/01/03 07:17:25 rms Exp $ |
| 11 | 11 |
| 12 ;; This file is part of GNU Emacs. | 12 ;; This file is part of GNU Emacs. |
| 13 | 13 |
| 14 ;; GNU Emacs is free software; you can redistribute it and/or modify | 14 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 15 ;; it under the terms of the GNU General Public License as published by | 15 ;; it under the terms of the GNU General Public License as published by |
| 116 (defvar resize-minibuffer-frame-original-height nil) | 116 (defvar resize-minibuffer-frame-original-height nil) |
| 117 | 117 |
| 118 | 118 |
| 119 ;;;###autoload | 119 ;;;###autoload |
| 120 (defun resize-minibuffer-mode (&optional prefix) | 120 (defun resize-minibuffer-mode (&optional prefix) |
| 121 "Enable or disable resize-minibuffer mode. | 121 "Toggle resize-minibuffer mode. |
| 122 A negative prefix argument disables this mode. A positive argument or | 122 With argument, enable resize-minibuffer mode if and only if argument |
| 123 argument of 0 enables it. | 123 is positive. |
| 124 | 124 |
| 125 When this minor mode is enabled, the minibuffer is dynamically resized to | 125 When this minor mode is enabled, the minibuffer is dynamically resized to |
| 126 contain the entire region of text put in it as you type. | 126 contain the entire region of text put in it as you type. |
| 127 | 127 |
| 128 The variable `resize-minibuffer-mode' is set to t or nil depending on | 128 The variable `resize-minibuffer-mode' is set to t or nil depending on |
| 140 way to make more text visible at once is to increase the size of the frame. | 140 way to make more text visible at once is to increase the size of the frame. |
| 141 The variable `resize-minibuffer-frame' controls whether this should be | 141 The variable `resize-minibuffer-frame' controls whether this should be |
| 142 done. The variables `resize-minibuffer-frame-max-height' and | 142 done. The variables `resize-minibuffer-frame-max-height' and |
| 143 `resize-minibuffer-frame-exactly' are analogous to their window | 143 `resize-minibuffer-frame-exactly' are analogous to their window |
| 144 counterparts." | 144 counterparts." |
| 145 (interactive "p") | 145 (interactive "P") |
| 146 (or prefix (setq prefix 0)) | 146 (setq resize-minibuffer-mode |
| 147 (cond | 147 (if prefix |
| 148 ((>= prefix 0) | 148 (> (prefix-numeric-value prefix) 0) |
| 149 (setq resize-minibuffer-mode t)) | 149 (not resize-minibuffer-mode))) |
| 150 (t | |
| 151 (setq resize-minibuffer-mode nil))) | |
| 152 (add-hook 'minibuffer-setup-hook 'resize-minibuffer-setup)) | 150 (add-hook 'minibuffer-setup-hook 'resize-minibuffer-setup)) |
| 153 | 151 |
| 154 (defun resize-minibuffer-setup () | 152 (defun resize-minibuffer-setup () |
| 155 (cond | 153 (cond |
| 156 (resize-minibuffer-mode | 154 (resize-minibuffer-mode |