From e2a8724d9ced7f15559481adbaf4381e51d7ce25 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 1 May 2014 21:53:49 -0400 Subject: Correct misplaced save-excursion --- bog.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'bog.el') diff --git a/bog.el b/bog.el index 975b60e..3aab863 100644 --- a/bog.el +++ b/bog.el @@ -432,10 +432,10 @@ one entry per BibTeX file." (bog-prepare-bib-file it t bog-bib-directory)))) (defun bog-prepare-bib-file (file &optional new-key new-directory) - (save-excursion - (let ((was-open (get-file-buffer file)) - (buffer (find-file-noselect file))) - (with-current-buffer buffer + (let ((was-open (get-file-buffer file)) + (buffer (find-file-noselect file))) + (with-current-buffer buffer + (save-excursion (goto-char (point-min)) (bibtex-skip-to-valid-entry) (bibtex-clean-entry new-key) @@ -447,9 +447,9 @@ one entry per BibTeX file." (rename-file file bib-file) (rename-buffer bib-file) (set-visited-file-name bib-file) - (save-buffer))) - (unless was-open - (kill-buffer buffer))))) + (save-buffer)))) + (unless was-open + (kill-buffer buffer)))) ;;;###autoload (defun bog-create-combined-bib () -- cgit v1.2.3