diff options
author | Martin Rudalics <rudalics@gmx.at> | 2013-12-17 18:29:11 +0100 |
---|---|---|
committer | Martin Rudalics <rudalics@gmx.at> | 2013-12-17 18:29:11 +0100 |
commit | cf2b7efc78f0004a58b14a1eb470a306a139197d (patch) | |
tree | f662c7dfca8d066a4eb328a2b0bdc0e191021cd0 /lisp/register.el | |
parent | ed3af8a771c38048f075b81bc6c6fafa6dc5aff3 (diff) |
Remove no more needed bindings of split-height-threshold.
* dired.el (dired-mark-pop-up):
* register.el (register-preview): Don't bind
split-height-threshold here since it's now done in
display-buffer-below-selected.
Diffstat (limited to 'lisp/register.el')
-rw-r--r-- | lisp/register.el | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/lisp/register.el b/lisp/register.el index 623b1f2c0c8..cad26124fdd 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -122,22 +122,21 @@ See the documentation of the variable `register-alist' for possible VALUEs." "Pop up a window to show register preview in BUFFER. If SHOW-EMPTY is non-nil show the window even if no registers." (when (or show-empty (consp register-alist)) - (let ((split-height-threshold 0)) - (with-temp-buffer-window - buffer - (cons 'display-buffer-below-selected - '((window-height . fit-window-to-buffer))) - nil - (with-current-buffer standard-output - (setq cursor-in-non-selected-windows nil) - (mapc - (lambda (r) - (insert (or (run-hook-with-args-until-success - 'register-preview-functions r) - (format "%s %s\n" - (concat (single-key-description (car r)) ":") - (register-describe-oneline (car r)))))) - register-alist)))))) + (with-temp-buffer-window + buffer + (cons 'display-buffer-below-selected + '((window-height . fit-window-to-buffer))) + nil + (with-current-buffer standard-output + (setq cursor-in-non-selected-windows nil) + (mapc + (lambda (r) + (insert (or (run-hook-with-args-until-success + 'register-preview-functions r) + (format "%s %s\n" + (concat (single-key-description (car r)) ":") + (register-describe-oneline (car r)))))) + register-alist))))) (defun register-read-with-preview (prompt) "Read an event with register preview using PROMPT. |