mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-28 07:44:49 +00:00
Code

Footnotes: Introduce S action as a shortcut for r and s

Browse Source
This commit is contained in:
Carsten Dominik 2009-07-01 12:03:39 +02:00
parent d924536140
commit 840c74162c
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
doc/org.texi
View File

@ -1570,6 +1570,7 @@ s @r{Sort the footnote definitions by reference sequence. During editing,}
@r{sequence. If you want them sorted, use this command, which will}
@r{also move entries according to @code{org-footnote-section}.}
r @r{Renumber the simple @code{fn:N} footnotes.}
S @r{Short for first @code{r}, then @code{s} action.}
n @r{Normalize the footnotes by collecting all definitions (including}
@r{inline definitions) into a special section, and then numbering them}
@r{in sequence. The references will then also be numbers. This is}

5
lisp/org-footnote.el
View File

@ -296,13 +296,16 @@ With prefix arg SPECIAL, offer additional commands in a menu."
(let (tmp c)
(cond
(special
(message "Footnotes: [s]ort | [r]enumber fn:N | convert to [n]umeric | [d]elete")
(message "Footnotes: [s]ort | [r]enumber fn:N | [S]=r+s |->[n]umeric | [d]elete")
(setq c (read-char-exclusive))
(cond
((equal c ?s)
(org-footnote-normalize 'sort))
((equal c ?r)
(org-footnote-renumber-fn:N))
((equal c ?S)
(org-footnote-renumber-fn:N)
(org-footnote-normalize 'sort))
((equal c ?n)
(org-footnote-normalize))
((equal c ?d)