Mercurial > emacs

comparison lisp/textmodes/reftex-vcr.el @ 25805:efe07431a7ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reftex-view-cr-cite): Deal with multiple thebibliography environments.
author Carsten Dominik <dominik@science.uva.nl>
date Fri, 24 Sep 1999 10:04:08 +0000
parents 9b601931b795
children 489a5439b988
comparison
equal deleted inserted replaced
25804:8ae20ae6b8d2 25805:efe07431a7ba
1 ;;; reftex-vcr.el - Viewing cross references and citations with RefTeX 1 ;;; reftex-vcr.el - Viewing cross references and citations with RefTeX
2 ;;; Version: 4.5 2 ;;; Version: 4.6
3 ;;; 3 ;;;
4 ;;; See main file reftex.el for licensing information 4 ;;; See main file reftex.el for licensing information
5 5
6 (provide 'reftex-vcr) 6 (provide 'reftex-vcr)
7 (require 'reftex) 7 (require 'reftex)
97 ((assq 'bib (symbol-value reftex-docstruct-symbol)) 97 ((assq 'bib (symbol-value reftex-docstruct-symbol))
98 (setq item nil 98 (setq item nil
99 files (reftex-get-bibfile-list))) 99 files (reftex-get-bibfile-list)))
100 ((assq 'thebib (symbol-value reftex-docstruct-symbol)) 100 ((assq 'thebib (symbol-value reftex-docstruct-symbol))
101 (setq item t 101 (setq item t
102 files (list (cdr (assq 'thebib 102 files (reftex-uniquify
103 (symbol-value reftex-docstruct-symbol)))))) 103 (mapcar 'cdr
104 (reftex-all-assq
105 'thebib (symbol-value reftex-docstruct-symbol))))))
104 (reftex-default-bibliography 106 (reftex-default-bibliography
105 (setq item nil 107 (setq item nil
106 files (reftex-default-bibliography))) 108 files (reftex-default-bibliography)))
107 (how) ;; don't throw for special display 109 (how) ;; don't throw for special display
108 (t (error "Cannot display crossref"))) 110 (t (error "Cannot display crossref")))