From: Jan Djärv <jan.h.d@swipnet.se>
Date: Sat, 30 Dec 2006 15:23:38 +0000 (+0000)
Subject: Set scroll bar mode to right if set by X resources.
X-Git-Tag: emacs-pretest-22.0.93~346
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=84f1b4544ba27e301ef49659b8634f0321fa70de;p=emacs.git

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

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index e97d3752704..548cae9321c 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)