ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix some glitches in footnotes fontification 

* lisp/org.el (org-activate-footnote-links): properly fontify inline
  footnotes.
(org-set-font-lock-defaults): apply changes to previous function.
This commit is contained in:
Nicolas Goaziou 2011-06-30 19:29:14 +02:00
parent bab6c5bf5a
commit ffa016ba3d
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org.el
View File

@ -5271,7 +5271,7 @@ will be prompted for."
t)))
(defun org-activate-footnote-links (limit)
"Run through the buffer and add overlays to links."
"Run through the buffer and add overlays to footnotes."
(let ((fn (org-footnote-next-reference-or-definition limit)))
(when fn
(let ((beg (nth 1 fn)) (end (nth 2 fn)))
@ -5282,10 +5282,10 @@ will be prompted for."
'help-echo
(if (= (point-at-bol) beg)
"Footnote definition"
"Footnote reference")))
(save-excursion
(goto-char beg)
(looking-at (regexp-quote (buffer-substring beg end))))))))
"Footnote reference")
'font-lock-fontified t
'font-lock-multiline t
'face 'org-footnote))))))
(defun org-activate-bracket-links (limit)
"Run through the buffer and add overlays to bracketed links."
@ -5580,8 +5580,7 @@ needs to be inserted at a specific position in the font-lock sequence.")
(if (memq 'bracket lk) '(org-activate-bracket-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 'footnote lk) '(org-activate-footnote-links
(0 'org-footnote t)))
(if (memq 'footnote lk) '(org-activate-footnote-links))
'("^&?%%(.*\\|<%%([^>\n]*?>" (0 'org-sexp-date t))
'(org-hide-wide-columns (0 nil append))
;; TODO lines