Mercurial > hg > xemacs-beta

comparison lisp/resize-minibuffer.el @ 776:79940b592197

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-15 07:43:14 by ben] .cvsignore: ignore .tmp files that are getting auto-created by VC. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). alloc.c, emacs.c, lisp.h: add new -no-packages. make sure list of args for sorting is actually correct. clean up arg parsing code. xemacs.mak: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. mule\chinese.el, mule\japan-util.el: fix warnings. behavior-defs.el: fix errors with require. bytecomp-runtime.el: add new funs {when,and}-{f}boundp, clean up docs. cus-edit.el: pretty-print values. dump-paths.el, find-paths.el, startup.el, setup-paths.el: fix problems/inconsistencies parsing options. support new -no-packages option. merge code duplication in dump-paths and startup. lisp-mode.el: indent macrolet and labels correctly. update comments about lisp-indent-function. flet already handled in cl. apropos.el, auto-save.el, buff-menu.el, cl-extra.el, dragdrop.el, faces.el, files.el, fill.el, font-lock.el, font.el, gtk-faces.el, gui.el, help.el, hyper-apropos.el, info.el, isearch-mode.el, keymap.el, lisp-mnt.el, mouse.el, package-admin.el, package-get.el, printer.el, process.el, resize-minibuffer.el, simple.el, toolbar-items.el, wid-edit.el, win32-native.el: fix warnings. very-early-lisp.el: update docs. mule\chinese.el, mule\japan-util.el: fix warnings. Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs). Makefile.in.in: Use -no-packages to avoid problems with package files shadowing core files (e.g. unicode.el in mule-ucs).
author ben
date Fri, 15 Mar 2002 07:43:43 +0000
parents d682c0f82a71
children 94ecba3ecd77
comparison
equal deleted inserted replaced
775:7d972c3de90a 776:79940b592197
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.3 2002/03/13 10:00:06 ben Exp $ 39 ;; $Id: resize-minibuffer.el,v 1.4 2002/03/15 07:43:21 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 (if-boundp 'icomplete-mode icomplete-mode) 163 (unless (and-boundp 'icomplete-mode icomplete-mode)
164 (resize-minibuffer-frame))))) 164 (resize-minibuffer-frame)))))
165 (t 165 (t
166 (make-local-hook 'post-command-hook) 166 (make-local-hook 'post-command-hook)
167 (add-hook 'post-command-hook 'resize-minibuffer-window nil t) 167 (add-hook 'post-command-hook 'resize-minibuffer-window nil t)
168 (unless (if-boundp 'icomplete-mode icomplete-mode) 168 (unless (and-boundp 'icomplete-mode icomplete-mode)
169 (resize-minibuffer-window))))))) 169 (resize-minibuffer-window)))))))
170 170
171 (defun resize-minibuffer-count-window-lines (&optional start end) 171 (defun resize-minibuffer-count-window-lines (&optional start end)
172 "Return number of window lines occupied by text in region. 172 "Return number of window lines occupied by text in region.
173 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