From b1d6ddd44614c84746f5ee494e1f29cd9be8a2d8 Mon Sep 17 00:00:00 2001 From: Kelly Dean Date: Wed, 18 Feb 2015 07:41:10 +0000 Subject: Push mark before goto-char in jump-to-register and check-parens * register.el (jump-to-register): * emacs-lisp/lisp.el (check-parens): Push mark before goto-char so user doesn't lose his previous place. --- lisp/register.el | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lisp/register.el') diff --git a/lisp/register.el b/lisp/register.el index 053657bd8cb..7afbc06c7fc 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -254,6 +254,9 @@ Interactively, reads the register using `register-read-with-preview'." (or (marker-buffer val) (user-error "That register's buffer no longer exists")) (switch-to-buffer (marker-buffer val)) + (unless (or (= (point) (marker-position val)) + (eq last-command 'jump-to-register)) + (push-mark)) (goto-char val)) ((and (consp val) (eq (car val) 'file)) (find-file (cdr val))) -- cgit v1.2.1