From 84f1b4544ba27e301ef49659b8634f0321fa70de Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Sat, 30 Dec 2006 15:23:38 +0000 Subject: [PATCH] Set scroll bar mode to right if set by X resources. --- lisp/term/x-win.el | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 2.39.2