[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/refbib.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/refbib.el |
Date: |
Tue, 09 Aug 2005 07:00:43 -0400 |
Index: emacs/lisp/textmodes/refbib.el
diff -c emacs/lisp/textmodes/refbib.el:1.22 emacs/lisp/textmodes/refbib.el:1.23
*** emacs/lisp/textmodes/refbib.el:1.22 Tue Aug 9 00:56:37 2005
--- emacs/lisp/textmodes/refbib.el Tue Aug 9 11:00:42 2005
***************
*** 222,258 ****
(defvar r2b-error-found nil)
(setq r2b-variables '(
! r2b-error-found
! r2bv-author
! r2bv-primary-author
! r2bv-date
! r2bv-year
! r2bv-decade
! r2bv-month
! r2bv-title
! r2bv-title-first-word
! r2bv-editor
! r2bv-annote
! r2bv-tr
! r2bv-address
! r2bv-institution
! r2bv-keywords
! r2bv-booktitle
! r2bv-journal
! r2bv-volume
! r2bv-number
! r2bv-pages
! r2bv-booktitle
! r2bv-kn
! r2bv-publisher
! r2bv-organization
! r2bv-school
! r2bv-type
! r2bv-where
! r2bv-note
! r2bv-ordering
! ))
(defun r2b-clear-variables ()
"Set all global vars used by r2b to nil."
--- 222,270 ----
(defvar r2b-error-found nil)
+ (eval-when-compile
+ (defvar r2b-variables) (defvar r2bv-address) (defvar r2bv-annote)
+ (defvar r2bv-author) (defvar r2bv-booktitle) (defvar r2bv-date)
+ (defvar r2bv-decade) (defvar r2bv-editor) (defvar r2bv-entry-kind)
+ (defvar r2bv-institution) (defvar r2bv-journal) (defvar r2bv-keywords)
+ (defvar r2bv-kn) (defvar r2bv-month) (defvar r2bv-note)
+ (defvar r2bv-number) (defvar r2bv-ordering) (defvar r2bv-organization)
+ (defvar r2bv-pages) (defvar r2bv-primary-author) (defvar r2bv-publisher)
+ (defvar r2bv-school) (defvar r2bv-title) (defvar
r2bv-title-first-word)
+ (defvar r2bv-tr) (defvar r2bv-type) (defvar r2bv-volume)
+ (defvar r2bv-where) (defvar r2bv-year))
+
(setq r2b-variables '(
! r2b-error-found
! r2bv-author
! r2bv-primary-author
! r2bv-date
! r2bv-year
! r2bv-decade
! r2bv-month
! r2bv-title
! r2bv-title-first-word
! r2bv-editor
! r2bv-annote
! r2bv-tr
! r2bv-address
! r2bv-institution
! r2bv-keywords
! r2bv-booktitle
! r2bv-journal
! r2bv-volume
! r2bv-number
! r2bv-pages
! r2bv-booktitle
! r2bv-kn
! r2bv-publisher
! r2bv-organization
! r2bv-school
! r2bv-type
! r2bv-where
! r2bv-note
! r2bv-ordering
! ))
(defun r2b-clear-variables ()
"Set all global vars used by r2b to nil."
***************
*** 633,646 ****
)
! (defun r2b-convert-record (output-name)
! "Transform current bib entry and append to buffer OUTPUT;
! do \"M-x r2b-help\" for more info."
(interactive
(list (read-string "Output to buffer: " r2b-out-buf-name)))
(let (rec-end rec-begin not-done)
! (setq r2b-out-buf-name output-name)
! (setq r2b-out-buf (get-buffer-create output-name))
(setq r2b-in-buf (current-buffer))
(set-buffer r2b-out-buf)
(goto-char (point-max))
--- 645,658 ----
)
! (defun r2b-convert-record (output)
! "Transform current bib entry and append to buffer OUTPUT.
! Do `\\[r2b-help]' for more info."
(interactive
(list (read-string "Output to buffer: " r2b-out-buf-name)))
(let (rec-end rec-begin not-done)
! (setq r2b-out-buf-name output)
! (setq r2b-out-buf (get-buffer-create output))
(setq r2b-in-buf (current-buffer))
(set-buffer r2b-out-buf)
(goto-char (point-max))
***************
*** 670,678 ****
))
! (defun r2b-convert-buffer (output-name)
"Transform current buffer and append to buffer OUTPUT.
! Do `M-x r2b-help' for more info."
(interactive
(list (read-string "Output to buffer: " r2b-out-buf-name)))
(save-excursion
--- 682,690 ----
))
! (defun r2b-convert-buffer (output)
"Transform current buffer and append to buffer OUTPUT.
! Do `\\[r2b-help]' for more info."
(interactive
(list (read-string "Output to buffer: " r2b-out-buf-name)))
(save-excursion
***************
*** 683,689 ****
(goto-char (point-min))
(message "Working, please be patient...")
(sit-for 0)
! (while (r2b-convert-record output-name) t)
(message "Done, results in %s, errors in %s"
r2b-out-buf-name r2b-log-name)
)
--- 695,701 ----
(goto-char (point-min))
(message "Working, please be patient...")
(sit-for 0)
! (while (r2b-convert-record output) t)
(message "Done, results in %s, errors in %s"
r2b-out-buf-name r2b-log-name)
)