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

[Stefan Monnier]

Please be careful with attributions: it's not your patch but Le Wang's,
so the ChangeLog should say

   2012-08-22  Le Wang  <address@hidden>  (tiny change)
   
        * misc.el (forward-to-word, backward-to-word): Activate or extend
        the region under `shift-select-mode'.

-- Stefan


>>>>> "Bastien" == Bastien Guerry <address@hidden> writes:

> ------------------------------------------------------------
> 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


> _______________________________________________
> Emacs-diffs mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/emacs-diffs