Mercurial > emacs
comparison lisp/textmodes/reftex-vcr.el @ 25805:efe07431a7ba
(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"))) |