- (find-file bibfile)
- ;; Check if the doi already exists
- (goto-char (point-min))
- (if (search-forward doi nil t)
- (message "%s is already in this file" doi)
- (end-of-buffer)
- (insert "\n\n")
- (doi-utils-insert-bibtex-entry-from-doi doi)
- (save-buffer))))
+ (with-current-buffer
+ (find-file-noselect bibfile)
+ ;; Check if the doi already exists
+ (goto-char (point-min))
+ (if (search-forward doi nil t)
+ (message "%s is already in this file" doi)
+ (end-of-buffer)
+ (insert "\n\n")
+ (doi-utils-insert-bibtex-entry-from-doi doi)
+ (save-buffer)))))