diff options
author | Jan Djärv <[email protected]> | 2006-12-30 15:23:38 +0000 |
---|---|---|
committer | Jan Djärv <[email protected]> | 2006-12-30 15:23:38 +0000 |
commit | 84f1b4544ba27e301ef49659b8634f0321fa70de (patch) | |
tree | 14dc26907cfee7eec332e5a619b45f96496a5e0a /lisp/term | |
parent | f62c3ee2001790189c37ff7ec53586ffabfd0ecb (diff) |
Set scroll bar mode to right if set by X resources.
Diffstat (limited to 'lisp/term')
-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 e97d375270..548cae9321 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -2484,6 +2484,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) |