Remove XEmacs-specific horizontal scrollbar handling in ispell.el

* lisp/textmodes/ispell.el (ispell-command-loop): Remove
XEmacs-specific code.

1 files changed, 2 insertions, 8 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index f0bb5693515..8978d1460bc 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2094,15 +2094,9 @@ Global `ispell-quit' set to start location to continue spell session."
              "--  %b  --  word: " word
              "  --  dict: " (or ispell-current-dictionary "default")
              "  --  prog: " (file-name-nondirectory ispell-program-name)))
-      ;; XEmacs: no need for horizontal scrollbar in choices window
+      ;; No need for horizontal scrollbar in choices window
       (ispell-with-no-warnings
-       (and (fboundp 'set-specifier)
-            (boundp 'horizontal-scrollbar-visible-p)
-            (set-specifier horizontal-scrollbar-visible-p nil
-                           (cons (current-buffer) nil))))
-      (ispell-with-no-warnings
-       (and (boundp 'horizontal-scroll-bar)
-            (setq horizontal-scroll-bar nil)))
+       (setq horizontal-scroll-bar nil))
       (erase-buffer)
       (if guess
           (progn