# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 966341202 0
# Node ID a6e11bca863ac8b9542d9626e7335ccce7bf518c
# Parent  fcfb193a2a39cbb309e130fb75dacc2da1d03186
(ispell-graphic-p): New constant.
(ispell-choices-win-default-height, ispell-help):
  Use `ispell-graphic-p' instead of `xemacsp'.

diff -r fcfb193a2a39 -r a6e11bca863a lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Tue Aug 15 12:02:34 2000 +0000
+++ b/lisp/textmodes/ispell.el	Tue Aug 15 12:06:42 2000 +0000
@@ -204,6 +204,12 @@
 (defconst version20p (string-match "20\\.[0-9]+\\.[0-9]+" emacs-version)
   "Non nil if using emacs version 20.")
 
+(defconst ispell-graphic-p
+  (if (fboundp 'display-graphic-p)
+      (display-graphic-p)
+    xemacsp)
+  "True if running on a `graphics capable' display.")
+
 (and (not version18p)
      (not (boundp 'epoch::version))
      (defalias 'ispell-check-version 'check-ispell-version))
@@ -270,7 +276,7 @@
   :type 'boolean
   :group 'ispell)
 
-(defcustom ispell-choices-win-default-height (if xemacsp 3 2)
+(defcustom ispell-choices-win-default-height (if ispell-graphic-p 3 2)
   "*The default size of the `*Choices*' window, including mode line.
 Must be greater than 1.
 XEmacs modeline is thicker than a line of text, so it partially covers the
@@ -1830,7 +1836,7 @@
       (save-window-excursion
 	(if ispell-help-in-bufferp
 	    (progn
-	      (ispell-overlay-window (if xemacsp 5 4))
+	      (ispell-overlay-window (if ispell-graphic-p 5 4))
 	      (switch-to-buffer (get-buffer-create "*Ispell Help*"))
 	      (insert (concat help-1 "\n" help-2 "\n" help-3))
 	      (sit-for 5)