[Emacs-diffs] Changes to emacs/lisp/textmodes/reftex-cite.el

[Juanma Barranquero]

Index: emacs/lisp/textmodes/reftex-cite.el
diff -c emacs/lisp/textmodes/reftex-cite.el:1.26 
emacs/lisp/textmodes/reftex-cite.el:1.27
*** emacs/lisp/textmodes/reftex-cite.el:1.26    Fri Mar 25 09:03:24 2005
--- emacs/lisp/textmodes/reftex-cite.el Mon May 16 11:29:12 2005
***************
*** 312,323 ****
        (not (stringp (car al1))))))
  
  (defun reftex-bib-sort-year (e1 e2)
!   (< (string-to-int (or (cdr (assoc "year" e1)) "0"))
!      (string-to-int (or (cdr (assoc "year" e2)) "0"))))
  
  (defun reftex-bib-sort-year-reverse (e1 e2)
!   (> (string-to-int (or (cdr (assoc "year" e1)) "0"))
!      (string-to-int (or (cdr (assoc "year" e2)) "0"))))
  
  (defun reftex-get-crossref-alist (entry)
    ;; return the alist from a crossref entry
--- 312,323 ----
        (not (stringp (car al1))))))
  
  (defun reftex-bib-sort-year (e1 e2)
!   (< (string-to-number (or (cdr (assoc "year" e1)) "0"))
!      (string-to-number (or (cdr (assoc "year" e2)) "0"))))
  
  (defun reftex-bib-sort-year-reverse (e1 e2)
!   (> (string-to-number (or (cdr (assoc "year" e1)) "0"))
!      (string-to-number (or (cdr (assoc "year" e2)) "0"))))
  
  (defun reftex-get-crossref-alist (entry)
    ;; return the alist from a crossref entry
***************
*** 988,994 ****
    (while (string-match
            "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)"
            format)
!     (let ((n (string-to-int (match-string 4 format)))
            (l (string-to-char (match-string 5 format)))
            rpl b e)
        (save-match-data
--- 988,994 ----
    (while (string-match
            "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)"
            format)
!     (let ((n (string-to-number (match-string 4 format)))
            (l (string-to-char (match-string 5 format)))
            rpl b e)
        (save-match-data