[Emacs-diffs] Changes to emacs/lisp/textmodes/refbib.el

[Werner LEMBERG]

Index: emacs/lisp/textmodes/refbib.el
diff -c emacs/lisp/textmodes/refbib.el:1.18 emacs/lisp/textmodes/refbib.el:1.19
*** emacs/lisp/textmodes/refbib.el:1.18 Mon Sep  1 15:45:40 2003
--- emacs/lisp/textmodes/refbib.el      Fri Mar 25 09:03:24 2005
***************
*** 1,6 ****
  ;;; refbib.el --- convert refer-style references to ones usable by Latex bib
  
! ;; Copyright (C) 1989 Free Software Foundation, Inc.
  
  ;; Author: Henry Kautz <address@hidden>
  ;; Keywords: bib, tex
--- 1,6 ----
  ;;; refbib.el --- convert refer-style references to ones usable by Latex bib
  
! ;; Copyright (C) 1989, 2005 Free Software Foundation, Inc.
  
  ;; Author: Henry Kautz <address@hidden>
  ;; Keywords: bib, tex
***************
*** 35,41 ****
  ;; 9/88, created H.Kautz
  ;; modified 1/19/89, allow books with editor but no author;
  ;;                   added %O ordering field;
! ;;                   appended illegal multiple fields, instead of
  ;;                     discarding;
  ;;                   added rule, a tech report whose %R number
  ;;                     contains "ISBN" is really a book
--- 35,41 ----
  ;; 9/88, created H.Kautz
  ;; modified 1/19/89, allow books with editor but no author;
  ;;                   added %O ordering field;
! ;;                   appended invalid multiple fields, instead of
  ;;                     discarding;
  ;;                   added rule, a tech report whose %R number
  ;;                     contains "ISBN" is really a book
***************
*** 292,298 ****
            (setq val item)
            (if unique
               (progn
!                 (r2b-warning "*Illegal multiple field %s %s" field item)
                  (setq val (concat val "\n" item))
                  )
               (setq val (concat val "\n\t\tand " item))
--- 292,298 ----
            (setq val item)
            (if unique
               (progn
!                 (r2b-warning "*Invalid multiple field %s %s" field item)
                  (setq val (concat val "\n" item))
                  )
               (setq val (concat val "\n\t\tand " item))