Mercurial > emacs
comparison lisp/rsz-mini.el @ 12762:b616982e679b
(resize-minibuffer-setup): Use make-local-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Aug 1995 17:38:07 +0000 |
| parents | 056c7266a614 |
| children | e2d46e16a1ce |
comparison
equal
deleted
inserted
replaced
| 12761:bffb5ea6fb43 | 12762:b616982e679b |
|---|---|
| 5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu> | 5 ;; Author: Noah Friedman <friedman@prep.ai.mit.edu> |
| 6 ;; Roland McGrath <roland@prep.ai.mit.edu> | 6 ;; Roland McGrath <roland@prep.ai.mit.edu> |
| 7 ;; Maintainer: friedman@prep.ai.mit.edu | 7 ;; Maintainer: friedman@prep.ai.mit.edu |
| 8 ;; Keywords: minibuffer, window, frame, display | 8 ;; Keywords: minibuffer, window, frame, display |
| 9 ;; Status: Known to work in FSF GNU Emacs 19.26 and later. | 9 ;; Status: Known to work in FSF GNU Emacs 19.26 and later. |
| 10 ;; $Id: rsz-mini.el,v 1.7 1994/07/13 17:19:23 friedman Exp friedman $ | 10 ;; $Id: rsz-mini.el,v 1.8 1995/04/08 08:22:07 friedman Exp rms $ |
| 11 | 11 |
| 12 ;; This file is part of GNU Emacs. | 12 ;; This file is part of GNU Emacs. |
| 13 | 13 |
| 14 ;; GNU Emacs is free software; you can redistribute it and/or modify | 14 ;; GNU Emacs is free software; you can redistribute it and/or modify |
| 15 ;; it under the terms of the GNU General Public License as published by | 15 ;; it under the terms of the GNU General Public License as published by |
| 151 ;; since the frame can be resized by the window manager and | 151 ;; since the frame can be resized by the window manager and |
| 152 ;; that variable isn't updated. | 152 ;; that variable isn't updated. |
| 153 (make-local-variable 'resize-minibuffer-frame-original-height) | 153 (make-local-variable 'resize-minibuffer-frame-original-height) |
| 154 (setq resize-minibuffer-frame-original-height (frame-height)) | 154 (setq resize-minibuffer-frame-original-height (frame-height)) |
| 155 | 155 |
| 156 (make-local-variable 'post-command-hook) | 156 (make-local-hook 'post-command-hook) |
| 157 ;; Copy this because add-hook modifies the list structure. | 157 (add-hook 'post-command-hook 'resize-minibuffer-frame 'append t) |
| 158 (setq post-command-hook (copy-sequence post-command-hook)) | 158 |
| 159 (add-hook 'post-command-hook 'resize-minibuffer-frame 'append) | 159 (make-local-hook 'minibuffer-exit-hook) |
| 160 | 160 (add-hook 'minibuffer-exit-hook 'resize-minibuffer-frame-restore |
| 161 (make-local-variable 'minibuffer-exit-hook) | 161 nil t) |
| 162 (add-hook 'minibuffer-exit-hook 'resize-minibuffer-frame-restore) | |
| 163 | 162 |
| 164 (resize-minibuffer-frame)))) | 163 (resize-minibuffer-frame)))) |
| 165 (t | 164 (t |
| 166 (make-local-variable 'post-command-hook) | 165 (make-local-variable 'post-command-hook) |
| 167 ;; Copy this because add-hook modifies the list structure. | 166 ;; Copy this because add-hook modifies the list structure. |