* emulation/cua-base.el: Add CUA property to some CC mode commands

(Bug#4100).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 42c2e6137167c164eaaffac94a0164fe9b235193..96d72aed5ccff923fbabb9c98ac3163815ba160c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,6 +8,9 @@
        * cedet/semantic/ctxt.el (semantic-get-local-variables): Disable
        the progress reporter entirely.
 
+       * emulation/cua-base.el: Add CUA property to some CC mode commands
+       (Bug#4100).
+
 2009-11-08  Kevin Ryde  <user42@zip.com.au>
 
        * emacs-lisp/checkdoc.el (checkdoc-proper-noun-regexp): Match noun

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index df91d53db816a12818cc5150161526786819c53e..30b74d917d5d0dab5c240b27f2953ad4a12c5fa0 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1504,7 +1504,12 @@ If ARG is the atom `-', scroll upward by nearly full screen."
    forward-sexp backward-sexp
    forward-list backward-list
    forward-sentence backward-sentence
-   forward-paragraph backward-paragraph))
+   forward-paragraph backward-paragraph
+   ;; CC mode motion commands
+   c-forward-conditional c-backward-conditional
+   c-down-conditional c-up-conditional
+   c-down-conditional-with-else c-up-conditional-with-else
+   c-beginning-of-statement c-end-of-statement))
   (put cmd 'CUA 'move))
 
 ;; State prior to enabling cua-mode