diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
commit | 8d8ea67656b95d8528b6cd9b43b2d53b847412b0 (patch) | |
tree | d5aa3d72b5904dc9bace013bbb7cd530191fe219 /lisp/org-mouse.el | |
parent | f7ab8b6645e5b81dd3b1df053a3bf41b279696f4 (diff) |
Imported Upstream version 8.3.3
Diffstat (limited to 'lisp/org-mouse.el')
-rw-r--r-- | lisp/org-mouse.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index c2fa46a..43ebfb6 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -497,7 +497,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:" `("Main Menu" ["Show Overview" org-mouse-show-overview t] ["Show Headlines" org-mouse-show-headlines t] - ["Show All" show-all t] + ["Show All" outline-show-all t] ["Remove Highlights" org-remove-occur-highlights :visible org-occur-highlights] "--" @@ -586,7 +586,7 @@ This means, between the beginning of line and the point." (:end ; insert text here (skip-chars-backward " \t") (kill-region (point) (point-at-eol)) - (unless (org-looking-back org-mouse-punctuation) + (unless (org-looking-back org-mouse-punctuation (line-beginning-position)) (insert (concat org-mouse-punctuation " "))))) (insert text) (beginning-of-line)) @@ -644,7 +644,8 @@ This means, between the beginning of line and the point." 'org-mode-restart)))) ((or (eolp) (and (looking-at "\\( \\|\t\\)\\(+:[0-9a-zA-Z_:]+\\)?\\( \\|\t\\)+$") - (org-looking-back " \\|\t" (- (point) 2)))) + (org-looking-back " \\|\t" (- (point) 2) + (line-beginning-position)))) (org-mouse-popup-global-menu)) ((funcall get-context :checkbox) (popup-menu |