From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 3 Aug 1995 17:38:07 +0000 (+0000)
Subject: (resize-minibuffer-setup): Use make-local-hook.
X-Git-Tag: emacs-19.34~3098
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04752ffbf2d7cd3a39f469b85142496cd64341c8;p=emacs.git

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

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