Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
84f1b454
Commit
84f1b454
authored
Dec 30, 2006
by
Jan Djärv
Browse files
Set scroll bar mode to right if set by X resources.
parent
f62c3ee2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
0 deletions
+4
-0
lisp/term/x-win.el
lisp/term/x-win.el
+4
-0
No files found.
lisp/term/x-win.el
View file @
84f1b454
...
...
@@ -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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment