mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(ruler-mode-left-scroll-bar-cols):

Browse Source 
Always round scroll-bar-width parameter up.
If it is nil, use 14.
This commit is contained in:
Richard M. Stallman 2002-09-12 03:21:21 +00:00
parent ad9d51b211
commit 1b3f70a03a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ruler-mode.el
View File

@ -451,8 +451,12 @@ C-mouse-2: hide tabs"
(defmacro ruler-mode-left-scroll-bar-cols ()
"Return the width, measured in columns, of the left vertical scrollbar."
'(if (eq (frame-parameter nil 'vertical-scroll-bars) 'left)
(round (or (frame-parameter nil 'scroll-bar-width) 0)
(frame-char-width))
(let ((sbw (frame-parameter nil 'scroll-bar-width)))
;; nil means it's a non-toolkit scroll bar,
;; and its width in columns is 14 pixels rounded up.
(unless sbw (setq sbw 14))
;; Always round up to multiple of columns.
(ceiling sbw (frame-char-width)))
0))
(defmacro ruler-mode-right-scroll-bar-cols ()