Mercurial > emacs

comparison lisp/emulation/cua-base.el @ 90133:4da4a09e8b1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-31 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 206-222) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 45-52) - Update from CVS - Update from CVS: texi Makefile.in CVS keyw cruft - Update from CVS: ChangeLog tweaks
author Miles Bader <miles@gnu.org>
date Thu, 31 Mar 2005 09:58:14 +0000
parents 29e773288013 20dc81ce84e7
children 02f1dbc4a199
comparison
equal deleted inserted replaced
90132:4080fe8b4f0f 90133:4da4a09e8b1b
1014 (t 1014 (t
1015 (condition-case nil 1015 (condition-case nil
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
1023 (defun cua--update-indications () 1023 (defun cua--update-indications ()
1024 (let* ((cursor 1024 (let* ((cursor