Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove XEmacs-specific horizontal scrollbar handling in ispell.el

Browse source 
* lisp/textmodes/ispell.el (ispell-command-loop): Remove
XEmacs-specific code.
This commit is contained in:
Reuben Thomas 2016-12-04 14:37:37 +00:00
parent 8245e5b9b0
commit 6e88249cdc
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/ispell.el
View file

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