emulation/cua-base.el: Recognize also `right-word' and `left-word'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e335ee5c34477416d91dafc9ada76e9bbdb02c9c..90b04f6c7c721bc430c0ac80582a3c1875d2f617 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-30  Juanma Barranquero  <lekktu@gmail.com>
+
+       * emulation/cua-base.el: Recognize also `right-word' and `left-word'.
+       Suggested by Eli Zaretskii <eliz@gnu.org>.
+
 2010-05-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * minibuffer.el (completion-file-name-table): Don't return a boundary

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 17a96e10c1c97a9be08a0e637759d69c6900d5aa..c2ac7e3b3d0dbd9c42222f93ebc890801132ff24 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1498,6 +1498,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
 (dolist (cmd
  '(forward-char backward-char
    right-char left-char
+   right-word left-word
    next-line previous-line
    forward-word backward-word
    end-of-line beginning-of-line