summaryrefslogtreecommitdiff
path: root/lisp/textmodes/ispell.el
diff options
context:
space:
mode:
authorReuben Thomas <rrt@sc3d.org>2016-12-04 14:05:07 +0000
committerReuben Thomas <rrt@sc3d.org>2016-12-13 19:43:48 +0000
commitc89dc9d8f354260cb1a32823660b676166fdaf94 (patch)
tree06fe17dc1c2c4cd9c956ee71058960a5f183a102 /lisp/textmodes/ispell.el
parent854ed8a6d5e2c85de38a25a7b2158b11d885d1db (diff)
downloademacs-c89dc9d8f354260cb1a32823660b676166fdaf94.tar.gz
Remove XEmacs and old Emacs highlighting code
* lisp/textmodes/ispell.el (ispell-highlight-spelling-error-xemacs): Remove. (ispell-highlight-spelling-error): Assume display-color-p exists.
Diffstat (limited to 'lisp/textmodes/ispell.el')
-rw-r--r--lisp/textmodes/ispell.el22
1 files changed, 3 insertions, 19 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 6246eb3bae8..95e87e430d0 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2633,17 +2633,6 @@ Optional REFRESH will unhighlighted then highlight, using block cursor
(if (eq 'block refresh) start (- start 2)) end t))))
-(defun ispell-highlight-spelling-error-xemacs (start end &optional highlight)
- "Highlight the word from START to END using `isearch-highlight'.
-When the optional third arg HIGHLIGHT is set, the word is highlighted,
-otherwise it is displayed normally."
- (if highlight
- (isearch-highlight start end)
- (isearch-dehighlight))
- ;;(sit-for 0)
- )
-
-
(defun ispell-highlight-spelling-error-overlay (start end &optional highlight)
"Highlight the word from START to END using overlays.
When the optional third arg HIGHLIGHT is set, the word is highlighted
@@ -2679,14 +2668,9 @@ The variable `ispell-highlight-face' selects the face to use for highlighting."
(defun ispell-highlight-spelling-error (start end &optional highlight refresh)
- (cond
- ((featurep 'xemacs)
- (ispell-highlight-spelling-error-xemacs start end highlight))
- ((and (featurep 'faces)
- (or (and (fboundp 'display-color-p) (display-color-p))
- window-system))
- (ispell-highlight-spelling-error-overlay start end highlight))
- (t (ispell-highlight-spelling-error-generic start end highlight refresh))))
+ (if (display-color-p)
+ (ispell-highlight-spelling-error-overlay start end highlight)
+ (ispell-highlight-spelling-error-generic start end highlight refresh)))
(defun ispell-display-buffer (buffer)
"Show BUFFER in new window above selected one.