From 971dc41ce83b2e95f522e2a51f7fe497067724e2 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 28 Feb 2014 21:33:18 +0100 Subject: [PATCH] Tiny fixes * lisp/org.el (org-open-at-point): Tiny fixes. --- lisp/org.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 8ff8137be..41fb22c70 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10445,7 +10445,7 @@ they must return nil.") "Open link, timestamp, footnote or tags at point. When point is on a link, follow it. Normally, files will be -opened by an appropriate application. If the optional prefix +opened by an appropriate application. If the optional prefix argument ARG is non-nil, Emacs will visit the file. With a double prefix argument, try to open outside of Emacs, in the application the system uses for this file type. @@ -10511,12 +10511,11 @@ is used internally by `org-open-link-from-string'." (user-error "No link found")) ((eq type 'timestamp) (org-follow-timestamp-link)) ;; On tags within a headline or an inlinetask. - ((progn - (and (memq type '(headline inlinetask)) - (progn (save-excursion (beginning-of-line) - (looking-at org-complex-heading-regexp)) - (and (match-beginning 5) - (>= (point) (match-beginning 5)))))) + ((and (memq type '(headline inlinetask)) + (progn (save-excursion (beginning-of-line) + (looking-at org-complex-heading-regexp)) + (and (match-beginning 5) + (>= (point) (match-beginning 5))))) (org-tags-view arg (substring (match-string 5) 0 -1))) ((eq type 'link) (let ((type (org-element-property :type context)) @@ -10627,8 +10626,8 @@ is used internally by `org-open-link-from-string'." (and (eq type 'footnote-definition) (save-excursion ;; Do not validate action when point is on the - ;; spaces right after the footnote label, in order - ;; to be on par with behaviour on links. + ;; spaces right after the footnote label, in + ;; order to be on par with behaviour on links. (skip-chars-forward " \t") (let ((begin (org-element-property :contents-begin context))) -- 2.11.4.GIT