procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix searching for bibitem entries.

Browse source
This commit is contained in:
Ralf Angeli 2010-10-16 17:08:47 +02:00
parent 283f7b939e
commit 99f65cface
2 changed files with 31 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
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

45
lisp/textmodes/reftex-cite.el
View file

@ -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"))