diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-02-28 21:33:18 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-02-28 21:33:18 +0100 |
commit | 971dc41ce83b2e95f522e2a51f7fe497067724e2 (patch) | |
tree | 04b5fae3d694fe03a56aca720deec34d152d2124 | |
parent | c2f4803cbd9da0f3252353317749fa5f1a8d28e2 (diff) | |
download | org-mode-971dc41ce83b2e95f522e2a51f7fe497067724e2.tar.gz |
Tiny fixes
* lisp/org.el (org-open-at-point): Tiny fixes.
-rw-r--r-- | lisp/org.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lisp/org.el b/lisp/org.el index 8ff8137..41fb22c 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))) |