emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-28 df34929346: Update to Org 9.5.2-15-gc5ceb6


From: Kyle Meyer
Subject: emacs-28 df34929346: Update to Org 9.5.2-15-gc5ceb6
Date: Sun, 13 Feb 2022 12:50:48 -0500 (EST)

branch: emacs-28
commit df3492934639628f023049e032421b7beb80de57
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>

    Update to Org 9.5.2-15-gc5ceb6
---
 lisp/org/ol-bibtex.el   | 6 ++++--
 lisp/org/org-list.el    | 2 +-
 lisp/org/org-version.el | 2 +-
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/org/ol-bibtex.el b/lisp/org/ol-bibtex.el
index 218f8f17ed..81b99167b8 100644
--- a/lisp/org/ol-bibtex.el
+++ b/lisp/org/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'.
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el
index 0dd8139a97..da309f8c6d 100644
--- a/lisp/org/org-list.el
+++ b/lisp/org/org-list.el
@@ -1442,7 +1442,7 @@ This function returns, destructively, the new list 
structure."
                      (save-excursion
                        (goto-char (org-list-get-last-item item struct prevs))
                        (point-at-eol)))
-                    ((string-match-p "\\`[0-9]+\\'" dest)
+                    ((and (stringp dest) (string-match-p "\\`[0-9]+\\'" dest))
                      (let* ((all (org-list-get-all-items item struct prevs))
                             (len (length all))
                             (index (mod (string-to-number dest) len)))
diff --git a/lisp/org/org-version.el b/lisp/org/org-version.el
index 572203711c..336347b29c 100644
--- a/lisp/org/org-version.el
+++ b/lisp/org/org-version.el
@@ -11,7 +11,7 @@ Inserted by installing Org mode or when a release is made."
 (defun org-git-version ()
   "The Git version of Org mode.
 Inserted by installing Org or when a release is made."
-   (let ((org-git-version "release_9.5.2-13-gdd6486"))
+   (let ((org-git-version "release_9.5.2-15-gc5ceb6"))
      org-git-version))
 
 (provide 'org-version)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]