diff options
author | Dmitry Antipov <dmantipov@yandex.ru> | 2014-06-22 09:43:58 +0400 |
---|---|---|
committer | Dmitry Antipov <dmantipov@yandex.ru> | 2014-06-22 09:43:58 +0400 |
commit | 9c3883b47dabec27d9fde206f3f951387fe946fd (patch) | |
tree | 38e3d6c9f9357438f491a11be60cbc84e6d183c1 /lisp/org/org-mouse.el | |
parent | b0358ef86903ac021110b54ee1acce11211c200f (diff) | |
download | emacs-9c3883b47dabec27d9fde206f3f951387fe946fd.tar.gz |
* lisp/electric.el (electric-layout-post-self-insert-function):
* lisp/emacs-lisp/ert.el (ert--insert-infos):
* lisp/obsolete/vi.el (vi-set-mark):
* lisp/term.el (term-handle-scroll):
* lisp/textmodes/bibtex.el (bibtex-fill-field, bibtex-fill-entry):
* lisp/gnus/gnus-sum.el (gnus-summary-edit-article-done):
* lisp/org/org-mouse.el (org-mouse-do-remotely):
* lisp/wid-edit.el (widget-editable-list-value-create): Prefer
point-marker to copy-marker of point.
* lisp/ob-core.el (org-babel-insert-result): Prefer point-min-marker
and point-max-marker.
Diffstat (limited to 'lisp/org/org-mouse.el')
-rw-r--r-- | lisp/org/org-mouse.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el index 27dc0e070fc..9f9538df789 100644 --- a/lisp/org/org-mouse.el +++ b/lisp/org/org-mouse.el @@ -1005,7 +1005,7 @@ This means, between the beginning of line and the point." (let ((endmarker (with-current-buffer buffer (outline-end-of-subtree) (forward-char 1) - (copy-marker (point))))) + (point-marker)))) (org-with-remote-undo buffer (with-current-buffer buffer (widen) @@ -1015,7 +1015,7 @@ This means, between the beginning of line and the point." (and (outline-next-heading) (org-flag-heading nil))) ; show the next heading (org-back-to-heading) - (setq marker (copy-marker (point))) + (setq marker (point-marker)) (goto-char (max (point-at-bol) (- (point-at-eol) anticol))) (funcall command) (message "_cmd: %S" org-mouse-cmd) |