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

Footnotes: Fix some minor issues.

This commit is contained in:
Carsten Dominik 2009-01-24 12:25:36 +01:00
parent 569abbd231
commit 20dbb0c73f
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,5 +1,11 @@
2009-01-24 Carsten Dominik <carsten.dominik@gmail.com> 2009-01-24 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-activate-footnote-links): Improve footnote link
highlighting.
* org-footnote.el (org-footnote-normalize): Fix finding the end of
a footnote definition at the end of the file.
* org-table.el (org-table-get-specials): Add an imagined hline at * org-table.el (org-table-get-specials): Add an imagined hline at
the end of the table. This can be useful for references that want the end of the table. This can be useful for references that want
to go to the end of the table. Also fix bug when computing last to go to the end of the table. Also fix bug when computing last

3
lisp/org-footnote.el
View File

@ -352,7 +352,8 @@ referenced sequence."
(re-search-forward (re-search-forward
(org-re "^[ \t]*$\\|^\\*+ \\|^\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]") (org-re "^[ \t]*$\\|^\\*+ \\|^\\[\\([0-9]+\\|fn:[-_[:word:]]+\\)\\]")
nil 'move) nil 'move)
(setq def (buffer-substring beg1 (match-beginning 0))) (setq def (buffer-substring beg1 (or (match-beginning 0)
(point-max))))
(goto-char beg) (goto-char beg)
(skip-chars-backward " \t\n\t") (skip-chars-backward " \t\n\t")
(delete-region (1+ (point)) (match-beginning 0)))))) (delete-region (1+ (point)) (match-beginning 0))))))

6
lisp/org.el
View File

@ -3788,12 +3788,12 @@ will be prompted for."
(if (re-search-forward "\\(^\\|[^][]\\)\\(\\[\\([0-9]+\\]\\|fn:[^ \t\r\n:]+?[]:]\\)\\)" (if (re-search-forward "\\(^\\|[^][]\\)\\(\\[\\([0-9]+\\]\\|fn:[^ \t\r\n:]+?[]:]\\)\\)"
limit t) limit t)
(progn (progn
(add-text-properties (match-beginning 1) (match-end 1) (add-text-properties (match-beginning 2) (match-end 2)
(list 'mouse-face 'highlight (list 'mouse-face 'highlight
'rear-nonsticky org-nonsticky-props 'rear-nonsticky org-nonsticky-props
'keymap org-mouse-map 'keymap org-mouse-map
'help-echo 'help-echo
(if (= (point-at-bol) (match-beginning 1)) (if (= (point-at-bol) (match-beginning 2))
"Footnote definition" "Footnote definition"
"Footnote reference") "Footnote reference")
)) ))
@ -4054,7 +4054,7 @@ between words."
(if (memq 'radio lk) '(org-activate-target-links (0 'org-link t))) (if (memq 'radio lk) '(org-activate-target-links (0 'org-link t)))
(if (memq 'date lk) '(org-activate-dates (0 'org-date t))) (if (memq 'date lk) '(org-activate-dates (0 'org-date t)))
(if (memq 'footnote lk) '(org-activate-footnote-links (if (memq 'footnote lk) '(org-activate-footnote-links
(0 'org-footnote t))) (2 'org-footnote t)))
'("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t)) '("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t))
'(org-hide-wide-columns (0 nil append)) '(org-hide-wide-columns (0 nil append))
;; TODO lines ;; TODO lines