summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2014-02-28 21:33:18 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2014-02-28 21:33:18 +0100
commit971dc41ce83b2e95f522e2a51f7fe497067724e2 (patch)
tree04b5fae3d694fe03a56aca720deec34d152d2124
parentc2f4803cbd9da0f3252353317749fa5f1a8d28e2 (diff)
downloadorg-mode-971dc41ce83b2e95f522e2a51f7fe497067724e2.tar.gz
Tiny fixes
* lisp/org.el (org-open-at-point): Tiny fixes.
-rw-r--r--lisp/org.el17
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)))