From add9ca2d9a056c4043c8d244fed8a5f4fcdcc4a0 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 22 Aug 2012 19:12:35 +0200 Subject: [PATCH] misc.el (forward-to-word, backward-to-word): Use (interactive "^p"). Thanks to Le Wang for the patch. --- lisp/ChangeLog | 5 ++++- 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 +2012-08-22 Bastien Guerry + + * 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 -- 2.39.2