[Emacs-diffs] /srv/bzr/emacs/trunk r101980: Fix searching for bibitem entries.

[Ralf Angeli]

------------------------------------------------------------
revno: 101980
committer: Ralf Angeli <address@hidden>
branch nick: trunk
timestamp: Sat 2010-10-16 17:08:47 +0200
message:
  Fix searching for bibitem entries.
modified:
  lisp/ChangeLog
  lisp/textmodes/reftex-cite.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-16 00:16:34 +0000
+++ b/lisp/ChangeLog    2010-10-16 15:08:47 +0000
@@ -1,3 +1,10 @@
+2010-10-16  Ralf Angeli  <address@hidden>
+
+       * 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  <address@hidden>
 
        * cus-theme.el (customize-create-theme): Delete overlays after

=== modified file 'lisp/textmodes/reftex-cite.el'
--- a/lisp/textmodes/reftex-cite.el     2010-08-29 16:17:13 +0000
+++ b/lisp/textmodes/reftex-cite.el     2010-10-16 15:08:47 +0000
@@ -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"))