diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-02-17 01:05:26 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-02-17 01:54:49 -0500 |
| commit | 4dccd56e1fe424ed1af580e29a39c40642618b6b (patch) | |
| tree | 28b2f0c591e1e0fdd7bfb62bf32e3b8838eb787d | |
| parent | 16b8a782adace8044406308049e41c3f572acb91 (diff) | |
| download | bog-4dccd56e1fe424ed1af580e29a39c40642618b6b.tar.gz | |
prepare-bib-file: Fix use of bibtex-key-in-head
Set the match data according to bibtex-entry-head before calling
bibtex-key-in-head. bibtex-key-in-head relies on bibtex-entry-head
having generated the most recent match data, but I was using it as
though it took care of the matching. By luck, it seems that the most
recent match data tends to be correct right after cleaning the entry.
| -rw-r--r-- | bog.el | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -617,8 +617,10 @@ one entry per BibTeX file." (insert-file-contents file) (bibtex-skip-to-valid-entry) (bibtex-clean-entry new-key) - (setq bib-file (expand-file-name (concat (bibtex-key-in-head) ".bib") - new-directory)) + (if (looking-at bibtex-entry-head) + (setq bib-file (expand-file-name (concat (bibtex-key-in-head) ".bib") + new-directory)) + (error "BibTeX header line looks wrong")) (write-file bib-file)) ;; If a buffer was visiting the original bib file, point it to the ;; new file. |