Mercurial > emacs
changeset 74983:c0112a92bceb
Set scroll bar mode to right if set by X resources.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Sat, 30 Dec 2006 15:23:38 +0000 |
| parents | 3b9c6c0ac744 |
| children | 21f28d10d73a |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Sat Dec 30 15:23:24 2006 +0000 +++ b/lisp/term/x-win.el Sat Dec 30 15:23:38 2006 +0000 @@ -2484,6 +2484,10 @@ (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)