Commit c89dc9d8 authored by Reuben Thomas's avatar Reuben Thomas
Browse files

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.
parent 854ed8a6
...@@ -2633,17 +2633,6 @@ Optional REFRESH will unhighlighted then highlight, using block cursor ...@@ -2633,17 +2633,6 @@ Optional REFRESH will unhighlighted then highlight, using block cursor
(if (eq 'block refresh) start (- start 2)) end t)))) (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) (defun ispell-highlight-spelling-error-overlay (start end &optional highlight)
"Highlight the word from START to END using overlays. "Highlight the word from START to END using overlays.
When the optional third arg HIGHLIGHT is set, the word is highlighted 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." ...@@ -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) (defun ispell-highlight-spelling-error (start end &optional highlight refresh)
(cond (if (display-color-p)
((featurep 'xemacs) (ispell-highlight-spelling-error-overlay start end highlight)
(ispell-highlight-spelling-error-xemacs start end highlight)) (ispell-highlight-spelling-error-generic start end highlight refresh)))
((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))))
(defun ispell-display-buffer (buffer) (defun ispell-display-buffer (buffer)
"Show BUFFER in new window above selected one. "Show BUFFER in new window above selected one.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment