[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 1344376d69 4/4: Merge branch 'bugfix'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 1344376d69 4/4: Merge branch 'bugfix' |
Date: |
Sat, 5 Feb 2022 06:57:45 -0500 (EST) |
branch: externals/org
commit 1344376d69a90ce80ea4a67cfdd3eedde5458456
Merge: bb8aa14923 7543da991f
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
Merge branch 'bugfix'
---
lisp/ol-bibtex.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/ol-bibtex.el b/lisp/ol-bibtex.el
index a8df6087c9..5b683469ce 100644
--- a/lisp/ol-bibtex.el
+++ b/lisp/ol-bibtex.el
@@ -655,7 +655,8 @@ With a prefix arg, query for optional fields."
(defun org-bibtex-read ()
"Read a bibtex entry and save to `org-bibtex-entries'.
-This uses `bibtex-parse-entry'."
+This uses `bibtex-parse-entry'.
+Return the new value of `org-bibtex-entries'."
(interactive)
(let ((keyword (lambda (str) (intern (concat ":" (downcase str)))))
(clean-space (lambda (str) (replace-regexp-in-string
@@ -678,7 +679,8 @@ This uses `bibtex-parse-entry'."
(funcall clean-space (funcall strip-delim (cdr pair)))))
(save-excursion (bibtex-beginning-of-entry) (bibtex-parse-entry)))
org-bibtex-entries)
- (unless (car org-bibtex-entries) (pop org-bibtex-entries))))
+ (unless (car org-bibtex-entries) (pop org-bibtex-entries))
+ org-bibtex-entries))
(defun org-bibtex-read-buffer (buffer)
"Read all bibtex entries in BUFFER and save to `org-bibtex-entries'.