Mercurial > emacs
changeset 111419:898b96cf89b3
RefTeX: Improve matching of bib entries.
| author | Ralf Angeli <angeli@caeruleus.net> |
|---|---|
| date | Sat, 06 Nov 2010 16:56:29 +0100 |
| parents | 1542066c2762 |
| children | 6ce85d43dfda |
| files | lisp/ChangeLog lisp/textmodes/reftex-cite.el |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 06 15:49:29 2010 +0200 +++ b/lisp/ChangeLog Sat Nov 06 16:56:29 2010 +0100 @@ -1,3 +1,12 @@ +2010-11-06 Ralf Angeli <angeli@caeruleus.net> + + * textmodes/reftex-cite.el + (reftex-extract-bib-entries-from-thebibliography): Match bibitem + entries with whitespace after \bibitem. + (reftex-create-bibtex-file): Match entries containing numbers and + symbol constituents. Make sure that entries with whitespace at + various places are found. + 2010-11-05 Christian Millour <cm@abtela.com> (tiny change) * shell.el (shell-process-popd): Made aware of comint-file-name-prefix.
--- a/lisp/textmodes/reftex-cite.el Sat Nov 06 15:49:29 2010 +0200 +++ b/lisp/textmodes/reftex-cite.el Sat Nov 06 16:56:29 2010 +0100 @@ -379,7 +379,7 @@ (split-string (buffer-substring-no-properties start end) - "[ \t\n\r]*\\\\bibitem\ + "[ \t\n\r]*\\\\bibitem[ \t]*\ \\(\\[[^]]*]\\)*\[ \t]*")))))) (goto-char end)))))) (unless entries @@ -1147,9 +1147,8 @@ (save-restriction (widen) (goto-char (point-min)) - (while (re-search-forward - "^[ \t]*@[a-zA-Z]+[ \t]*{\\([^ \t\r\n]+\\)," - nil t) + (while (re-search-forward "^[ \t]*@\\(?:\\w\\|\\s_\\)+[ \t\n\r]*\ +\[{(][ \t\n\r]*\\([^ \t\n\r,]+\\)" nil t) (setq key (match-string 1) beg (match-beginning 0) end (progn