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

org-footnote: add speedups when prompted for a label 

* lisp/org-footnote.el (org-footnote-new): use ido or iswitchb when
  available when prompted for a label. Also rename a local variable to
  avoid confusion with an existing function.
This commit is contained in:
Nicolas Goaziou 2011-08-06 11:37:11 +02:00
parent a41541c033
commit 795b7c5ca0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-footnote.el
View File

@ -424,9 +424,9 @@ or new, let the user edit the definition of the footnote."
(interactive)
(unless (and (not (bolp)) (org-footnote-in-valid-context-p))
(error "Cannot insert a footnote here"))
(let* ((labels (and (not (equal org-footnote-auto-label 'random))
(org-footnote-all-labels)))
(propose (org-footnote-unique-label labels))
(let* ((lbls (and (not (equal org-footnote-auto-label 'random))
(org-footnote-all-labels)))
(propose (org-footnote-unique-label lbls))
(label
(org-footnote-normalize-label
(cond
@ -436,15 +436,15 @@ or new, let the user edit the definition of the footnote."
(require 'org-id)
(substring (org-id-uuid) 0 8))
(t
(completing-read
(org-icompleting-read
"Label (leave empty for anonymous): "
(mapcar 'list labels) nil nil
(mapcar 'list lbls) nil nil
(if (eq org-footnote-auto-label 'confirm) propose nil)))))))
(cond
((not label)
(insert "[fn:: ]")
(backward-char 1))
((member label labels)
((member label lbls)
(insert "[" label "]")
(message "New reference to existing note"))
(org-footnote-define-inline