diff options
author | Miles Bader <[email protected]> | 2000-08-15 12:06:42 +0000 |
---|---|---|
committer | Miles Bader <[email protected]> | 2000-08-15 12:06:42 +0000 |
commit | fde143e86e7df26085ed957c3e913fad021a9ace (patch) | |
tree | a7b8bee13473e983153031282c81b273463591d1 /lisp/textmodes | |
parent | b0a0e26336c67fb0d23d92ec688913b1be3644c1 (diff) |
(ispell-graphic-p): New constant.
(ispell-choices-win-default-height, ispell-help):
Use `ispell-graphic-p' instead of `xemacsp'.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r-- | lisp/textmodes/ispell.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index ae2900f4f9..c888cf0998 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) |