diff options
author | Dan Davison <dandavison7@gmail.com> | 2011-01-30 21:13:43 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-02-12 23:56:36 +0100 |
commit | 4d880b150f49a022988d4d9e46bc18167412f8cf (patch) | |
tree | 0986bd6253b29e7071dfd9dba77afbb1dfa085e1 | |
parent | 0f40214ec1f4d0ae45facb5c1481713340e05762 (diff) | |
download | org-mode-4d880b150f49a022988d4d9e46bc18167412f8cf.tar.gz |
Fix bug when using prefix arg to construct `org-link-search' call.
* 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.
-rw-r--r-- | lisp/org.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/org.el b/lisp/org.el index 0a5623b..e56ce4f 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -9100,12 +9100,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") @@ -9123,7 +9123,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)) @@ -9228,7 +9228,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) "\\]"))) @@ -9242,7 +9242,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)) @@ -9274,14 +9274,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) |