From 8732725bae456398d4cf2d5e5e336cbe2a9d63de Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Sun, 4 Dec 2016 14:37:37 +0000 Subject: [PATCH 13/21] Remove XEmacs-specific horizontal scrollbar handling in ispell.el * lisp/textmodes/ispell.el (ispell-command-loop): Remove XEmacs-specific code. --- lisp/textmodes/ispell.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 568b8a2..f7dac11 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2094,15 +2094,9 @@ ispell-command-loop "-- %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 -- 2.7.4