From 370eb6760435436c9b6b4d60df628d108464d20d Mon Sep 17 00:00:00 2001 From: Dima Kogan Date: Wed, 24 Feb 2016 13:54:17 +1100 Subject: [PATCH] Make `insert-pair' always leave the cursor where documented * lisp/emacs-lisp/lisp.el (insert-pair): The docstring of insert-pair states that after insertion, the point ends up after the opening character. This was not true if the pair was inserted to surround a region (bug#16949). --- lisp/emacs-lisp/lisp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 3540fd14261..c3de7730485 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -618,8 +618,10 @@ This command assumes point is not in a string or comment." (if (and open close) (if (and transient-mark-mode mark-active) (progn - (save-excursion (goto-char (region-end)) (insert close)) - (save-excursion (goto-char (region-beginning)) (insert open))) + (save-excursion + (goto-char (region-end)) + (insert close)) + (goto-char (region-beginning)) (insert open)) (if arg (setq arg (prefix-numeric-value arg)) (setq arg 0)) (cond ((> arg 0) (skip-chars-forward " \t")) -- 2.39.2