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 -0000 > 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