diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-08-03 17:38:07 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-08-03 17:38:07 +0000 |
commit | 807eab83f4bc5af4247f690ee75bc406e71c5701 (patch) | |
tree | 8279d01ebf4a413d94792845d529a24ab3ce540a /lisp/rsz-mini.el | |
parent | ca8ff68d0cd84895df84889b2379a2f0bfa03f23 (diff) | |
download | emacs-807eab83f4bc5af4247f690ee75bc406e71c5701.tar.gz |
(resize-minibuffer-setup): Use make-local-hook.
Diffstat (limited to 'lisp/rsz-mini.el')
-rw-r--r-- | lisp/rsz-mini.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el index 684a55cf42c..37c63c26dee 100644 --- a/lisp/rsz-mini.el +++ b/lisp/rsz-mini.el @@ -7,7 +7,7 @@ ;; Maintainer: friedman@prep.ai.mit.edu ;; Keywords: minibuffer, window, frame, display ;; Status: Known to work in FSF GNU Emacs 19.26 and later. -;; $Id: rsz-mini.el,v 1.7 1994/07/13 17:19:23 friedman Exp friedman $ +;; $Id: rsz-mini.el,v 1.8 1995/04/08 08:22:07 friedman Exp rms $ ;; This file is part of GNU Emacs. @@ -153,13 +153,12 @@ counterparts." (make-local-variable 'resize-minibuffer-frame-original-height) (setq resize-minibuffer-frame-original-height (frame-height)) - (make-local-variable 'post-command-hook) - ;; Copy this because add-hook modifies the list structure. - (setq post-command-hook (copy-sequence post-command-hook)) - (add-hook 'post-command-hook 'resize-minibuffer-frame 'append) + (make-local-hook 'post-command-hook) + (add-hook 'post-command-hook 'resize-minibuffer-frame 'append t) - (make-local-variable 'minibuffer-exit-hook) - (add-hook 'minibuffer-exit-hook 'resize-minibuffer-frame-restore) + (make-local-hook 'minibuffer-exit-hook) + (add-hook 'minibuffer-exit-hook 'resize-minibuffer-frame-restore + nil t) (resize-minibuffer-frame)))) (t |