From a8a9b70d54ad9c8ee99c79e3d9db740fbec87915 Mon Sep 17 00:00:00 2001 From: Noah Friedman Date: Mon, 23 Jun 1997 08:21:26 +0000 Subject: [PATCH] Update copyright year. Put back RCS version comment string, which rms keeps removing. Don't call resize-minibuffer-mode at load time. Don't modify minibuffer-setup-hook at load time. (resize-minibuffer-mode): Add resize-minibuffer-setup to minibuffer-setup-hook. --- lisp/rsz-mini.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/rsz-mini.el b/lisp/rsz-mini.el index 7f3313a7286..647f1d46cc0 100644 --- a/lisp/rsz-mini.el +++ b/lisp/rsz-mini.el @@ -1,12 +1,14 @@ ;;; rsz-mini.el --- dynamically resize minibuffer to display entire contents -;; Copyright (C) 1990, 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993, 1994, 1995, 1997 Free Software Foundation, Inc. ;; Author: Noah Friedman ;; Roland McGrath ;; Maintainer: friedman@prep.ai.mit.edu ;; Keywords: minibuffer, window, frame, display +;; $Id$ + ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify @@ -59,7 +61,6 @@ "Dynamically resize minibuffer to display entire contents" :group 'frames) - ;;;###autoload (defcustom resize-minibuffer-mode nil "*If non-`nil', resize the minibuffer so its entire contents are visible." @@ -143,7 +144,8 @@ counterparts." ((>= prefix 0) (setq resize-minibuffer-mode t)) (t - (setq resize-minibuffer-mode nil)))) + (setq resize-minibuffer-mode nil))) + (add-hook 'minibuffer-setup-hook 'resize-minibuffer-setup)) (defun resize-minibuffer-setup () (cond @@ -260,10 +262,6 @@ respectively." (frame-width) resize-minibuffer-frame-original-height)) - (provide 'rsz-mini) -(add-hook 'minibuffer-setup-hook 'resize-minibuffer-setup) -(resize-minibuffer-mode) - ;; rsz-mini.el ends here -- 2.39.5