91 lines
3.4 KiB
EmacsLisp
91 lines
3.4 KiB
EmacsLisp
|
;;; smooth-scrolling-autoloads.el --- automatically extracted autoloads
|
|||
|
|
;;
|
|||
|
|
;;; Code:
|
|||
|
|
|
|||
|
|
(add-to-list 'load-path (directory-file-name
|
|||
|
|
(or (file-name-directory #$) (car load-path))))
|
|||
|
|
|
|||
|
|
|
|||
|
|
;;;### (autoloads nil "smooth-scrolling" "smooth-scrolling.el" (0
|
|||
|
|
;;;;;; 0 0 0))
|
|||
|
|
;;; Generated autoloads from smooth-scrolling.el
|
|||
|
|
|
|||
|
|
(defvar smooth-scrolling-mode nil "\
|
|||
|
|
Non-nil if Smooth-Scrolling mode is enabled.
|
|||
|
|
See the `smooth-scrolling-mode' command
|
|||
|
|
for a description of this minor mode.
|
|||
|
|
Setting this variable directly does not take effect;
|
|||
|
|
either customize it (see the info node `Easy Customization')
|
|||
|
|
or call the function `smooth-scrolling-mode'.")
|
|||
|
|
|
|||
|
|
(custom-autoload 'smooth-scrolling-mode "smooth-scrolling" nil)
|
|||
|
|
|
|||
|
|
(autoload 'smooth-scrolling-mode "smooth-scrolling" "\
|
|||
|
|
Make emacs scroll smoothly
|
|||
|
|
|
|||
|
|
\(fn &optional ARG)" t nil)
|
|||
|
|
|
|||
|
|
(defvar smooth-scroll-margin 10 "\
|
|||
|
|
Number of lines of visible margin at the top and bottom of a window.
|
|||
|
|
If the point is within these margins, then scrolling will occur
|
|||
|
|
smoothly for `previous-line' at the top of the window, and for
|
|||
|
|
`next-line' at the bottom.
|
|||
|
|
|
|||
|
|
This is very similar in its goal to `scroll-margin'. However, it
|
|||
|
|
is implemented by activating `smooth-scroll-down' and
|
|||
|
|
`smooth-scroll-up' advise via `defadvice' for `previous-line' and
|
|||
|
|
`next-line' respectively. As a result it avoids problems
|
|||
|
|
afflicting `scroll-margin', such as a sudden jump and unexpected
|
|||
|
|
highlighting of a region when the mouse is clicked in the margin.
|
|||
|
|
|
|||
|
|
Scrolling only occurs when the point is closer to the window
|
|||
|
|
boundary it is heading for (top or bottom) than the middle of the
|
|||
|
|
window. This is to intelligently handle the case where the
|
|||
|
|
margins cover the whole buffer (e.g. `smooth-scroll-margin' set
|
|||
|
|
to 5 and `window-height' returning 10 or less).
|
|||
|
|
|
|||
|
|
See also `smooth-scroll-strict-margins'.")
|
|||
|
|
|
|||
|
|
(custom-autoload 'smooth-scroll-margin "smooth-scrolling" t)
|
|||
|
|
|
|||
|
|
(defvar smooth-scroll-strict-margins t "\
|
|||
|
|
If true, the advice code supporting `smooth-scroll-margin'
|
|||
|
|
will use `count-screen-lines' to determine the number of
|
|||
|
|
*visible* lines between the point and the window top/bottom,
|
|||
|
|
rather than `count-lines' which obtains the number of actual
|
|||
|
|
newlines. This is because there might be extra newlines hidden
|
|||
|
|
by a mode such as folding-mode, outline-mode, org-mode etc., or
|
|||
|
|
fewer due to very long lines being displayed wrapped when
|
|||
|
|
`truncate-lines' is nil.
|
|||
|
|
|
|||
|
|
However, using `count-screen-lines' can supposedly cause
|
|||
|
|
performance issues in buffers with extremely long lines. Setting
|
|||
|
|
`cache-long-line-scans' may be able to address this;
|
|||
|
|
alternatively you can set this variable to nil so that the advice
|
|||
|
|
code uses `count-lines', and put up with the fact that sometimes
|
|||
|
|
the point will be allowed to stray into the margin.")
|
|||
|
|
|
|||
|
|
(custom-autoload 'smooth-scroll-strict-margins "smooth-scrolling" t)
|
|||
|
|
|
|||
|
|
(autoload 'enable-smooth-scroll-for-function "smooth-scrolling" "\
|
|||
|
|
Define advice on FUNC to do smooth scrolling.
|
|||
|
|
|
|||
|
|
This adds after advice with name `smooth-scroll' to FUNC.
|
|||
|
|
|
|||
|
|
Note that the advice will not have an effect unless
|
|||
|
|
`smooth-scrolling-mode' is enabled.
|
|||
|
|
|
|||
|
|
\(fn FUNC)" nil t)
|
|||
|
|
|
|||
|
|
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "smooth-scrolling" '("do-smooth-scroll" "disable-smooth-scroll-for-function" "enable-smooth-scroll-for-function-conditionally" "window-is-at-bob-p" "smooth-scroll-")))
|
|||
|
|
|
|||
|
|
;;;***
|
|||
|
|
|
|||
|
|
;; Local Variables:
|
|||
|
|
;; version-control: never
|
|||
|
|
;; no-byte-compile: t
|
|||
|
|
;; no-update-autoloads: t
|
|||
|
|
;; coding: utf-8
|
|||
|
|
;; End:
|
|||
|
|
;;; smooth-scrolling-autoloads.el ends here
|