Patch 564 (http://patchwork.newartisans.com/patch/564/) is now Accepted.
Maintainer comment: none
This relates to the following submission:
http://mid.gmane.org/%3Cm1lj22z7wo.fsf%40gmail.com%3E
Here is the original message containing the patch:
Content-Type: text/plain; charset=utf-8
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [Orgmode] PATCH: org-open-at-point curation
Date: Sun, 30 Jan 2011 21:13:43 -
From: Dan Davison dandavis...@gmail.com
X-Patchwork-Id: 564
Message-Id: m1lj22z7wo@gmail.com
To: emacs org-mode mailing list emacs-orgmode@gnu.org
While fiddling with the way babel uses org-open-at-point, I noticed a
coupe of things:
1. There's a bug when using the prefix arg with a text search
link. E.g. try C-u C-c C-o on [[foo]]
2. The prefix arg is used in three different ways (two of them
undocumented), not all of which correspond to the variable name used
for the prefix arg. I'm leaving the extra uses undocumented, but have
renamed the
prefix arg with a more generic name.
Dan
~
Some curation of `org-open-at-point'
* lisp/org.el (org-open-at-point): Fix bug when using prefix arg to
construct `org-link-search' call. Rename prefix arg with a more
generic name, to reflect its diverse uses in this function.
#+begin_src diff
#+end_src
diff --git a/lisp/org.el b/lisp/org.el
index a49d3e2..186af9d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9084,12 +9084,12 @@ Functions in this hook must return t if they identify
and follow
a link at point. If they don't find anything interesting at point,
they must return nil.)
-(defun org-open-at-point (optional in-emacs reference-buffer)
+(defun org-open-at-point (optional arg reference-buffer)
Open link at or after point.
If there is no link at point, this function will search forward up to
the end of the current line.
Normally, files will be opened by an appropriate application. If the
-optional argument IN-EMACS is non-nil, Emacs will visit the file.
+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.
(interactive P)
@@ -9107,7 +9107,7 @@ application the system uses for this file type.
org-angle-link-re \\|
[ \t]:[^ \t\n]+:[ \t]*$)))
(not (get-text-property (point) 'org-linked-text)))
-(or (org-offer-links-in-entry in-emacs)
+(or (org-offer-links-in-entry arg)
(progn (require 'org-attach) (org-attach-reveal 'if-exists
((run-hook-with-args-until-success 'org-open-at-point-functions))
((org-at-timestamp-p t) (org-follow-timestamp-link))
@@ -9212,7 +9212,7 @@ application the system uses for this file type.
(browse-url (concat type : path)))
((string= type tags)
- (org-tags-view in-emacs path))
+ (org-tags-view arg path))
((string= type tree-match)
(org-occur (concat \\[ (regexp-quote path) \\])))
@@ -9226,7 +9226,7 @@ application the system uses for this file type.
path (substring path 0 (match-beginning 0)
(if (string-match [*?{] (file-name-nondirectory path))
(dired path)
- (org-open-file path in-emacs line search)))
+ (org-open-file path arg line search)))
((string= type shell)
(let ((cmd path))
@@ -9258,14 +9258,14 @@ application the system uses for this file type.
'org-open-link-functions path)))
((string= type thisfile)
- (if in-emacs
+ (if arg
(switch-to-buffer-other-window
(org-get-buffer-for-internal-link (current-buffer)))
(org-mark-ring-push))
(let ((cmd `(org-link-search
,path
-,(cond ((equal in-emacs '(4)) 'occur)
- ((equal in-emacs '(16)) 'org-occur)
+,(cond ((equal arg '(4)) ''occur)
+ ((equal arg '(16)) ''org-occur)
(t nil))
,pos)))
(condition-case nil (eval cmd)
___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode