[Emacs-diffs] trunk r117153: Improve reftex-format-special

[Tassilo Horn]

------------------------------------------------------------
revno: 117153
revision-id: address@hidden
parent: address@hidden
committer: Tassilo Horn <address@hidden>
branch nick: build
timestamp: Sun 2014-05-25 19:40:54 +0200
message:
  Improve reftex-format-special
  
  * lisp/textmodes/reftex-ref.el (reftex-format-special): Make it work
  also for AMS Math's \eqref macro.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/reftex-ref.el   
reftexref.el-20091113204419-o5vbwnq5f7feedwu-1335

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-25 16:53:28 +0000
+++ b/lisp/ChangeLog    2014-05-25 17:40:54 +0000
@@ -1,3 +1,8 @@
+2014-05-25  Tassilo Horn  <address@hidden>
+
+       * textmodes/reftex-ref.el (reftex-format-special): Make it work
+       also for AMS Math's \eqref macro.
+
 2014-05-25  Thien-Thi Nguyen  <address@hidden>
 
        Arrange to never byte-compile the generated -pkg.el file.

=== modified file 'lisp/textmodes/reftex-ref.el'
--- a/lisp/textmodes/reftex-ref.el      2014-03-29 00:53:32 +0000
+++ b/lisp/textmodes/reftex-ref.el      2014-05-25 17:40:54 +0000
@@ -840,8 +840,11 @@
 Replace any occurrences of \"\\ref\" with REFSTYLE."
   ;; Replace instances of \ref in `fmt' with the special reference
   ;; style selected by the user.
-  (while (string-match "\\(\\\\ref\\)[ \t]*{" fmt)
-    (setq fmt (replace-match refstyle t t fmt 1)))
+  (cond
+   ((while (string-match "\\(\\\\ref\\)[ \t]*{" fmt)
+      (setq fmt (replace-match refstyle t t fmt 1))))
+   ((string-match "\\(\\\\[[:alpha:]]+\\)[ \t]*{" fmt)
+    (setq fmt (replace-match refstyle t t fmt 1))))
   (format fmt label))
 
 ;;;###autoload