tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2013-01-16 18:36:33 +01:00
parent be0d87ddb7 bd779fad62
commit 1d8ba5a9cd
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org-agenda.el
View File

@ -8109,32 +8109,34 @@ It also looks at the text of the entry itself."
(let* ((marker (or (org-get-at-bol 'org-hd-marker) (let* ((marker (or (org-get-at-bol 'org-hd-marker)
(org-get-at-bol 'org-marker))) (org-get-at-bol 'org-marker)))
(buffer (and marker (marker-buffer marker))) (buffer (and marker (marker-buffer marker)))
(prefix (buffer-substring (prefix (buffer-substring (point-at-bol) (point-at-eol)))
(point-at-bol) (point-at-eol)))
(lkall (org-offer-links-in-entry buffer marker arg prefix)) (lkall (org-offer-links-in-entry buffer marker arg prefix))
(lk (car lkall)) (lk0 (car lkall))
(lk (if (stringp lk0) (list lk0) lk0))
(lkend (cdr lkall)) (lkend (cdr lkall))
trg) trg)
(cond (cond
((and buffer (stringp lk)) ((and buffer lk)
(mapcar (lambda(l)
(with-current-buffer buffer (with-current-buffer buffer
(setq trg (and (string-match org-bracket-link-regexp lk) (setq trg (and (string-match org-bracket-link-regexp l)
(match-string 1 lk))) (match-string 1 l)))
(if (or (not trg) (string-match org-any-link-re trg)) (if (or (not trg) (string-match org-any-link-re trg))
(save-excursion (save-excursion
(save-restriction (save-restriction
(widen) (widen)
(goto-char marker) (goto-char marker)
(when (search-forward lk nil lkend) (when (search-forward l nil lkend)
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
(org-open-at-point)))) (org-open-at-point))))
;; This is an internal link, widen the buffer ;; This is an internal link, widen the buffer
(switch-to-buffer-other-window buffer) (switch-to-buffer-other-window buffer)
(widen) (widen)
(goto-char marker) (goto-char marker)
(when (search-forward lk nil lkend) (when (search-forward l nil lkend)
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
(org-open-at-point))))) (org-open-at-point)))))
lk))
((or (org-in-regexp (concat "\\(" org-bracket-link-regexp "\\)")) ((or (org-in-regexp (concat "\\(" org-bracket-link-regexp "\\)"))
(save-excursion (save-excursion
(beginning-of-line 1) (beginning-of-line 1)