commit 1988bf0f4a5e486030e6c03b6ec172ede609d491 Author: Dmitry Antipov Date: Thu Dec 20 08:46:41 2012 +0400 Use (point-marker) instead of (move-marker (make-marker) (point)) * org-agenda.el (org-agenda-get-restriction-and-command): Use `point-marker'. * org-capture.el (org-capture-place-template): Likewise. * org-colview-xemacs.el (org-dblock-write:columnview): Likewise. * org-colview.el (org-dblock-write:columnview): Likewise. * org-mobile.el (org-mobile-locate-entry): Likewise. * org-table.el (org-table-convert-region): Likewise. * org.el (org-update-statistics-cookies): Likewise. * contrib/lisp/org-invoice.el (org-dblock-write:invoice): Likewise. diff --git a/contrib/lisp/org-invoice.el b/contrib/lisp/org-invoice.el index 59c36e2..0aa2187 100644 --- a/contrib/lisp/org-invoice.el +++ b/contrib/lisp/org-invoice.el @@ -290,7 +290,7 @@ information about dblock parameters, please see the Org manual): :summary Set to nil to turn off the final summary line." (let ((scope (plist-get params :scope)) (org-invoice-table-params params) - (zone (move-marker (make-marker) (point))) + (zone (point-marker)) table) (unless scope (setq scope 'default)) (unless (plist-member params :price) (plist-put params :price t)) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index bfbfb9b..1f3ad3e 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2681,7 +2681,7 @@ L Timeline for current buffer # List stuck projects (!=configure) (add-text-properties (match-beginning 2) (match-end 2) '(face bold) header)) header))) - (setq header-end (move-marker (make-marker) (point))) + (setq header-end (point-marker)) (while t (setq custom1 custom) (when (eq rmheader t) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index 405d897..7a14da4 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -983,7 +983,7 @@ it. When it is a variable, retrieve the value. Return whatever we get." (show-all) (goto-char (org-capture-get :pos)) (org-set-local 'org-capture-target-marker - (move-marker (make-marker) (point))) + (point-marker)) (org-set-local 'outline-level 'org-outline-level) (let* ((template (org-capture-get :template)) (type (org-capture-get :type))) diff --git a/lisp/org-colview-xemacs.el b/lisp/org-colview-xemacs.el index 713ad1f..1cbd459 100644 --- a/lisp/org-colview-xemacs.el +++ b/lisp/org-colview-xemacs.el @@ -1393,7 +1393,7 @@ PARAMS is a property list of parameters: :maxlevel When set to a number, don't capture headlines below this level. :skip-empty-rows When t, skip rows where all specifiers other than ITEM are empty." - (let ((pos (move-marker (make-marker) (point))) + (let ((pos (point-marker)) (hlines (plist-get params :hlines)) (vlines (plist-get params :vlines)) (maxlevel (plist-get params :maxlevel)) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 62c8e74..af609aa 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -1242,7 +1242,7 @@ PARAMS is a property list of parameters: :skip-empty-rows When t, skip rows where all specifiers other than ITEM are empty. :format When non-nil, specify the column view format to use." - (let ((pos (move-marker (make-marker) (point))) + (let ((pos (point-marker)) (hlines (plist-get params :hlines)) (vlines (plist-get params :vlines)) (maxlevel (plist-get params :maxlevel)) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index ffdd665..1092917 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -983,7 +983,7 @@ is currently a noop.") (goto-char (point-max)) (newline) (goto-char (point-max)) - (move-marker (make-marker) (point))))) + (point-marker)))) (let ((file (match-string 1 link)) (path (match-string 2 link))) (setq file (org-link-unescape file)) diff --git a/lisp/org-table.el b/lisp/org-table.el index 9d1c68a..aeeb67f 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -509,10 +509,10 @@ nil When nil, the command tries to be smart and figure out the re) (goto-char beg) (beginning-of-line 1) - (setq beg (move-marker (make-marker) (point))) + (setq beg (point-marker)) (goto-char end) (if (bolp) (backward-char 1) (end-of-line 1)) - (setq end (move-marker (make-marker) (point))) + (setq end (point-marker)) ;; Get the right field separator (unless separator (goto-char beg) @@ -1895,7 +1895,7 @@ it can be edited in place." (if (and (boundp 'font-lock-mode) font-lock-mode) (font-lock-fontify-block)))) (t - (let ((pos (move-marker (make-marker) (point))) + (let ((pos (point-marker)) (coord (if (eq org-table-use-standard-references t) (concat (org-number-to-letters (org-table-current-column)) @@ -3229,7 +3229,7 @@ Parameters get priority." (let ((key (org-table-current-field-formula 'key 'noerror)) (eql (sort (org-table-get-stored-formulas 'noerror) 'org-table-formula-less-p)) - (pos (move-marker (make-marker) (point))) + (pos (point-marker)) (startline 1) (wc (current-window-configuration)) (sel-win (selected-window)) diff --git a/lisp/org.el b/lisp/org.el index 8d402ba..8e64965 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11981,7 +11981,7 @@ This should be called with the cursor in a line with a statistics cookie." (org-map-entries 'org-update-parent-todo-statistics)) (if (not (org-at-heading-p)) (org-update-checkbox-count) - (let ((pos (move-marker (make-marker) (point))) + (let ((pos (point-marker)) end l1 l2) (ignore-errors (org-back-to-heading t)) (if (not (org-at-heading-p)) @@ -15264,7 +15264,7 @@ only headings." (setq lmin (1+ flevel) lmax (+ lmin (if org-odd-levels-only 1 0))) (setq end (save-excursion (org-end-of-subtree t t)))) (when (org-at-heading-p) - (move-marker (make-marker) (point)))))))) + (point-marker))))))) (defun org-find-exact-headline-in-buffer (heading &optional buffer pos-only) "Find node HEADING in BUFFER.