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

* lisp/emacs-lisp/lisp.el (up-list): Obey forward-sexp-function if set.

Browse source
This commit is contained in:
Stefan Monnier 2010-08-17 22:18:40 +02:00
parent 0cc5642708
commit afa22f7ce7
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -142,7 +142,13 @@ This command assumes point is not in a string or comment."
(or arg (setq arg 1))
(let ((inc (if (> arg 0) 1 -1)))
(while (/= arg 0)
(goto-char (or (scan-lists (point) inc 1) (buffer-end arg)))
(if forward-sexp-function
(condition-case err
(while (let ((pos (point)))
(forward-sexp inc)
(/= (point) pos)))
(scan-error (goto-char (nth 2 err))))
(goto-char (or (scan-lists (point) inc 1) (buffer-end arg))))
(setq arg (- arg inc)))))
(defun kill-sexp (&optional arg)