X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/3ebdceafc175e59582caf787696dca2f11a0e495..3bf234fa520ff90db31fae85f306befdadb24532:/lisp/electric.el

diff --git a/lisp/electric.el b/lisp/electric.el
index bf73dbb256..4bf5963e17 100644
--- a/lisp/electric.el
+++ b/lisp/electric.el
@@ -368,7 +368,7 @@ newline after CHAR but stay in the same place.")
                (setq pos (electric--after-char-pos))
                ;; Not in a string or comment.
                (not (nth 8 (save-excursion (syntax-ppss pos)))))
-      (let ((end (copy-marker (point)))
+      (let ((end (point-marker))
             (sym (if (functionp rule) (funcall rule) rule)))
         (set-marker-insertion-type end (not (eq sym 'after-stay)))
         (goto-char pos)