Mercurial > hg > xemacs-beta

comparison lisp/modes/rsz-minibuf.el @ 165:5a88923fcbfe r20-3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b9
author cvs
date Mon, 13 Aug 2007 09:44:42 +0200
parents 34a5b81f86ba
children 489f57a838ef
comparison
equal deleted inserted replaced
164:4e0740e5aab2 165:5a88923fcbfe
1 ;;; rsz-minibuf.el --- dynamically resize minibuffer to display entire contents 1 ;;; rsz-minibuf.el --- dynamically resize minibuffer to display entire contents
2 2
3 ;;; Copyright (C) 1990 Roland McGrath 3 ;; Copyright (C) 1990 Roland McGrath
4 ;;; Copyright (C) 1993, 1994 Noah S. Friedman 4 ;; Copyright (C) 1993, 1994 Noah S. Friedman
5 5
6 ;;; Author: Noah Friedman <friedman@prep.ai.mit.edu> 6 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
7 ;;; Roland McGrath <roland@prep.ai.mit.edu> 7 ;; Author: Roland McGrath <roland@prep.ai.mit.edu>
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.4 1997/04/19 23:21:04 steve Exp $ 13 ;; This file is part of XEmacs.
14 14
15 ;;; This program is free software; you can redistribute it and/or modify 15 ;; XEmacs is free software; you can redistribute it and/or modify it
16 ;;; it under the terms of the GNU General Public License as published by 16 ;; 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.
19 ;;; 19
20 ;;; This program is distributed in the hope that it will be useful, 20 ;; XEmacs is distributed in the hope that it will be useful, but
21 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 ;;; GNU General Public License for more details. 23 ;; General Public License for more details.
24 ;;; 24
25 ;;; You should have received a copy of the GNU General Public License 25 ;; You should have received a copy of the GNU General Public License
26 ;;; along with this program; if not, you can either send email to this 26 ;; along with XEmacs; see the file COPYING. If not, you can either
27 ;;; program's maintainer or write to: The Free Software Foundation, 27 ;; send email to this program's maintainer or write to: The Free
28 ;;; Inc.; 675 Massachusetts Avenue; Cambridge, MA 02139, USA. 28 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
29 ;; 02111-1307, USA.
30
31 ;;; Synched up with: Not synched.
29 32
30 ;;; Commentary: 33 ;;; Commentary:
31 34
32 ;;; This package allows the entire contents (or as much as possible) of the 35 ;; This file has received maintenance by the XEmacs development team.
33 ;;; minibuffer to be visible at once when typing. As the end of a line is 36
34 ;;; reached, the minibuffer will resize itself. When the user is done 37 ;; $Id: rsz-minibuf.el,v 1.5 1997/06/26 02:31:05 steve Exp $
35 ;;; typing, the minibuffer will return to its original size. 38
36 39 ;; This package allows the entire contents (or as much as possible) of the
37 ;;; In window systems where it is possible to have a frame in which the 40 ;; minibuffer to be visible at once when typing. As the end of a line is
38 ;;; minibuffer is the only window, the frame itself can be resized. In FSF 41 ;; reached, the minibuffer will resize itself. When the user is done
39 ;;; GNU Emacs 19.22 and earlier, the frame may not be properly returned to 42 ;; typing, the minibuffer will return to its original size.
40 ;;; its original size after it ceases to be active because 43
41 ;;; `minibuffer-exit-hook' didn't exist until version 19.23. 44 ;; In window systems where it is possible to have a frame in which the
42 45 ;; minibuffer is the only window, the frame itself can be resized. In FSF
43 ;;; NOTE: The code to resize frames has not been tested under Lucid Emacs, 46 ;; GNU Emacs 19.22 and earlier, the frame may not be properly returned to
44 ;;; because detached minibuffers are broken. 47 ;; its original size after it ceases to be active because
45 48 ;; `minibuffer-exit-hook' didn't exist until version 19.23.
46 ;;; Note that the minibuffer and echo area are not the same! They simply 49
47 ;;; happen to occupy roughly the same place on the frame. Messages put in 50 ;; NOTE: The code to resize frames has not been tested under Lucid Emacs,
48 ;;; the echo area will not cause any resizing by this package. 51 ;; because detached minibuffers are broken.
49 52
50 ;;; This package is considered a minor mode but it doesn't put anything in 53 ;; Note that the minibuffer and echo area are not the same! They simply
51 ;;; minor-mode-alist because this mode is specific to the minibuffer, which 54 ;; happen to occupy roughly the same place on the frame. Messages put in
52 ;;; has no modeline. 55 ;; the echo area will not cause any resizing by this package.
53 56
54 ;;; To use this package, put the following in your .emacs: 57 ;; This package is considered a minor mode but it doesn't put anything in
55 ;;; 58 ;; minor-mode-alist because this mode is specific to the minibuffer, which
56 ;;; (autoload 'resize-minibuffer-mode "rsz-minibuf" nil t) 59 ;; has no modeline.
57 ;;; 60
58 ;;; Invoking the command `resize-minibuffer-mode' will then enable this mode. 61 ;; To use this package, put the following in your .emacs:
62 ;;
63 ;; (autoload 'resize-minibuffer-mode "rsz-minibuf" nil t)
64 ;;
65 ;; Invoking the command `resize-minibuffer-mode' will then enable this mode.
59 66
60 ;;; Code: 67 ;;; Code:
61 68
62 69
63 ;;;###autoload 70 ;;;###autoload
262 269
263 (provide 'rsz-minibuf) 270 (provide 'rsz-minibuf)
264 271
265 (add-hook 'minibuffer-setup-hook 'resize-minibuffer-setup) 272 (add-hook 'minibuffer-setup-hook 'resize-minibuffer-setup)
266 273
267 ;; rsz-minibuf.el ends here 274 ;;; rsz-minibuf.el ends here