Commit c9787897 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Whitespace changes.

parent 8d60818b
...@@ -138,8 +138,7 @@ use either M-x customize or the function `scroll-all-mode'." ...@@ -138,8 +138,7 @@ use either M-x customize or the function `scroll-all-mode'."
(defun scroll-all-check-to-scroll () (defun scroll-all-check-to-scroll ()
"Check `this-command' to see if a scroll is to be done." "Check `this-command' to see if a scroll is to be done."
(cond (cond ((eq this-command 'next-line)
((eq this-command 'next-line)
(call-interactively 'scroll-all-scroll-down-all)) (call-interactively 'scroll-all-scroll-down-all))
((eq this-command 'previous-line) ((eq this-command 'previous-line)
(call-interactively 'scroll-all-scroll-up-all)) (call-interactively 'scroll-all-scroll-up-all))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment