mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

misc.el (forward-to-word, backward-to-word): Use (interactive "^p").

Browse Source 
Thanks to Le Wang for the patch.
This commit is contained in:
Bastien Guerry 2012-08-22 19:12:35 +02:00
parent 0fcd3d9fa4
commit add9ca2d9a
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

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

4
lisp/misc.el
View File

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