[Emacs-diffs] trunk r116091: Fix regex used for searching citation keys.

[Tassilo Horn]

------------------------------------------------------------
revno: 116091
revision-id: address@hidden
parent: address@hidden
committer: Tassilo Horn <address@hidden>
branch nick: build
timestamp: Tue 2014-01-21 09:18:30 +0100
message:
  Fix regex used for searching citation keys.
  
  * lisp/textmodes/reftex-cite.el (reftex-all-used-citation-keys): Fix
  regex used for scanning for citation keys which failed for
  citations with optional arguments.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/reftex-cite.el  
reftexcite.el-20091113204419-o5vbwnq5f7feedwu-1331

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-21 01:58:16 +0000
+++ b/lisp/ChangeLog    2014-01-21 08:18:30 +0000
@@ -1,3 +1,9 @@
+2014-01-21  Tassilo Horn  <address@hidden>
+
+       * textmodes/reftex-cite.el (reftex-all-used-citation-keys): Fix
+       regex used for scanning for citation keys which failed for
+       citations with optional arguments.
+
 2014-01-21  Leo Liu  <address@hidden>
 
        * simple.el (read--expression): Don't enable eldoc-mode.

=== modified file 'lisp/textmodes/reftex-cite.el'
--- a/lisp/textmodes/reftex-cite.el     2014-01-01 07:43:34 +0000
+++ b/lisp/textmodes/reftex-cite.el     2014-01-21 08:18:30 +0000
@@ -1130,7 +1130,7 @@
           (save-restriction
             (widen)
             (goto-char (point-min))
-            (while (re-search-forward 
"\\(?:^\\|\\=\\)[^%\n\r]*?\\\\\\(bibentry\\|[a-zA-Z]*cite[a-zA-Z]*\\)\\(\\[[^\\]]*\\]\\)?{\\([^}]+\\)}"
 nil t)
+            (while (re-search-forward 
"\\(?:^\\|\\=\\)[^%\n\r]*?\\\\\\(bibentry\\|[a-zA-Z]*cite[a-zA-Z]*\\)\\(\\[[^]]*\\]\\)?{\\([^}]+\\)}"
 nil t)
               (setq kk (match-string-no-properties 3))
               (while (string-match "%.*\n?" kk)
                 (setq kk (replace-match "" t t kk)))