Mercurial > emacs
comparison lisp/scroll-bar.el @ 18480:f0c705a82dca
(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 |