parsebib-replace-string: Do not try to expand fields when no strings are provided.

1 files changed, 5 insertions, 3 deletions

diff --git a/parsebib.el b/parsebib.el
index 468f439..077487f 100644
--- a/parsebib.el
+++ b/parsebib.el
@@ -196,9 +196,11 @@ point."
 
 (defun parsebib-replace-strings (val strings)
   "Replace strings in VAL using (key, value) pairs from hash table STRINGS."
-  (replace-regexp-in-string "\"" "" (string-join (mapcar
-                                                  (lambda (x) (if strings (gethash x strings x) x))
-                                                  (split-string val " # " t)))))
+  (if (not strings)
+      val
+    (replace-regexp-in-string "\"" "" (string-join (mapcar
+                                                    (lambda (x) (if strings (gethash x strings x) x))
+                                                    (split-string val " # " t))))))
 
 (defun parsebib-read-string (&optional pos strings)
   "Read the @String definition beginning at the line POS is on.