diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-05-15 20:28:01 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-05-15 20:28:01 -0400 |
| commit | 4ad6c7ef42583fa202244f889049463697e7fbf8 (patch) | |
| tree | 7e3df4ca1f1279a9cedff2a9c73a889061e42f82 | |
| parent | eb0b3713d9d08f5ca4f6a4cbf4bcf59f6c496989 (diff) | |
| download | emacs.d-4ad6c7ef42583fa202244f889049463697e7fbf8.tar.gz | |
bibtex-sub-journal: Fix nil error
| -rw-r--r-- | lisp/km-bib.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/km-bib.el b/lisp/km-bib.el index 5eb7bdd..55c6cd5 100644 --- a/lisp/km-bib.el +++ b/lisp/km-bib.el @@ -148,11 +148,11 @@ to (when (boundp 'km/bibtex-journal-substitutions) (save-excursion (bibtex-beginning-of-entry) - (let* ((bounds (bibtex-search-forward-field "journal" t)) - (beg (1+ (bibtex-start-of-text-in-field bounds))) - (end (1- (bibtex-end-of-text-in-field bounds)))) + (let ((bounds (bibtex-search-forward-field "journal" t))) (when bounds - (let* ((journ (replace-regexp-in-string + (let* ((beg (1+ (bibtex-start-of-text-in-field bounds))) + (end (1- (bibtex-end-of-text-in-field bounds))) + (journ (replace-regexp-in-string "[ \n]+" " " (buffer-substring-no-properties beg end))) (sub (assoc-string journ km/bibtex-journal-substitutions))) |