(auto-mode-alist): Add uppercase version of archive

[bpt/emacs.git] / lisp / rsz-mini.el

diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el
index 684a55c..1d42fc0 100644 (file)
--- 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.10 1996/01/09 23:21:29 kwzh Exp erik $
 
 ;; This file is part of GNU Emacs.
 
@@ -22,8 +22,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -51,12 +52,7 @@
 ;; minor-mode-alist because this mode is specific to the minibuffer, which
 ;; has no mode line.
 
-;; To use this package, put the following in your .emacs:
-;;
-;;     (autoload 'resize-minibuffer-mode "rsz-mini" nil t)
-;;
-;; Invoking the command `resize-minibuffer-mode' will then enable this mode.
-;; Simply loading this file will also enable it.
+;; To enable or disable this mode, use M-x resize-minibuffer-mode.
 
 ;;; Code:
 
@@ -153,13 +149,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