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 /lisp/misc.el | |
| 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.
Diffstat (limited to 'lisp/misc.el')
| -rw-r--r-- | lisp/misc.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |