Set CUA move property on additional commands:

up-list, down-list, backward-up-list, end-of-defun beginning-of-defun,
forward-sexp backward-sexp, forward-list, backward-list

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 0e60e60b4c463438d80fb7c9935453a4758a811e..dc335a2eb82c8e922e6f588b80c6443d922d4c44 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1324,6 +1324,10 @@ If ARG is the atom `-', scroll upward by nearly full screen."
    move-end-of-line move-beginning-of-line
    end-of-buffer beginning-of-buffer
    scroll-up scroll-down
+   up-list down-list backward-up-list
+   end-of-defun beginning-of-defun
+   forward-sexp backward-sexp
+   forward-list backward-list
    forward-sentence backward-sentence
    forward-paragraph backward-paragraph))
   (put cmd 'CUA 'move))