1 |
;;; refbib.el --- convert refer-style references to ones usable by Latex bib |
;;; refbib.el --- convert refer-style references to ones usable by Latex bib |
2 |
|
|
3 |
;; Copyright (C) 1989 Free Software Foundation, Inc. |
;; Copyright (C) 1989, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Henry Kautz <kautz@research.att.com> |
;; Author: Henry Kautz <kautz@research.att.com> |
6 |
;; Keywords: bib, tex |
;; Keywords: bib, tex |
35 |
;; 9/88, created H.Kautz |
;; 9/88, created H.Kautz |
36 |
;; modified 1/19/89, allow books with editor but no author; |
;; modified 1/19/89, allow books with editor but no author; |
37 |
;; added %O ordering field; |
;; added %O ordering field; |
38 |
;; appended illegal multiple fields, instead of |
;; appended invalid multiple fields, instead of |
39 |
;; discarding; |
;; discarding; |
40 |
;; added rule, a tech report whose %R number |
;; added rule, a tech report whose %R number |
41 |
;; contains "ISBN" is really a book |
;; contains "ISBN" is really a book |
292 |
(setq val item) |
(setq val item) |
293 |
(if unique |
(if unique |
294 |
(progn |
(progn |
295 |
(r2b-warning "*Illegal multiple field %s %s" field item) |
(r2b-warning "*Invalid multiple field %s %s" field item) |
296 |
(setq val (concat val "\n" item)) |
(setq val (concat val "\n" item)) |
297 |
) |
) |
298 |
(setq val (concat val "\n\t\tand " item)) |
(setq val (concat val "\n\t\tand " item)) |