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

* lisp/simple.el (blink-matching-open): Use syntax-class.

Browse source 
* lisp/emacs-lisp/lisp.el (up-list): Don't do nothing silently.
This commit is contained in:
Stefan Monnier 2010-09-20 23:45:09 +02:00
parent 3672149f83
commit 984edd2215
3 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -141,15 +141,19 @@ A negative argument means move backward but still to a less deep spot.
This command assumes point is not in a string or comment."
(interactive "^p")
(or arg (setq arg 1))
(let ((inc (if (> arg 0) 1 -1)))
(let ((inc (if (> arg 0) 1 -1))
pos)
(while (/= arg 0)
(if forward-sexp-function
(if (null forward-sexp-function)
(goto-char (or (scan-lists (point) inc 1) (buffer-end arg)))
(condition-case err
(while (let ((pos (point)))
(while (progn (setq 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))))
(if (= (point) pos)
(signal 'scan-error
(list "Unbalanced parentheses" (point) (point)))))
(setq arg (- arg inc)))))
(defun kill-sexp (&optional arg)