Commit 04752ffb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(resize-minibuffer-setup): Use make-local-hook.

parent a249de79
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment