diff options
| author | Juri Linkov <juri@jurta.org> | 2010-04-16 02:51:12 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2010-04-16 02:51:12 +0300 |
| commit | a4b000fb3dc67a7eedc388acf47c2002b4918665 (patch) | |
| tree | cde30031369835c89e5729e877e6a86bf81456af /lisp/mwheel.el | |
| parent | 4874f5e6d6a2d6d121814cb1638d78e5f1cd3b83 (diff) | |
| download | emacs-a4b000fb3dc67a7eedc388acf47c2002b4918665.tar.gz | |
Add the `scroll-command' property.
* window.c: Add Qscroll_command.
Remove Vscroll_preserve_screen_position_commands.
(window_scroll_pixel_based, window_scroll_line_based): Check the
`scroll-command' property on the last command instead of searching
the last command in Vscroll_preserve_screen_position_commands.
(syms_of_window): Initialize and staticpro `Qscroll_command'.
Put Qscroll_command property on Qscroll_up and Qscroll_down.
(scroll-preserve-screen-position): Doc fix.
(Vscroll_preserve_screen_position_commands): Remove variable.
* simple.el (scroll-up-command, scroll-down-command)
(scroll-up-line, scroll-down-line): Put `scroll-command'
property on the these symbols. Remove them from
`scroll-preserve-screen-position-commands'.
* mwheel.el (mwheel-scroll): Put `scroll-command' and
`isearch-scroll' properties on the `mwheel-scroll' symbol.
Remove it from `scroll-preserve-screen-position-commands'.
* isearch.el (isearch-allow-scroll): Doc fix.
Diffstat (limited to 'lisp/mwheel.el')
| -rw-r--r-- | lisp/mwheel.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index f88b2e86503..224920e515f 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -246,7 +246,8 @@ This should only be bound to mouse buttons 4 and 5." (run-with-timer mouse-wheel-inhibit-click-time nil 'mwheel-inhibit-click-timeout)))) -(add-to-list 'scroll-preserve-screen-position-commands 'mwheel-scroll) +(put 'mwheel-scroll 'scroll-command t) +(put 'mwheel-scroll 'isearch-scroll t) (defvar mwheel-installed-bindings nil) |