* lisp/play/gametree.el (gametree-break-line-here): Use point-marker.

* lisp/mh-e/mh-acros.el (mh-do-at-event-location): Likewise.
* lisp/mh-e/mh-search.el (mh-index-create-imenu-index): Likewise.
* lisp/mh-e/mh-xface.el (mh-x-image-url-display): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8ab64694aadf34de576fc22531745b14d193c336..3797a87751dfbff1e171b985dd59c57437cff92d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-23  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * play/gametree.el (gametree-break-line-here): Use point-marker.
+
 2013-01-22  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 8f81182b52dc3e66dafd7c3d021a8b6f957ec31a..0854010e60f1e2fe62493cc0bbbbf7f788cd5c6e 100644 (file)
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,9 @@
+2013-01-23  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * mh-acros.el (mh-do-at-event-location): Use point-marker.
+       * mh-search.el (mh-index-create-imenu-index): Likewise.
+       * mh-xface.el (mh-x-image-url-display): Likewise.
+
 2012-11-25  Bill Wohler  <wohler@newt.com>
 
        Release MH-E version 8.4.

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index 9f7fc0df68b263b78455ce10fbb73f1fd210e3af..7d6279e4eca2c3c303c0d7c3cfe057d91204079c 100644 (file)
--- a/lisp/mh-e/mh-acros.el
+++ b/lisp/mh-e/mh-acros.el
@@ -233,7 +233,7 @@ preserved."
               (,original-window (selected-window))
               (,original-position (progn
                                    (set-buffer (window-buffer ,event-window))
-                                   (set-marker (make-marker) (point))))
+                                   (point-marker)))
               (,modified-flag (buffer-modified-p))
               (buffer-read-only nil))
          (unwind-protect (progn

diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index a88602635317e4e290f780abc337165d808e3ecc..d31d0ca495a4ec7f7c85977992e8645ffcb61b5e 100644 (file)
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -1434,7 +1434,7 @@ being the list of messages originally from that folder."
           (beginning-of-line)
           (push (cons (buffer-substring-no-properties
                        (point) (mh-line-end-position))
-                      (set-marker (make-marker) (point)))
+                      (point-marker))
                 alist)))
       (setq imenu--index-alist (nreverse alist)))))
 

diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el
index 7582158fefd6cd1e518dc17735e81429f736db3c..4340373f5c499cb8dcee9d9d3fa2d1b6e8190cbc 100644 (file)
--- a/lisp/mh-e/mh-xface.el
+++ b/lisp/mh-e/mh-xface.el
@@ -323,7 +323,7 @@ elements of the list are nil."
 If the URL isn't present in the cache then it is fetched with wget."
   (let* ((cache-filename (mh-x-image-url-cache-canonicalize url))
          (state (mh-x-image-get-download-state cache-filename))
-         (marker (set-marker (make-marker) (point))))
+         (marker (point-marker)))
     (set (make-local-variable 'mh-x-image-marker) marker)
     (cond ((not (mh-x-image-url-sane-p url)))
           ((eq state 'ok)

diff --git a/lisp/play/gametree.el b/lisp/play/gametree.el
index 5cd39d535c803ccd011af90419a1313e52e73579..3daf9d5f784ae7da126011adccca7e1e7157764f 100644 (file)
--- a/lisp/play/gametree.el
+++ b/lisp/play/gametree.el
@@ -435,7 +435,7 @@ only work of Black's moves are explicitly numbered, for instance
                 gametree-half-ply-regexp)) limit))
           (goto-char (match-beginning 0))))
   (gametree-transpose-following-leaves)
-  (let* ((pt (set-marker (make-marker) (point)))
+  (let* ((pt (point-marker))
          (plys (gametree-current-branch-ply))
          (depth (gametree-current-branch-depth))
          (old-depth depth))