CVSROOT: /sources/auctex
Module name: reftex
Changes by: Ralf Angeli <angeli> 07/04/03 20:34:36
Index: reftex-cite.el
===================================================================
RCS file: /sources/auctex/reftex/lisp/reftex-cite.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- reftex-cite.el 4 Mar 2007 16:48:26 -0000 1.42
+++ reftex-cite.el 3 Apr 2007 20:34:36 -0000 1.43
@@ -131,8 +131,8 @@
(let* ((re
(if item
(concat "\\\\bibitem\\(\\[[^]]*\\]\\)?{" (regexp-quote key) "}")
- (concat "@[a-zA-Z]+[ \t\n\r]*[{(][ \t\n\r]*" (regexp-quote key)
- "[, \t\r\n}]")))
+ (concat "@\\(?:\\w\\|\\s_\\)+[ \t\n\r]*[{(][ \t\n\r]*"
+ (regexp-quote key) "[, \t\r\n}]")))
(buffer-conf (current-buffer))
file buf pos oldpos)
@@ -239,8 +239,8 @@
(while (re-search-forward first-re nil t)
(catch 'search-again
(setq key-point (point))
- (unless (re-search-backward
- "\\(\\`\\|[\n\r]\\)[ [EMAIL PROTECTED]([a-zA-Z]+\\)[
\t\n\r]*[{(]" nil t)
+ (unless (re-search-backward "\\(\\`\\|[\n\r]\\)[ \t]*\
[EMAIL PROTECTED](\\(?:\\w\\|\\s_\\)+\\)[ \t\n\r]*[{(]" nil t)
(throw 'search-again nil))
(setq start-point (point))
(goto-char (match-end 0))
@@ -465,8 +465,8 @@
(narrow-to-region from to))
(goto-char (point-min))
- (if (re-search-forward
- "@\\(\\w+\\)[ \t\n\r]*[{(][ \t\n\r]*\\([^ \t\n\r,]+\\)" nil t)
+ (if (re-search-forward "@\\(\\(?:\\w\\|\\s_\\)+\\)[ \t\n\r]*\
+\[{(][ \t\n\r]*\\([^ \t\n\r,]+\\)" nil t)
(setq alist
(list
(cons "&type" (downcase (reftex-match-string 1)))
@@ -1154,7 +1154,7 @@
(widen)
(goto-char (point-min))
(while (re-search-forward
- "^[ [EMAIL PROTECTED] \t]*{\\([^ \t\r\n]+\\),"
+ "^[ [EMAIL PROTECTED](?:\\w\\|\\s_\\)+[ \t]*{\\([^
\t\r\n]+\\),"
nil t)
(setq key (match-string 1)
beg (match-beginning 0)
_______________________________________________
auctex-commit mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-commit
