Mercurial > emacs
changeset 18418:da941474d947
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.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Mon, 23 Jun 1997 08:21:26 +0000 |
| parents | 9a272a7dae12 |
| children | 9880156cf5b6 |
| files | lisp/rsz-mini.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rsz-mini.el Mon Jun 23 06:34:29 1997 +0000 +++ b/lisp/rsz-mini.el Mon Jun 23 08:21:26 1997 +0000 @@ -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 <friedman@prep.ai.mit.edu> ;; Roland McGrath <roland@prep.ai.mit.edu> ;; 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 @@ ((>= 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 @@ (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