Commit 99f65cfa authored by Ralf Angeli's avatar Ralf Angeli
Browse files

Fix searching for bibitem entries.

parent 283f7b93
2010-10-16 Ralf Angeli <angeli@caeruleus.net>
* textmodes/reftex-cite.el
(reftex-extract-bib-entries-from-thebibliography): Do not move
point when searching for \bibitem entries. Match entries with
spaces or tabs in front of arguments.
2010-10-16 Chong Yidong <cyd@stupidchicken.com>
 
* cus-theme.el (customize-create-theme): Delete overlays after
......
......@@ -358,27 +358,30 @@
(message "Scanning thebibliography environment in %s" file)
(with-current-buffer buf
(save-restriction
(widen)
(goto-char (point-min))
(while (re-search-forward
"\\(\\`\\|[\n\r]\\)[ \t]*\\\\begin{thebibliography}" nil t)
(beginning-of-line 2)
(setq start (point))
(if (re-search-forward
"\\(\\`\\|[\n\r]\\)[ \t]*\\\\end{thebibliography}" nil t)
(progn
(beginning-of-line 1)
(setq end (point))))
(when (and start end)
(setq entries
(append entries
(mapcar 'reftex-parse-bibitem
(delete ""
(split-string
(buffer-substring-no-properties start end)
"[ \t\n\r]*\\\\bibitem\\(\\[[^]]*]\\)*"))))))
(goto-char end)))))
(save-excursion
(save-restriction
(widen)
(goto-char (point-min))
(while (re-search-forward
"\\(\\`\\|[\n\r]\\)[ \t]*\\\\begin{thebibliography}" nil t)
(beginning-of-line 2)
(setq start (point))
(if (re-search-forward
"\\(\\`\\|[\n\r]\\)[ \t]*\\\\end{thebibliography}" nil t)
(progn
(beginning-of-line 1)
(setq end (point))))
(when (and start end)
(setq entries
(append entries
(mapcar 'reftex-parse-bibitem
(delete ""
(split-string
(buffer-substring-no-properties
start end)
"[ \t\n\r]*\\\\bibitem\
\\(\\[[^]]*]\\)*\[ \t]*"))))))
(goto-char end))))))
(unless entries
(error "No bibitems found"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment