Mercurial > emacs

comparison lisp/textmodes/reftex-cite.el @ 60918:58a53f588384

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* textmodes/refbib.el, textmodes/refer.el, textmodes/reftex-cite.el, textmodes/reftex-index.el, textmodes/reftex-parse.el, textmodes/reftex-ref.el, textmodes/reftex-vars.el, textmodes/reftex.el, textmodes/org.el: Replace `illegal' with `invalid'.
author Werner LEMBERG <wl@gnu.org>
date Fri, 25 Mar 2005 09:03:24 +0000
parents 978d83f0a49f
children a7e02ef1e3d6 4da4a09e8b1b
comparison
equal deleted inserted replaced
60917:87f9bb9d3718 60918:58a53f588384
1 ;;; reftex-cite.el --- creating citations with RefTeX 1 ;;; reftex-cite.el --- creating citations with RefTeX
2 ;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc. 2 ;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005
3 ;; Free Software Foundation, Inc.
3 4
4 ;; Author: Carsten Dominik <dominik@science.uva.nl> 5 ;; Author: Carsten Dominik <dominik@science.uva.nl>
5 ;; Version: 4.26 6 ;; Version: 4.26
6 7
7 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
980 981
981 (unless (stringp format) (setq format "\\cite{%l}")) 982 (unless (stringp format) (setq format "\\cite{%l}"))
982 983
983 (if (and reftex-comment-citations 984 (if (and reftex-comment-citations
984 (string-match "%l" reftex-cite-comment-format)) 985 (string-match "%l" reftex-cite-comment-format))
985 (error "reftex-cite-comment-format contains illegal %%l")) 986 (error "reftex-cite-comment-format contains invalid %%l"))
986 987
987 (while (string-match 988 (while (string-match
988 "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)" 989 "\\(\\`\\|[^%]\\)\\(\\(%\\([0-9]*\\)\\([a-zA-Z]\\)\\)[.,;: ]*\\)"
989 format) 990 format)
990 (let ((n (string-to-int (match-string 4 format))) 991 (let ((n (string-to-int (match-string 4 format)))