Update to Org 9.6.7-13-g99cc96

diff --git a/lisp/org/ol-bibtex.el b/lisp/org/ol-bibtex.el
index fd9517233e0186d89775e183cf07bcf1e81c9b87..a16a4b39277548e8a3846be533088af28101f1ee 100644 (file)
--- a/lisp/org/ol-bibtex.el
+++ b/lisp/org/ol-bibtex.el
@@ -761,7 +761,10 @@ drawer."
   "If kill ring holds a bibtex entry yank it as an Org headline."
   (interactive)
   (let (entry)
-    (with-temp-buffer (yank 1) (setf entry (org-bibtex-read)))
+    (with-temp-buffer
+      (yank 1)
+      (bibtex-mode)
+      (setf entry (org-bibtex-read)))
     (if entry
        (org-bibtex-write)
       (error "Yanked text does not appear to contain a BibTeX entry"))))

diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index d7fe14cd5e1c740ff55c81281b21a2161ecc6a59..b85ce6a636877f584852f8efe13a233321fd6858 100644 (file)
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -2069,6 +2069,7 @@ Use `\\[org-clock-remove-overlays]' to remove the subtree times."
               h m))))
 
 (defvar-local org-clock-overlays nil)
+(put 'org-clock-overlays 'permanent-local t)
 
 (defun org-clock-put-overlay (time)
   "Put an overlay on the headline at point, displaying TIME.

diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el
index 92a3b473d15ad1e841bfb522d797d6d78fa8ef55..28cfd0d910c4292c35e0f36d19ae70900819748f 100644 (file)
--- a/lisp/org/org-colview.el
+++ b/lisp/org/org-colview.el
@@ -116,6 +116,7 @@ in `org-columns-summary-types-default', which see."
 
 (defvar-local org-columns-overlays nil
   "Holds the list of current column overlays.")
+(put 'org-columns-overlays 'permanent-local t)
 
 (defvar-local org-columns-current-fmt nil
   "Local variable, holds the currently active column format.")

diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index df43ebcf0c5dfb11b93013604f0d7a5aa290b421..296468eed1ad38e25c50c99854728c83ef5875f1 100644 (file)
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -6567,7 +6567,9 @@ If you observe Emacs hangs frequently, please report this to Org mode mailing li
                  ;; Make sure that we return referenced element in cache
                  ;; that can be altered directly.
                  (if element
-                     (setq element (or (org-element--cache-put element) element))
+                     (progn
+                       (org-element-put-property element :granularity 'element)
+                       (setq element (or (org-element--cache-put element) element)))
                    ;; Nothing to parse (i.e. empty file).
                    (throw 'exit parent))
                  (unless (or (not (org-element--cache-active-p)) parent)
@@ -6942,12 +6944,13 @@ known element in cache (it may start after END)."
                           (let ((current (org-with-point-at (org-element-property :begin up)
                                            (org-element-with-disabled-cache
                                              (and (looking-at-p org-element-headline-re)
-                                                  (org-element-headline-parser))))))
+                                                  (org-element-headline-parser nil 'fast))))))
                             (when (eq 'headline (org-element-type current))
                               (org-element--cache-log-message
                                "Found non-robust headline that can be updated individually: %S"
                                (org-element--format-element current))
                               (org-element-set-element up current)
+                              (org-element-put-property up :granularity 'element)
                               t)))
                      ;; If UP is org-data, the situation is similar to
                      ;; headline case.  We just need to re-parse the

diff --git a/lisp/org/org-num.el b/lisp/org/org-num.el
index cbe5e455ea68c1b30a8887f7f3f38b359469dceb..807fa66223bb1c34fb14a7840c3982fe298e23e5 100644 (file)
--- a/lisp/org/org-num.el
+++ b/lisp/org/org-num.el
@@ -156,6 +156,7 @@ control tag inheritance."
 
 (defvar-local org-num--overlays nil
   "Ordered list of overlays used for numbering outlines.")
+(put 'org-num--overlays 'permanent-local t)
 
 (defvar-local org-num--skip-level nil
   "Level below which headlines from current tree are not numbered.

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 83bad3f3a64eaf019f8f5e8f1ba6d7be4058ac79..fd10ccf576fe377c2488a80bd98ac96a898fe48f 100644 (file)
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -477,6 +477,7 @@ This may be useful when columns have been shrunk."
       (format "|%s" (mapconcat #'identity (reverse str) "")))))
 
 (defvar-local org-table-header-overlay nil)
+(put 'org-table-header-overlay 'permanent-local t)
 (defun org-table-header-set-header ()
   "Display the header of the table at point."
   (let ((gcol temporary-goal-column))
@@ -3812,6 +3813,7 @@ FACE, when non-nil, for the highlight."
 
 (defvar-local org-table-coordinate-overlays nil
   "Collects the coordinate grid overlays, so that they can be removed.")
+(put 'org-table-coordinate-overlays 'permanent-local t)
 
 (defun org-table-overlay-coordinates ()
   "Add overlays to the table at point, to show row/column coordinates."

diff --git a/lisp/org/org-version.el b/lisp/org/org-version.el
index 9116e298aa9571772d15e4b1465469d9e9f0ef30..57e406b24fcb928f1e66e28753fe41ac21ea10cb 100644 (file)
--- 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.6.7-5-gd1d0c3"))
+   (let ((org-git-version "release_9.6.7-13-g99cc96"))
      org-git-version))
 \f
 (provide 'org-version)

diff --git a/lisp/org/org.el b/lisp/org/org.el
index 0043c0407a92acc4ea3c3a5e9c9d19ebcd6c47f4..c5c0808104fff43bd5418331de13269372f96cc3 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -5893,6 +5893,8 @@ needs to be inserted at a specific position in the font-lock sequence.")
 
 (defvar-local org-custom-properties-overlays nil
   "List of overlays used for custom properties.")
+;; Preserve when switching modes or when restarting Org.
+(put 'org-custom-properties-overlays 'permanent-local t)
 
 (defun org-toggle-custom-properties-visibility ()
   "Display or hide properties in `org-custom-properties'."
@@ -10673,6 +10675,7 @@ D      Show deadlines and scheduled items between a date range."
 
 (defvar-local org-occur-highlights nil
   "List of overlays used for occur matches.")
+(put 'org-occur-highlights 'permanent-local t)
 (defvar-local org-occur-parameters nil
   "Parameters of the active org-occur calls.
 This is a list, each call to org-occur pushes as cons cell,
@@ -16159,6 +16162,10 @@ SNIPPETS-P indicates if this is run to create snippet images for HTML."
 ;; Image display
 
 (defvar-local org-inline-image-overlays nil)
+;; Preserve when switching modes or when restarting Org.
+;; If we clear the overlay list and later enable Or mode, the existing
+;; image overlays will never be cleared by `org-toggle-inline-images'.
+(put 'org-inline-image-overlays 'permanent-local t)
 
 (defun org--inline-image-overlays (&optional beg end)
   "Return image overlays between BEG and END."

diff --git a/lisp/org/ox-publish.el b/lisp/org/ox-publish.el
index f9c3877d7dfc43031a539fdc79efd31d1cff0c68..cff34f058828dd4e69c1baa7f7d543061c64ab32 100644 (file)
--- a/lisp/org/ox-publish.el
+++ b/lisp/org/ox-publish.el
@@ -1183,7 +1183,8 @@ references with `org-export-get-reference'."
                     (org-link-search search nil t)
                   (error
                    (signal 'org-link-broken (cdr err)))))
-              (and (org-at-heading-p)
+              (and (derived-mode-p 'org-mode)
+                    (org-at-heading-p)
                    (org-string-nw-p (org-entry-get (point) "CUSTOM_ID"))))))))
    ((not org-publish-cache)
     (progn

diff --git a/lisp/org/ox.el b/lisp/org/ox.el
index 6f819def93afd1849676f826d03f8346dd13d350..94cc5a22881226deb199b6d2c0cf0675b544cac9 100644 (file)
--- a/lisp/org/ox.el
+++ b/lisp/org/ox.el
@@ -5684,11 +5684,8 @@ transcoding it."
      (primary-closing
       :utf-8 " »" :html " »" :latex "\\fg{}"
       :texinfo "@tie{}@guillemetright{}")
-     (secondary-opening
-      :utf-8 "« " :html "« " :latex "\\og "
-      :texinfo "@guillemetleft{}@tie{}")
-     (secondary-closing :utf-8 " »" :html " »" :latex "\\fg{}"
-                       :texinfo "@tie{}@guillemetright{}")
+     (secondary-opening :utf-8 "“" :html "“" :latex "``" :texinfo "``")
+     (secondary-closing :utf-8 "”" :html "”" :latex "''" :texinfo "''")
      (apostrophe :utf-8 "’" :html "’"))
     ("is"
      (primary-opening