diff options
Diffstat (limited to 'lisp/term/x-win.el')
| -rw-r--r-- | lisp/term/x-win.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 518c7b9f58e..6dcaaac0958 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2463,6 +2463,10 @@ order until succeed.") (if res-selection-timeout (setq x-selection-timeout (string-to-number res-selection-timeout)))) +;; Set scroll bar mode to right if set by X resources. Default is left. +(if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right") + (customize-set-variable 'scroll-bar-mode 'right)) + (defun x-win-suspend-error () (error "Suspending an Emacs running under X makes no sense")) (add-hook 'suspend-hook 'x-win-suspend-error) |