Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(forward-list-function): Give it a default value

Browse source 
* lisp/emacs-lisp/lisp.el (forward-list-function): Give it a default value.
(forward-list): Simplify.
This commit is contained in:
Stefan Monnier 2026-01-13 09:11:24 -05:00
parent 1644463e5b
commit b456ffc994
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/lisp.el
View file

@ -147,7 +147,7 @@ This command assumes point is not in a string or comment."
"Default function for `forward-list-function'."
(goto-char (or (scan-lists (point) arg 0) (buffer-end arg))))
(defvar forward-list-function nil
(defvar forward-list-function #'forward-list-default-function
"If non-nil, `forward-list' delegates to this function.
Should take the same arguments and behave similarly to `forward-list'.")
@ -169,9 +169,9 @@ report errors as appropriate for this kind of usage."
"No next group"
"No previous group"))))
(or arg (setq arg 1))
(if forward-list-function
(funcall forward-list-function arg)
(forward-list-default-function arg))))
(funcall (or forward-list-function
#'forward-list-default-function)
arg)))
(defun backward-list (&optional arg interactive)
"Move backward across one balanced group of parentheses.