Mercurial > emacs
changeset 30803:a6e11bca863a
(ispell-graphic-p): New constant.
(ispell-choices-win-default-height, ispell-help):
Use `ispell-graphic-p' instead of `xemacsp'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 15 Aug 2000 12:06:42 +0000 |
| parents | fcfb193a2a39 |
| children | fa469be05ab6 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)