Mercurial > emacs

comparison lisp/scroll-bar.el @ 18480:f0c705a82dca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scroll-bar-mode): Extra defvar to avoid warning.
author Richard M. Stallman <rms@gnu.org>
date Sat, 28 Jun 1997 00:44:52 +0000
parents dedaafd841c0
children 86c0d896480e
comparison
equal deleted inserted replaced
18479:dedaafd841c0 18480:f0c705a82dca
53 ;; with a large scroll bar portion can easily overflow a lisp int. 53 ;; with a large scroll bar portion can easily overflow a lisp int.
54 (truncate (/ (* (float (car num-denom)) whole) (cdr num-denom)))) 54 (truncate (/ (* (float (car num-denom)) whole) (cdr num-denom))))
55 55
56 56
57 ;;;; Helpful functions for enabling and disabling scroll bars. 57 ;;;; Helpful functions for enabling and disabling scroll bars.
58
59 (defvar scroll-bar-mode)
58 60
59 (defun set-scroll-bar-mode (ignore value) 61 (defun set-scroll-bar-mode (ignore value)
60 "Set `scroll-bar-mode' to VALUE and put the new value into effect." 62 "Set `scroll-bar-mode' to VALUE and put the new value into effect."
61 (setq scroll-bar-mode value) 63 (setq scroll-bar-mode value)
62 64