diff options
| author | Kim F. Storm | 2005-03-30 22:20:24 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-03-30 22:20:24 +0000 |
| commit | ec503c284c7c59d1f0b57fccad0f8ebc89f82d05 (patch) | |
| tree | 4b3a1f7d312db1ddd04348d7252bd91ea6ed8600 | |
| parent | 7ab4753e4932491f40cc8b6af63b6ed87bfa4519 (diff) | |
| download | emacs-ec503c284c7c59d1f0b57fccad0f8ebc89f82d05.tar.gz emacs-ec503c284c7c59d1f0b57fccad0f8ebc89f82d05.zip | |
(cua-scroll-down): Add CUA property.
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index d72dc91ad2b..7b2ba5c6fb2 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1016,7 +1016,7 @@ If ARG is the atom `-', scroll upward by nearly full screen." | |||
| 1016 | (scroll-down arg) | 1016 | (scroll-down arg) |
| 1017 | (beginning-of-buffer (goto-char (point-min))))))) | 1017 | (beginning-of-buffer (goto-char (point-min))))))) |
| 1018 | 1018 | ||
| 1019 | (put 'cua-scroll-up 'CUA 'move) | 1019 | (put 'cua-scroll-down 'CUA 'move) |
| 1020 | 1020 | ||
| 1021 | ;;; Cursor indications | 1021 | ;;; Cursor indications |
| 1022 | 1022 | ||