procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make forward and backward-to-word arg optional

Browse source 
* lisp/misc.el (forward-to-word, backward-to-word): Make the
argument optional.  (Bug#63626)

Copyright-paperwork-exempt: yes
This commit is contained in:
Zaz Brown 2023-05-20 21:33:51 -07:00 • committed by Eli Zaretskii
parent 5cace109d2
commit 5f6aa5a174
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/misc.el
View file

@ -166,18 +166,20 @@ is an upper-case character."
(upcase-region (point) (progn (forward-char arg) (point)))))
;;;###autoload
(defun forward-to-word (arg)
(defun forward-to-word (&optional arg)
"Move forward until encountering the beginning of a word.
With argument, do this that many times."
(interactive "^p")
(unless arg (setq arg 1))
(or (re-search-forward (if (> arg 0) "\\W\\b" "\\b\\W") nil t arg)
(goto-char (if (> arg 0) (point-max) (point-min)))))
;;;###autoload
(defun backward-to-word (arg)
(defun backward-to-word (&optional arg)
"Move backward until encountering the end of a word.
With argument, do this that many times."
(interactive "^p")
(unless arg (setq arg 1))
(forward-to-word (- arg)))
;;;###autoload