comparison lisp/textmodes/refbib.el @ 60918:58a53f588384

* 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 695cf19ef79e
children a8fa7c632ee4 4da4a09e8b1b
comparison
equal deleted inserted replaced
60917:87f9bb9d3718 60918:58a53f588384
1 ;;; refbib.el --- convert refer-style references to ones usable by Latex bib 1 ;;; refbib.el --- convert refer-style references to ones usable by Latex bib
2 2
3 ;; Copyright (C) 1989 Free Software Foundation, Inc. 3 ;; Copyright (C) 1989, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Henry Kautz <kautz@research.att.com> 5 ;; Author: Henry Kautz <kautz@research.att.com>
6 ;; Keywords: bib, tex 6 ;; Keywords: bib, tex
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
33 33
34 ;; HISTORY 34 ;; HISTORY
35 ;; 9/88, created H.Kautz 35 ;; 9/88, created H.Kautz
36 ;; modified 1/19/89, allow books with editor but no author; 36 ;; modified 1/19/89, allow books with editor but no author;
37 ;; added %O ordering field; 37 ;; added %O ordering field;
38 ;; appended illegal multiple fields, instead of 38 ;; appended invalid multiple fields, instead of
39 ;; discarding; 39 ;; discarding;
40 ;; added rule, a tech report whose %R number 40 ;; added rule, a tech report whose %R number
41 ;; contains "ISBN" is really a book 41 ;; contains "ISBN" is really a book
42 ;; added rule, anything with an editor is a book 42 ;; added rule, anything with an editor is a book
43 ;; or a proceedings 43 ;; or a proceedings
290 ) 290 )
291 (if (null val) 291 (if (null val)
292 (setq val item) 292 (setq val item)
293 (if unique 293 (if unique
294 (progn 294 (progn
295 (r2b-warning "*Illegal multiple field %s %s" field item) 295 (r2b-warning "*Invalid multiple field %s %s" field item)
296 (setq val (concat val "\n" item)) 296 (setq val (concat val "\n" item))
297 ) 297 )
298 (setq val (concat val "\n\t\tand " item)) 298 (setq val (concat val "\n\t\tand " item))
299 ) 299 )
300 ) 300 )