Set scroll bar mode to right if set by X resources.

84f1b454 · Jan Djärv · f62c3ee2 · 84f1b454
Commit 84f1b454 authored Dec 30, 2006 by Jan Djärv
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

lisp/term/x-win.el lisp/term/x-win.el +4 -0

No files found.
--- 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)