[Emacs-diffs] /srv/bzr/emacs/trunk r111587: * lisp/play/gametree.el (gametree-break-line-here): Use point-marker.

[Dmitry Antipov]

------------------------------------------------------------
revno: 111587
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Wed 2013-01-23 12:49:34 +0400
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/mh-e/ChangeLog
  lisp/mh-e/mh-acros.el
  lisp/mh-e/mh-search.el
  lisp/mh-e/mh-xface.el
  lisp/play/gametree.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-22 08:49:03 +0000
+++ b/lisp/ChangeLog    2013-01-23 08:49:34 +0000
@@ -1,3 +1,7 @@
+2013-01-23  Dmitry Antipov  <address@hidden>
+
+       * play/gametree.el (gametree-break-line-here): Use point-marker.
+
 2013-01-22  Michael Albinus  <address@hidden>
 
        * net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark

=== modified file 'lisp/mh-e/ChangeLog'
--- a/lisp/mh-e/ChangeLog       2013-01-02 16:13:04 +0000
+++ b/lisp/mh-e/ChangeLog       2013-01-23 08:49:34 +0000
@@ -1,3 +1,9 @@
+2013-01-23  Dmitry Antipov  <address@hidden>
+
+       * 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  <address@hidden>
 
        Release MH-E version 8.4.

=== modified file 'lisp/mh-e/mh-acros.el'
--- a/lisp/mh-e/mh-acros.el     2013-01-01 09:11:05 +0000
+++ b/lisp/mh-e/mh-acros.el     2013-01-23 08:49:34 +0000
@@ -233,7 +233,7 @@
               (,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

=== modified file 'lisp/mh-e/mh-search.el'
--- a/lisp/mh-e/mh-search.el    2013-01-02 16:13:04 +0000
+++ b/lisp/mh-e/mh-search.el    2013-01-23 08:49:34 +0000
@@ -1434,7 +1434,7 @@
           (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)))))
 

=== modified file 'lisp/mh-e/mh-xface.el'
--- a/lisp/mh-e/mh-xface.el     2013-01-01 09:11:05 +0000
+++ b/lisp/mh-e/mh-xface.el     2013-01-23 08:49:34 +0000
@@ -323,7 +323,7 @@
 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)

=== modified file 'lisp/play/gametree.el'
--- a/lisp/play/gametree.el     2013-01-01 09:11:05 +0000
+++ b/lisp/play/gametree.el     2013-01-23 08:49:34 +0000
@@ -435,7 +435,7 @@
                 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))