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

Fix storing link in edit buffer

Browse source 
* lisp/org.el (org-store-link): When creating a link from an edit
  buffer, re-use label on current line, if any.  Give up if call is
  non-interactive, as it would otherwise ask for user's input.

Reported-by: Samuel Wales <samologist@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/97902>
This commit is contained in:
Nicolas Goaziou 2015-05-31 01:54:49 +02:00
parent f6c75f2e41
commit 9e1591cbd0
1 changed files with 25 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
lisp/org.el
View file

@ -9735,25 +9735,32 @@ active region."
desc (or (plist-get org-store-link-plist
:description) link))))
;; Store a link from a source code buffer
;; Store a link from a source code buffer.
((org-src-edit-buffer-p)
(let (label gc)
(while (or (not label)
(save-excursion
(save-restriction
(widen)
(goto-char (point-min))
(re-search-forward
(regexp-quote (format org-coderef-label-format label))
nil t))))
(when label (message "Label exists already") (sit-for 2))
(setq label (read-string "Code line label: " label)))
(end-of-line 1)
(setq link (format org-coderef-label-format label))
(setq gc (- 79 (length link)))
(if (< (current-column) gc) (org-move-to-column gc t) (insert " "))
(insert link)
(setq link (concat "(" label ")") desc nil)))
(cond
((save-excursion
(beginning-of-line)
(looking-at (concat (format org-coderef-label-format "\\(.*?\\)")
"[ \t]*$")))
(setq link (format "(%s)" (org-match-string-no-properties 1))))
((org-called-interactively-p 'any)
(let (label)
(while (or (not label)
(org-with-wide-buffer
(goto-char (point-min))
(re-search-forward
(regexp-quote (format org-coderef-label-format label))
nil t)))
(when label (message "Label exists already") (sit-for 2))
(setq label (read-string "Code line label: " label)))
(end-of-line)
(setq link (format org-coderef-label-format label))
(let ((gc (- 79 (length link))))
(if (< (current-column) gc) (org-move-to-column gc t)
(insert " ")))
(insert link)
(setq link (concat "(" label ")") desc nil)))
(t (setq link nil))))
;; We are in the agenda, link to referenced location
((equal (org-bound-and-true-p org-agenda-buffer-name) (buffer-name))