[Emacs-diffs] /srv/bzr/emacs/trunk r109753: misc.el (forward-to-word, backward-to-word): Use (interactive "^p").

[Bastien Guerry]

------------------------------------------------------------
revno: 109753
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-22 19:12:35 +0200
message:
  misc.el (forward-to-word, backward-to-word): Use (interactive "^p").
  
  Thanks to Le Wang for the patch.
modified:
  lisp/ChangeLog
  lisp/misc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-22 16:58:14 +0000
+++ b/lisp/ChangeLog    2012-08-22 17:12:35 +0000
@@ -1,4 +1,7 @@
-2012-08-22  Bastien Guerry  <address@hidden>
+2012-08-22  Bastien Guerry  <address@hidden>
+
+       * misc.el (forward-to-word, backward-to-word): Activate or extend
+       the region under `shift-select-mode'.
 
        * progmodes/executable.el (executable-prefix): Set to "#!" instead
        of "#! ".  http://www.in-ulm.de/~mascheck/various/shebang/#details

=== modified file 'lisp/misc.el'
--- a/lisp/misc.el      2012-04-10 14:16:05 +0000
+++ b/lisp/misc.el      2012-08-22 17:12:35 +0000
@@ -99,14 +99,14 @@
 (defun forward-to-word (arg)
   "Move forward until encountering the beginning of a word.
 With argument, do this that many times."
-  (interactive "p")
+  (interactive "^p")
   (or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
       (goto-char (if (> arg 0) (point-max) (point-min)))))
 
 (defun backward-to-word (arg)
   "Move backward until encountering the end of a word.
 With argument, do this that many times."
-  (interactive "p")
+  (interactive "^p")
   (forward-to-word (- arg)))
 
 ;;;###autoload