mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Push mark before goto-char in jump-to-register and check-parens

Browse source 
* register.el (jump-to-register):
* emacs-lisp/lisp.el (check-parens):
Push mark before goto-char so user doesn't lose his previous place.
This commit is contained in:
Kelly Dean 2015-02-18 07:41:10 +00:00 • committed by Artur Malabarba
parent 56f5ea17f1
commit b1d6ddd446
3 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -714,7 +714,8 @@ character."
(condition-case data
;; Buffer can't have more than (point-max) sexps.
(scan-sexps (point-min) (point-max))
(scan-error (goto-char (nth 2 data))
(scan-error (push-mark)
(goto-char (nth 2 data))
;; Could print (nth 1 data), which is either
;; "Containing expression ends prematurely" or
;; "Unbalanced parentheses", but those may not be so