diff options
| author | Bastien Guerry <bastien1@free.fr> | 2012-08-22 19:12:35 +0200 |
|---|---|---|
| committer | Bastien Guerry <bastien1@free.fr> | 2012-08-22 19:12:35 +0200 |
| commit | add9ca2d9a056c4043c8d244fed8a5f4fcdcc4a0 (patch) | |
| tree | 9ac40b2db4e3e647b0b9870a8851501c752ad911 | |
| parent | 0fcd3d9fa4cdee0a9a067f74c75b9e053502e294 (diff) | |
| download | emacs-add9ca2d9a056c4043c8d244fed8a5f4fcdcc4a0.tar.gz emacs-add9ca2d9a056c4043c8d244fed8a5f4fcdcc4a0.tar.bz2 emacs-add9ca2d9a056c4043c8d244fed8a5f4fcdcc4a0.zip | |
misc.el (forward-to-word, backward-to-word): Use (interactive "^p").
Thanks to Le Wang for the patch.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/misc.el | 4 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a5464d542a2..486c12e8c5d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,7 @@ -2012-08-22 Bastien Guerry <bzg@altern.org> +2012-08-22 Bastien Guerry <bzg@gnu.org> + + * 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 diff --git a/lisp/misc.el b/lisp/misc.el index cb52ecbd36e..96b739dc2b7 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -99,14 +99,14 @@ Ignores CHAR at point." (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 |