Mercurial > emacs

comparison lisp/textmodes/reftex-dcr.el @ 90228:fa0da9b57058

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 542-553) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 116-121) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Mon, 19 Sep 2005 10:20:33 +0000
parents 2d92f5c9d6ae 703495630901
children ee12d75eb214
comparison
equal deleted inserted replaced
90227:10fe5fadaf89 90228:fa0da9b57058
1 ;;; reftex-dcr.el --- viewing cross references and citations with RefTeX 1 ;;; reftex-dcr.el --- viewing cross references and citations with RefTeX
2 2 ;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2002, 2003, 2004, 3 ;; Free Software Foundation, Inc.
4 ;; 2005 Free Software Foundation, Inc.
5 4
6 ;; Author: Carsten Dominik <dominik@science.uva.nl> 5 ;; Author: Carsten Dominik <dominik@science.uva.nl>
7 ;; Version: 4.28 6 ;; Version: VERSIONTAG
8 ;; 7 ;;
9 8
10 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
11 10
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details. 19 ;; GNU General Public License for more details.
21 20
22 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02110-1301, USA. 24 ;; Boston, MA 02111-1307, USA.
26 25
27 ;;; Commentary: 26 ;;; Commentary:
28 27
29 ;;; Code: 28 ;;; Code:
30 29
266 265
267 (defun reftex-echo-ref (label entry docstruct) 266 (defun reftex-echo-ref (label entry docstruct)
268 ;; Display crossref info in echo area. 267 ;; Display crossref info in echo area.
269 (cond 268 (cond
270 ((null docstruct) 269 ((null docstruct)
271 (message (substitute-command-keys (format reftex-no-info-message "ref")))) 270 (message "%s" (substitute-command-keys (format reftex-no-info-message "ref"))))
272 ((null entry) 271 ((null entry)
273 (message "ref: unknown label: %s" label)) 272 (message "ref: unknown label: %s" label))
274 (t 273 (t
275 (when (stringp (nth 2 entry)) 274 (when (stringp (nth 2 entry))
276 (message "ref(%s): %s" (nth 1 entry) (nth 2 entry))) 275 (message "ref(%s): %s" (nth 1 entry) (nth 2 entry)))
299 (save-excursion 298 (save-excursion
300 (reftex-pop-to-bibtex-entry key files nil nil item t)) 299 (reftex-pop-to-bibtex-entry key files nil nil item t))
301 (error 300 (error
302 (if (and files (= (length all-files) (length files))) 301 (if (and files (= (length all-files) (length files)))
303 (message "cite: no such database entry: %s" key) 302 (message "cite: no such database entry: %s" key)
304 (message (substitute-command-keys 303 (message "%s" (substitute-command-keys
305 (format reftex-no-info-message "cite")))) 304 (format reftex-no-info-message "cite"))))
306 nil))) 305 nil)))
307 (when entry 306 (when entry
308 (if item 307 (if item
309 (setq string (reftex-nicify-text entry)) 308 (setq string (reftex-nicify-text entry))