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.

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.