diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-10-06 10:10:47 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-10-06 10:10:47 +0200 |
| commit | c18896841ef91216ca37e4fa8071752ba2a0eeb8 (patch) | |
| tree | 5e19570bb7e0c120d8327708d708dfad8c02a99e | |
| parent | 2978501ad01c1fc33c34119ad431fb68746c6f92 (diff) | |
| download | org-mode-c18896841ef91216ca37e4fa8071752ba2a0eeb8.tar.gz | |
Allow dashes and underscores in bibtex citation keys
* contrib/lisp/org-exp-bibtex.el (org-export-bibtex-preprocess): Allow
dashes and underscores in bibtex citation keys.
TINYCHANGE
Patch by Nik Putnam
| -rw-r--r-- | contrib/lisp/org-exp-bibtex.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/lisp/org-exp-bibtex.el b/contrib/lisp/org-exp-bibtex.el index daccafd..5705bfb 100644 --- a/contrib/lisp/org-exp-bibtex.el +++ b/contrib/lisp/org-exp-bibtex.el @@ -102,7 +102,7 @@ (save-match-data (insert-file-contents (concat file ".html")) (goto-char (point-min)) - (while (re-search-forward "a name=\"\\(\\w+\\)\">\\(\\w+\\)" nil t) + (while (re-search-forward (org-re "a name=\"\\([-_[:word:]]+\\)\">\\([[:word:]]+\\)") nil t) (setq oebp-cite-plist (cons (cons (match-string 1) (match-string 2)) oebp-cite-plist))) (goto-char (point-min)) (while (re-search-forward "<hr>" nil t) |