* lisp/electric.el (electric-layout-post-self-insert-function):

* lisp/emacs-lisp/ert.el (ert--insert-infos):
* lisp/obsolete/vi.el (vi-set-mark):
* lisp/term.el (term-handle-scroll):
* lisp/textmodes/bibtex.el (bibtex-fill-field, bibtex-fill-entry):
* lisp/gnus/gnus-sum.el (gnus-summary-edit-article-done):
* lisp/org/org-mouse.el (org-mouse-do-remotely):
* lisp/wid-edit.el (widget-editable-list-value-create): Prefer
point-marker to copy-marker of point.
* lisp/ob-core.el (org-babel-insert-result): Prefer point-min-marker
and point-max-marker.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95c3566dd5bf8e4bb70a6c4fd5d852cd05b9c91a..e494b7e8e7c54c4464eda758578542b37f660a21 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2013-06-22  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * electric.el (electric-layout-post-self-insert-function):
+       * emacs-lisp/ert.el (ert--insert-infos):
+       * obsolete/vi.el (vi-set-mark):
+       * term.el (term-handle-scroll):
+       * textmodes/bibtex.el (bibtex-fill-field, bibtex-fill-entry):
+       * wid-edit.el (widget-editable-list-value-create): Prefer
+       point-marker to copy-marker of point.
+
 2014-06-21  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
        Fix completion retrieval parsing (bug#17209).

diff --git a/lisp/electric.el b/lisp/electric.el
index bf73dbb256ffed59aab58a051cd792e5133a4d0f..4bf5963e17517208a9b9cba8164f7f9cdf6810cb 100644 (file)
--- 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)

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 34041aab9a8ca37e29a9a62d78ab172cbaeaee33..6ecb218091aa8d7f9da48c5ccce750f503b33083 100644 (file)
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -1320,7 +1320,7 @@ RESULT must be an `ert-test-result-with-condition'."
         (unwind-protect
             (progn
               (insert message "\n")
-              (setq end (copy-marker (point)))
+              (setq end (point-marker))
               (goto-char begin)
               (insert "    " prefix)
               (forward-line 1)

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 543a5b1a433b90a213f7011ebaaa1139879a88b7..a21e899b6e42c04c800badc3fec2008281810a0f 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-22  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * gnus-sum.el (gnus-summary-edit-article-done):
+       Prefer point-marker to copy-marker of point.
+
 2014-06-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-edit-part): Don't modifiy markers.

diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el
index 090cbede76da3421e79e0beeee945f2b67bdddbd..c0e099ba3ca13ddbff9033171bf29b255accc0c4 100644 (file)
--- a/lisp/gnus/gnus-sum.el
+++ b/lisp/gnus/gnus-sum.el
@@ -10613,7 +10613,7 @@ groups."
       (let ((lines (count-lines (point) (point-max)))
            (length (- (point-max) (point)))
            (case-fold-search t)
-           (body (copy-marker (point))))
+           (body (point-marker)))
        (goto-char (point-min))
        (when (re-search-forward "^content-length:[ \t]\\([0-9]+\\)" body t)
          (delete-region (match-beginning 1) (match-end 1))

diff --git a/lisp/obsolete/vi.el b/lisp/obsolete/vi.el
index bb57735b0a9258280492924bf11a1af77c1baffc..fbdf7a1e920a2db8dc7d730c412217a3f7f8347f 100644 (file)
--- a/lisp/obsolete/vi.el
+++ b/lisp/obsolete/vi.el
@@ -1200,7 +1200,7 @@ SPECIAL FEATURE: char argument can be used to specify shift amount(1-9)."
     (let ((aelt (assq char vi-mark-alist)))
       (if aelt
          (move-marker (cdr aelt) (point)) ; fixed 6/12/86
-       (setq aelt (cons char (copy-marker (point))))
+       (setq aelt (cons char (point-marker)))
        (setq vi-mark-alist (cons aelt vi-mark-alist))))))
 
 (defun vi-find-matching-paren ()

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 669ac2d83d325d1aa2fa7e610d42e1ebf1dc55af..569f82dd3d47f7bc6375dd3c32743d5e0875eb5a 100644 (file)
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,10 @@
+2013-06-22  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * ob-core.el (org-babel-insert-result): Prefer point-min-marker
+       and point-max-marker.
+       * org-mouse.el (org-mouse-do-remotely): Prefer point-marker
+       to copy-marker of point.
+
 2014-05-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * org-compat.el (org-font-lock-ensure): New function.

diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el
index e8943c6656114113d33b3583f79f8321fcf03dc9..61d9ee3f8701a5d1c31e8621ed0dd6ec2881b910 100644 (file)
--- a/lisp/org/ob-core.el
+++ b/lisp/org/ob-core.el
@@ -2039,8 +2039,8 @@ code ---- the results are extracted in the syntax of the source
                                 t info hash indent)))
             (results-switches
              (cdr (assoc :results_switches (nth 2 info))))
-            (visible-beg (copy-marker (point-min)))
-            (visible-end (copy-marker (point-max)))
+            (visible-beg (point-min-marker))
+            (visible-end (point-max-marker))
             ;; When results exist outside of the current visible
             ;; region of the buffer, be sure to widen buffer to
             ;; update them.

diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el
index 27dc0e070fc1de5da59165fa11db4d2e134f76dc..9f9538df78908c0d132b02ba89b76fb6ca873fe1 100644 (file)
--- a/lisp/org/org-mouse.el
+++ b/lisp/org/org-mouse.el
@@ -1005,7 +1005,7 @@ This means, between the beginning of line and the point."
        (let ((endmarker (with-current-buffer buffer
                           (outline-end-of-subtree)
                           (forward-char 1)
-                          (copy-marker (point)))))
+                          (point-marker))))
          (org-with-remote-undo buffer
            (with-current-buffer buffer
              (widen)
@@ -1015,7 +1015,7 @@ This means, between the beginning of line and the point."
                (and (outline-next-heading)
                     (org-flag-heading nil)))   ; show the next heading
              (org-back-to-heading)
-             (setq marker (copy-marker (point)))
+             (setq marker (point-marker))
              (goto-char (max (point-at-bol) (- (point-at-eol) anticol)))
              (funcall command)
              (message "_cmd: %S" org-mouse-cmd)

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index c9522341106540ff29bb066469b0eabe8673e96d..ed926a387b5aa116a0870fc43ff5cdcc03365d7f 100644 (file)
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -3182,9 +3182,9 @@ with the prefix ARG."
     (save-excursion
       ;; Insert a temporary formula at right after the table
       (goto-char (org-table-TBLFM-begin))
-      (setq s (set-marker (make-marker) (point)))
+      (setq s (point-marker))
       (insert (concat formula "\n"))
-      (setq e (set-marker (make-marker) (point)))
+      (setq e (point-marker))
       ;; Recalculate the table
       (beginning-of-line 0)            ; move to the inserted line
       (skip-chars-backward " \r\n\t")

diff --git a/lisp/term.el b/lisp/term.el
index ce6125e27900817418170e95a4aede760f16f330..95660eae9ad29da4e460fee06f836b02c03af3ef 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -3632,7 +3632,7 @@ all pending output has been dealt with."))
            (if (< down 0) term-scroll-start term-scroll-end))))
     (when (or (and (< down 0) (< scroll-needed 0))
              (and (> down 0) (> scroll-needed 0)))
-      (let ((save-point (copy-marker (point))) (save-top))
+      (let ((save-point (point-marker)) (save-top))
        (goto-char term-home-marker)
        (cond (term-scroll-with-delete
               (if (< down 0)

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 8a99ff2926dda2b20e1dcaaffe1385c59b78bf54..3209980c015f31466e18deb7a9d1358c617500f1 100644 (file)
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -4840,7 +4840,7 @@ If optional arg MOVE is non-nil move point to end of field."
 If optional prefix JUSTIFY is non-nil justify as well.
 In BibTeX mode this function is bound to `fill-paragraph-function'."
   (interactive "*P")
