From fde143e86e7df26085ed957c3e913fad021a9ace Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 15 Aug 2000 12:06:42 +0000 Subject: [PATCH] (ispell-graphic-p): New constant. (ispell-choices-win-default-height, ispell-help): Use `ispell-graphic-p' instead of `xemacsp'. --- lisp/textmodes/ispell.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index ae2900f4f9a..c888cf09981 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -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 @@ This minimizes redisplay thrashing." :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 @@ SPC: Accept word this time. (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) -- 2.39.2