summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDmitry Antipov <dmantipov@yandex.ru>2012-12-20 08:46:41 +0400
committerBastien Guerry <bzg@altern.org>2012-12-20 13:16:41 +0100
commitbfb9f9d10fe7db2e45cd925567beb824f6d67397 (patch)
tree28542d57d2846f244ce53b1dd85068bc78b8708b
parentb508943d329fed2af457c50afd5f63938b23c58c (diff)
downloadorg-mode-bfb9f9d10fe7db2e45cd925567beb824f6d67397.tar.gz
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.
-rw-r--r--contrib/lisp/org-invoice.el2
-rw-r--r--lisp/org-agenda.el2
-rw-r--r--lisp/org-capture.el2
-rw-r--r--lisp/org-colview-xemacs.el2
-rw-r--r--lisp/org-colview.el2
-rw-r--r--lisp/org-mobile.el2
-rw-r--r--lisp/org-table.el8
-rw-r--r--lisp/org.el4
8 files changed, 12 insertions, 12 deletions
diff --git a/contrib/lisp/org-invoice.el b/contrib/lisp/org-invoice.el
index c951d4e..aead72f 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 cb7822d..522aa19 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2664,7 +2664,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 1dfffc6..cca0d34 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -979,7 +979,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 3da7f8d..f626229 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 1be105d..78f3a0c 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1243,7 +1243,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 f7cae3c..c7d6176 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))
@@ -3219,7 +3219,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 d351323..23b72c8 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11785,7 +11785,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))
@@ -15060,7 +15060,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.