-  (let ((pnt (copy-marker (point)))
+  (let ((pnt (point-marker))
         (bounds (bibtex-enclosing-field t)))
     (bibtex-fill-field-bounds bounds justify)
     (goto-char pnt)))
@@ -4852,7 +4852,7 @@ names appear in column `bibtex-field-indentation', field text starts in
 column `bibtex-text-indentation' and continuation lines start here, too.
 If `bibtex-align-at-equal-sign' is non-nil, align equal signs, too."
   (interactive "*")
-  (let ((pnt (copy-marker (point)))
+  (let ((pnt (point-marker))
         (beg (bibtex-beginning-of-entry)) ; move point
         bounds)
     (bibtex-delete-whitespace)

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index a857407820c41a7bf44128e4541c433b7a23f36b..92e52bff55e970c7a21127c85ef79ba6e8eae7f9 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2626,7 +2626,7 @@ Return an alist of (TYPE MATCH)."
   (let* ((value (widget-get widget :value))
         (type (nth 0 (widget-get widget :args)))
         children)
-    (widget-put widget :value-pos (copy-marker (point)))
+    (widget-put widget :value-pos (point-marker))
     (set-marker-insertion-type (widget-get widget :value-pos) t)
     (while value
       (let ((answer (widget-match-inline type value)))