From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 8 Nov 2009 23:05:49 +0000 (+0000)
Subject: * emulation/cua-base.el: Add CUA property to some CC mode commands
X-Git-Tag: emacs-pretest-23.1.90~515
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15207e7467fad49514adaa1cf28a1049251281e2;p=emacs.git

* emulation/cua-base.el: Add CUA property to some CC mode commands
(Bug#4100).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 42c2e613716..96d72aed5cc 100644
--- 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 df91d53db81..30b74d917d5 100644
--- 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