From 5f6aa5a174cf0ad53b54fa4b043408dbd85531ac Mon Sep 17 00:00:00 2001 From: Zaz Brown Date: Sat, 20 May 2023 21:33:51 -0700 Subject: [PATCH] Make forward and backward-to-word arg optional * lisp/misc.el (forward-to-word, backward-to-word): Make the argument optional. (Bug#63626) Copyright-paperwork-exempt: yes --- lisp/misc.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/misc.el b/lisp/misc.el index ca013d5f72f..f97240ed94f 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -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 -- 2.39.2