Mercurial > hg > xemacs-beta
comparison lisp/resize-minibuffer.el @ 772:d682c0f82a71
[xemacs-hg @ 2002-03-13 10:00:06 by ben]
a few bytecomp warning fixes, run autoconf just in case
| author | ben |
|---|---|
| date | Wed, 13 Mar 2002 10:00:09 +0000 |
| parents | 943eaba38521 |
| children | 79940b592197 |
comparison
equal
deleted
inserted
replaced
| 771:943eaba38521 | 772:d682c0f82a71 |
|---|---|
| 34 | 34 |
| 35 ;;; Commentary: | 35 ;;; Commentary: |
| 36 | 36 |
| 37 ;; This file has received maintenance by the XEmacs development team. | 37 ;; This file has received maintenance by the XEmacs development team. |
| 38 | 38 |
| 39 ;; $Id: resize-minibuffer.el,v 1.2 2002/03/13 08:52:08 ben Exp $ | 39 ;; $Id: resize-minibuffer.el,v 1.3 2002/03/13 10:00:06 ben Exp $ |
| 40 | 40 |
| 41 ;; This package allows the entire contents (or as much as possible) of the | 41 ;; This package allows the entire contents (or as much as possible) of the |
| 42 ;; minibuffer to be visible at once when typing. As the end of a line is | 42 ;; minibuffer to be visible at once when typing. As the end of a line is |
| 43 ;; reached, the minibuffer will resize itself. When the user is done | 43 ;; reached, the minibuffer will resize itself. When the user is done |
| 44 ;; typing, the minibuffer will return to its original size. | 44 ;; typing, the minibuffer will return to its original size. |
| 158 (make-local-hook 'minibuffer-exit-hook) | 158 (make-local-hook 'minibuffer-exit-hook) |
| 159 (add-hook 'minibuffer-exit-hook 'resize-minibuffer-frame-restore | 159 (add-hook 'minibuffer-exit-hook 'resize-minibuffer-frame-restore |
| 160 nil t) | 160 nil t) |
| 161 (make-local-hook 'post-command-hook) | 161 (make-local-hook 'post-command-hook) |
| 162 (add-hook 'post-command-hook 'resize-minibuffer-frame nil t) | 162 (add-hook 'post-command-hook 'resize-minibuffer-frame nil t) |
| 163 (unless (and (boundp 'icomplete-mode) | 163 (unless (if-boundp 'icomplete-mode icomplete-mode) |
| 164 icomplete-mode) | |
| 165 (resize-minibuffer-frame))))) | 164 (resize-minibuffer-frame))))) |
| 166 (t | 165 (t |
| 167 (make-local-hook 'post-command-hook) | 166 (make-local-hook 'post-command-hook) |
| 168 (add-hook 'post-command-hook 'resize-minibuffer-window nil t) | 167 (add-hook 'post-command-hook 'resize-minibuffer-window nil t) |
| 169 (unless (and (boundp 'icomplete-mode) | 168 (unless (if-boundp 'icomplete-mode icomplete-mode) |
| 170 icomplete-mode) | |
| 171 (resize-minibuffer-window))))))) | 169 (resize-minibuffer-window))))))) |
| 172 | 170 |
| 173 (defun resize-minibuffer-count-window-lines (&optional start end) | 171 (defun resize-minibuffer-count-window-lines (&optional start end) |
| 174 "Return number of window lines occupied by text in region. | 172 "Return number of window lines occupied by text in region. |
| 175 The number of window lines may be greater than the number of actual lines | 173 The number of window lines may be greater than the number of actual lines |