[Emacs-diffs] /srv/bzr/emacs/trunk r102267: RefTeX: Improve matching of bib entries.

[Ralf Angeli]

------------------------------------------------------------
revno: 102267
committer: Ralf Angeli <address@hidden>
branch nick: trunk
timestamp: Sat 2010-11-06 16:56:29 +0100
message:
  RefTeX: Improve matching of bib entries.
modified:
  lisp/ChangeLog
  lisp/textmodes/reftex-cite.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-06 12:08:58 +0000
+++ b/lisp/ChangeLog    2010-11-06 15:56:29 +0000
@@ -1,3 +1,12 @@
+2010-11-06  Ralf Angeli  <address@hidden>
+
+       * 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  <address@hidden>  (tiny change)
 
        * shell.el (shell-process-popd): Made aware of comint-file-name-prefix.

=== modified file 'lisp/textmodes/reftex-cite.el'
--- a/lisp/textmodes/reftex-cite.el     2010-10-16 15:08:47 +0000
+++ b/lisp/textmodes/reftex-cite.el     2010-11-06 15:56:29 +0000
@@ -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
-                     "^[ address@hidden \t]*{\\([^ \t\r\n]+\\),"
-                     nil t)
+             (while (re-search-forward "^[ address@hidden(?:\\w\\|\\s_\\)+[ 
\t\n\r]*\
+\[{(][ \t\n\r]*\\([^ \t\n\r,]+\\)" nil t)
                (setq key (match-string 1)
                      beg (match-beginning 0)
                      end (progn