mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(ispell-graphic-p): New constant.

Browse Source 
(ispell-choices-win-default-height, ispell-help):
  Use `ispell-graphic-p' instead of `xemacsp'.
This commit is contained in:
Miles Bader 2000-08-15 12:06:42 +00:00
parent b0a0e26336
commit fde143e86e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/ispell.el
View File

@ -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)