Fix disabled scrollbar remains
This commit is contained in:
parent
2985a26901
commit
4353535a98
|
@ -158,13 +158,13 @@ the final step of executing code in `emacs-startup-hook'.")
|
||||||
(defun spacemacs//removes-gui-elements ()
|
(defun spacemacs//removes-gui-elements ()
|
||||||
"Remove the menu bar, tool bar and scroll bars."
|
"Remove the menu bar, tool bar and scroll bars."
|
||||||
;; removes the GUI elements
|
;; removes the GUI elements
|
||||||
|
(when (and (fboundp 'scroll-bar-mode) (not (eq scroll-bar-mode -1)))
|
||||||
|
(scroll-bar-mode -1))
|
||||||
(when (and (fboundp 'tool-bar-mode) (not (eq tool-bar-mode -1)))
|
(when (and (fboundp 'tool-bar-mode) (not (eq tool-bar-mode -1)))
|
||||||
(tool-bar-mode -1))
|
(tool-bar-mode -1))
|
||||||
(unless (spacemacs/window-system-is-mac)
|
(unless (spacemacs/window-system-is-mac)
|
||||||
(when (and (fboundp 'menu-bar-mode) (not (eq menu-bar-mode -1)))
|
(when (and (fboundp 'menu-bar-mode) (not (eq menu-bar-mode -1)))
|
||||||
(menu-bar-mode -1)))
|
(menu-bar-mode -1)))
|
||||||
(when (and (fboundp 'scroll-bar-mode) (not (eq scroll-bar-mode -1)))
|
|
||||||
(scroll-bar-mode -1))
|
|
||||||
;; tooltips in echo-aera
|
;; tooltips in echo-aera
|
||||||
(when (and (fboundp 'tooltip-mode) (not (eq tooltip-mode -1)))
|
(when (and (fboundp 'tooltip-mode) (not (eq tooltip-mode -1)))
|
||||||
(tooltip-mode -1)))
|
(tooltip-mode -1)))
|
||||||
|
|
Loading…
Reference in a new issue