diff options
| author | Dima Kogan <gnuplot@dima.secretsauce.net> | 2016-02-24 13:54:17 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-24 13:54:17 +1100 |
| commit | 370eb6760435436c9b6b4d60df628d108464d20d (patch) | |
| tree | 3072fb4658fe0d9f1f05da7fd2e3e5d8bb6bb403 | |
| parent | b594393d4d1464d977dee7f5c7f92b3827cd3f57 (diff) | |
| download | emacs-370eb6760435436c9b6b4d60df628d108464d20d.tar.gz | |
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).
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 6 |
1 files 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")) |