From 81ad75af15f169655ba4c8eada78782367cabbf0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 5 Nov 2009 21:00:31 +0000 Subject: * org.el (org-version, org-get-refile-targets, org-refile) (org-store-log-note, org-diary-to-ical-string) (org-speedbar-set-agenda-restriction): * org-publish.el (org-publish-find-title): * org-plot.el (org-plot/gnuplot): * org-mouse.el (org-mouse-do-remotely): * org-mobile.el (org-mobile-move-capture): * org-mac-message.el (org-mac-message-insert-flagged): * org-latex.el (org-replace-region-by-latex): * org-docbook.el (org-replace-region-by-docbook): * org-clock.el (org-clock-out, org-clock-cancel): * org-bibtex.el (org-execute-file-search-in-bibtex): Use with-current-buffer. --- lisp/org/org-mouse.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lisp/org/org-mouse.el') diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el index d434e7fe450..e5e540d84d8 100644 --- a/lisp/org/org-mouse.el +++ b/lisp/org/org-mouse.el @@ -1042,8 +1042,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:" (org-mouse-direct nil) (org-mouse-main-buffer (current-buffer))) (when (eq (with-current-buffer buffer major-mode) 'org-mode) - (let ((endmarker (save-excursion - (set-buffer buffer) + (let ((endmarker (with-current-buffer buffer (outline-end-of-subtree) (forward-char 1) (copy-marker (point))))) -- cgit v1.2.3