Update copyright year to 2015

[gnu-emacs] / lisp / org / org-mouse.el

diff --git a/lisp/org/org-mouse.el b/lisp/org/org-mouse.el
index 9f9538df78908c0d132b02ba89b76fb6ca873fe1..160099ff055cc38c4dd4f144287186f4d8abaa96 100644 (file)
--- a/lisp/org/org-mouse.el
+++ b/lisp/org/org-mouse.el
@@ -1,6 +1,6 @@
 ;;; org-mouse.el --- Better mouse support for org-mode
 
-;; Copyright (C) 2006-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2006-2015 Free Software Foundation, Inc.
 
 ;; Author: Piotr Zielinski <piotr dot zielinski at gmail dot com>
 ;; Maintainer: Carsten Dominik <carsten at orgmode dot org>
@@ -953,20 +953,23 @@ This means, between the beginning of line and the point."
                       (point)
                       (save-excursion (goto-char start)
                                       (org-back-to-heading) (point))))
-           (outline-end-of-subtree)
+           (progn (org-end-of-subtree nil t)
+                  (unless (eobp) (backward-char)))
            (end-of-line)
            (if (eobp) (newline) (forward-char)))
 
          (when (looking-at org-outline-regexp)
            (let ((level (- (match-end 0) (match-beginning 0))))
              (when (> end (match-end 0))
-               (outline-end-of-subtree)
+               (progn (org-end-of-subtree nil t)
+                      (unless (eobp) (backward-char)))
                (end-of-line)
                (if (eobp) (newline) (forward-char))
                (setq level (1+ level)))
              (org-paste-subtree level)
              (save-excursion
-               (outline-end-of-subtree)
+               (progn (org-end-of-subtree nil t)
+                      (unless (eobp) (backward-char)))
                (when (bolp) (delete-char -1))))))))))
 
 
@@ -1003,8 +1006,8 @@ This means, between the beginning of line and the point."
           (org-mouse-main-buffer (current-buffer)))
       (when (eq (with-current-buffer buffer major-mode) 'org-mode)
        (let ((endmarker (with-current-buffer buffer
-                          (outline-end-of-subtree)
-                          (forward-char 1)
+                          (org-end-of-subtree nil t)
+                          (unless (eobp) (forward-char 1))
                           (point-marker))))
          (org-with-remote-undo buffer
            (with-current-buffer buffer