Commit ec503c28 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(cua-scroll-down): Add CUA property.

parent 7ab4753e
......@@ -1016,7 +1016,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
(scroll-down arg)
(beginning-of-buffer (goto-char (point-min)))))))
(put 'cua-scroll-up 'CUA 'move)
(put 'cua-scroll-down 'CUA 'move)
;;; Cursor indications
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