diff options
| -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." | |||
| 618 | (if (and open close) | 618 | (if (and open close) |
| 619 | (if (and transient-mark-mode mark-active) | 619 | (if (and transient-mark-mode mark-active) |
| 620 | (progn | 620 | (progn |
| 621 | (save-excursion (goto-char (region-end)) (insert close)) | 621 | (save-excursion |
| 622 | (save-excursion (goto-char (region-beginning)) (insert open))) | 622 | (goto-char (region-end)) |
| 623 | (insert close)) | ||
| 624 | (goto-char (region-beginning)) (insert open)) | ||
| 623 | (if arg (setq arg (prefix-numeric-value arg)) | 625 | (if arg (setq arg (prefix-numeric-value arg)) |
| 624 | (setq arg 0)) | 626 | (setq arg 0)) |
| 625 | (cond ((> arg 0) (skip-chars-forward " \t")) | 627 | (cond ((> arg 0) (skip-chars-forward " \t")) |