From 3544e11a3490b7d753451ad394ef6285a9dc4f98 Mon Sep 17 00:00:00 2001 From: Dmitry Antipov Date: Wed, 23 Jan 2013 12:49:34 +0400 Subject: [PATCH] * 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 | 4 ++++ lisp/mh-e/ChangeLog | 6 ++++++ lisp/mh-e/mh-acros.el | 2 +- lisp/mh-e/mh-search.el | 2 +- lisp/mh-e/mh-xface.el | 2 +- lisp/play/gametree.el | 2 +- 6 files changed, 14 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ab64694aad..3797a87751d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-01-23 Dmitry Antipov + + * play/gametree.el (gametree-break-line-here): Use point-marker. + 2013-01-22 Michael Albinus * net/tramp-cmds.el (tramp-bug, tramp-append-tramp-buffers): Mark diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index 8f81182b52d..0854010e60f 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,9 @@ +2013-01-23 Dmitry Antipov + + * 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 Release MH-E version 8.4. diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el index 9f7fc0df68b..7d6279e4eca 100644 --- 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 a8860263531..d31d0ca495a 100644 --- 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 7582158fefd..4340373f5c4 100644 --- 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 5cd39d535c8..3daf9d5f784 100644 --- 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)) -- 2.39.2