* 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.

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

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.

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

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)))))
 

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)

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))