* lisp/term.el (term-mode): Use `window-text-height' (Bug#5615).

diff --git a/lisp/term.el b/lisp/term.el
index 5eb7b3e8ede67fb01c36d69fcd67c5b1ee611244..12a37cafbe18d4aeca68699b91acfc8a1aac9d56 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1007,7 +1007,7 @@ Entry to this mode runs the hooks on `term-mode-hook'."
   (setq indent-tabs-mode nil)
   (setq buffer-display-table term-display-table)
   (set (make-local-variable 'term-home-marker) (copy-marker 0))
-  (set (make-local-variable 'term-height) (1- (window-height)))
+  (set (make-local-variable 'term-height) (window-text-height))
   (set (make-local-variable 'term-width) (window-max-chars-per-line))
   (set (make-local-variable 'term-last-input-start) (make-marker))
   (set (make-local-variable 'term-last-input-end) (make-marker))