Update to Org 9.6-31-g954a95

doc/misc/org.org

@@ -1401,7 +1401,7 @@ you, configure the option ~org-table-auto-blank-field~.
 - {{{kbd(M-x org-table-blank-field)}}} ::
 
   #+findex: org-table-blank-field
-  Blank the field at point.
+  Blank the current table field or active region.
 
 - {{{kbd(S-TAB)}}} (~org-table-previous-field~) ::
 

lisp/org/ob-comint.el

@@ -117,6 +117,14 @@ or user `keyboard-quit' during execution of body."
 	 (goto-char (process-mark (get-buffer-process (current-buffer))))
 	 (insert dangling-text)
 
+         ;; Replace partially supplied input lines.
+         ;; This is needed when output filter spits partial lines that
+         ;; do not include a full prompt at a time.
+         (setq string-buffer
+               (replace-regexp-in-string
+                comint-prompt-regexp
+                ,org-babel-comint-prompt-separator
+                string-buffer))
 	 ;; remove echo'd FULL-BODY from input
 	 (when (and ,remove-echo ,full-body
 		    (string-match

lisp/org/ob-core.el

@@ -2709,7 +2709,9 @@ specified as an an \"attachment:\" style link."
                 ((and 'attachment (guard in-attach-dir)) "attachment")
                 (_ "file"))
               (if (and request-attachment in-attach-dir)
-                  (file-relative-name result-file-name)
+                  (file-relative-name
+                   result-file-name
+                   (file-name-as-directory attach-dir))
 	        (if (and default-directory
 		         base-file-name same-directory?)
 		    (if (eq org-link-file-path-type 'adaptive)

lisp/org/ol.el

@@ -1488,9 +1488,9 @@ If the link is in hidden text, expose it."
 
 (defun org-link-descriptive-ensure ()
   "Toggle the literal or descriptive display of links in current buffer if needed."
-  (if org-link-descriptive
+  (org-fold-core-set-folding-spec-property
-      (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible nil)
+   (car org-link--link-folding-spec)
-    (org-fold-core-set-folding-spec-property (car org-link--link-folding-spec) :visible t)))
+   :visible (not org-link-descriptive)))
 
 ;;;###autoload
 (defun org-toggle-link-display ()

lisp/org/org-clock.el

@@ -3049,53 +3049,58 @@ PROPERTIES: The list properties specified in the `:properties' parameter
   "If this is a CLOCK line, update it and return t.
 Otherwise, return nil."
   (interactive)
-  (save-excursion
+  (let ((origin (point))) ;; `save-excursion' may not work when deleting.
-    (beginning-of-line 1)
+    (save-excursion
-    (skip-chars-forward " \t")
+      (beginning-of-line 1)
-    (when (looking-at org-clock-string)
+      (skip-chars-forward " \t")
-      (let ((re (concat "[ \t]*" org-clock-string
+      (when (looking-at org-clock-string)
-			" *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
+        (let ((re (concat "[ \t]*" org-clock-string
-			"\\([ \t]*=>.*\\)?\\)?"))
+		          " *[[<]\\([^]>]+\\)[]>]\\(-+[[<]\\([^]>]+\\)[]>]"
-	    ts te h m s neg)
+		          "\\([ \t]*=>.*\\)?\\)?"))
-	(cond
+	      ts te h m s neg)
-	 ((not (looking-at re))
+          (cond
-	  nil)
+	   ((not (looking-at re))
-	 ((not (match-end 2))
+	    nil)
-	  (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
+	   ((not (match-end 2))
-		     (> org-clock-marker (point))
+	    (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
-                     (<= org-clock-marker (line-end-position)))
+		       (> org-clock-marker (point))
-	    ;; The clock is running here
+                       (<= org-clock-marker (line-end-position)))
-	    (setq org-clock-start-time
+	      ;; The clock is running here
-		  (org-time-string-to-time (match-string 1)))
+	      (setq org-clock-start-time
-	    (org-clock-update-mode-line)))
+		    (org-time-string-to-time (match-string 1)))
-	 (t
+	      (org-clock-update-mode-line)))
-          ;; Prevent recursive call from `org-timestamp-change'.
+	   (t
-          (cl-letf (((symbol-function 'org-clock-update-time-maybe) #'ignore))
+            ;; Prevent recursive call from `org-timestamp-change'.
-            ;; Update timestamps.
+            (cl-letf (((symbol-function 'org-clock-update-time-maybe) #'ignore))
-            (save-excursion
+              ;; Update timestamps.
-              (goto-char (match-beginning 1)) ; opening timestamp
+              (save-excursion
-              (save-match-data (org-timestamp-change 0 'day)))
+                (goto-char (match-beginning 1)) ; opening timestamp
+                (save-match-data (org-timestamp-change 0 'day)))
+              ;; Refresh match data.
+              (looking-at re)
+              (save-excursion
+                (goto-char (match-beginning 3)) ; closing timestamp
+                (save-match-data (org-timestamp-change 0 'day))))
             ;; Refresh match data.
             (looking-at re)
-            (save-excursion
+            (and (match-end 4) (delete-region (match-beginning 4) (match-end 4)))
-              (goto-char (match-beginning 3)) ; closing timestamp
+            (end-of-line 1)
-              (save-match-data (org-timestamp-change 0 'day))))
+            (setq ts (match-string 1)
-          ;; Refresh match data.
+                  te (match-string 3))
-          (looking-at re)
+            (setq s (- (org-time-string-to-seconds te)
-          (and (match-end 4) (delete-region (match-beginning 4) (match-end 4)))
+		       (org-time-string-to-seconds ts))
-          (end-of-line 1)
+                  neg (< s 0)
-          (setq ts (match-string 1)
+                  s (abs s)
-                te (match-string 3))
+                  h (floor (/ s 3600))
-          (setq s (- (org-time-string-to-seconds te)
+                  s (- s (* 3600 h))
-		     (org-time-string-to-seconds ts))
+                  m (floor (/ s 60))
-                neg (< s 0)
+                  s (- s (* 60 s)))
-                s (abs s)
+	    (insert " => " (format (if neg "-%d:%02d" "%2d:%02d") h m))
-                h (floor (/ s 3600))
+	    t)))))
-                s (- s (* 3600 h))
+    ;; Move back to initial position, but never beyond updated
-                m (floor (/ s 60))
+    ;; clock.
-                s (- s (* 60 s)))
+    (unless (< (point) origin)
-	  (insert " => " (format (if neg "-%d:%02d" "%2d:%02d") h m))
+      (goto-char origin))))
-	  t))))))
 
 (defun org-clock-save ()
   "Persist various clock-related data to disk.

lisp/org/org-element.el

@@ -5717,7 +5717,11 @@ This function assumes `org-element--headline-cache' is a valid AVL tree."
               ;; `combine-change-calls' because the buffer is potentially
               ;; changed without notice (the change will be registered
               ;; after exiting the `combine-change-calls' body though).
-              (memq #'org-element--cache-after-change after-change-functions))))))
+              (catch :inhibited
+                (org-fold-core-cycle-over-indirect-buffers
+                  (unless (memq #'org-element--cache-after-change after-change-functions)
+                    (throw :inhibited nil)))
+                t))))))
 
 ;; FIXME: Remove after we establish that hashing is effective.
 (defun org-element-cache-hash-show-statistics ()

lisp/org/org-fold-core.el

@@ -497,7 +497,7 @@ hanging around."
   (declare (debug (form body)) (indent 0))
   `(let (buffers dead-properties)
      (if (and (not (buffer-base-buffer))
-              (not (eq (current-buffer) (car org-fold-core--indirect-buffers))))
+              (not (memq (current-buffer) org-fold-core--indirect-buffers)))
          ;; We are in base buffer with `org-fold-core--indirect-buffers' value from
          ;; different buffer.  This can happen, for example, when
          ;; org-capture copies local variables into *Capture* buffer.
@@ -930,6 +930,8 @@ are provided.
 
 If FROM is non-nil and TO is nil, search the folded regions at FROM.
 
+When both FROM and TO are nil, search folded regions in the whole buffer.
+
 When SPECS is non-nil it should be a list of folding specs or a symbol.
 Only return the matching fold types.
 
@@ -946,6 +948,9 @@ WITH-MARKERS must be nil when RELATIVE is non-nil."
   (unless (listp specs) (setq specs (list specs)))
   (let (regions region mk-region)
     (org-with-wide-buffer
+     (when (and (not from) (not to))
+       (setq from (point-min)
+             to (point-max)))
      (when (and from (not to)) (setq to (point-max)))
      (when (and from (< from (point-min))) (setq from (point-min)))
      (when (and to (> to (point-max))) (setq to (point-max)))
@@ -1058,7 +1063,7 @@ means that the buffer should stay alive during the operation,
 because otherwise all these markers will point to nowhere."
   (declare (debug (form body)) (indent 1))
   (org-with-gensyms (regions)
-    `(let* ((,regions ,(org-fold-core-get-regions :with-markers use-markers)))
+    `(let* ((,regions (org-fold-core-get-regions :with-markers ,use-markers)))
        (unwind-protect (progn ,@body)
          (org-fold-core-regions ,regions :override t :clean-markers t)))))
 

lisp/org/org-footnote.el

@@ -851,9 +851,12 @@ to `org-footnote-section'.  Inline definitions are ignored."
 			    (format "[fn:%s] DEFINITION NOT FOUND." label))
 			"\n"))))
 	  ;; Insert un-referenced footnote definitions at the end.
-	  (pcase-dolist (`(,label . ,definition) definitions)
+          ;; Combine all insertions into one to create a single cache
-	    (unless (member label inserted)
+          ;; update call.
-	      (insert "\n" definition "\n")))))))))
+          (combine-change-calls (point) (point)
+	    (pcase-dolist (`(,label . ,definition) definitions)
+	      (unless (member label inserted)
+	        (insert "\n" definition "\n"))))))))))
 
 (defun org-footnote-normalize ()
   "Turn every footnote in buffer into a numbered one."

lisp/org/org-persist.el

@@ -161,7 +161,7 @@
 (declare-function org-at-heading-p "org" (&optional invisible-not-ok))
 
 
-(defconst org-persist--storage-version "2.5"
+(defconst org-persist--storage-version "2.7"
   "Persistent storage layout version.")
 
 (defgroup org-persist nil
@@ -856,9 +856,16 @@ When IGNORE-RETURN is non-nil, just return t on success without calling
       (setq associated (org-persist--normalize-associated (get-file-buffer (plist-get associated :file)))))
     (let ((collection (org-persist--get-collection container associated)))
       (setf collection (plist-put collection :associated associated))
-      (unless (seq-find (lambda (v)
+      (unless (or
-                          (run-hook-with-args-until-success 'org-persist-before-write-hook v associated))
+               ;; Prevent data leakage from encrypted files.
-                        (plist-get collection :container))
+               ;; We do it in somewhat paranoid manner and do not
+               ;; allow anything related to encrypted files to be
+               ;; written.
+               (and (plist-get associated :file)
+                    (string-match-p epa-file-name-regexp (plist-get associated :file)))
+               (seq-find (lambda (v)
+                           (run-hook-with-args-until-success 'org-persist-before-write-hook v associated))
+                         (plist-get collection :container)))
         (when (or (file-exists-p org-persist-directory) (org-persist--save-index))
           (let ((file (org-file-name-concat org-persist-directory (plist-get collection :persist-file)))
                 (data (mapcar (lambda (c) (cons c (org-persist-write:generic c collection)))

lisp/org/org-table.el

@@ -41,6 +41,7 @@
 (require 'org-macs)
 (require 'org-compat)
 (require 'org-keys)
+(require 'org-fold-core)
 
 (declare-function calc-eval "calc" (str &optional separator &rest args))
 (declare-function face-remap-remove-relative "face-remap" (cookie))
@@ -4448,6 +4449,13 @@ FIELD is a string.  WIDTH is a number.  ALIGN is either \"c\",
 (defun org-table-justify-field-maybe (&optional new)
   "Justify the current field, text to left, number to right.
 Optional argument NEW may specify text to replace the current field content."
+  ;; FIXME: Prevent newlines inside field.  They are currently not
+  ;; supported.
+  (when (and (stringp new) (string-match-p "\n" new))
+    (message "Removing newlines from formula result: %S" new)
+    (setq new (replace-regexp-in-string
+               "\n" " "
+               (replace-regexp-in-string "\\(^\n+\\)\\|\\(\n+$\\)" "" new))))
   (cond
    ((and (not new) org-table-may-need-update)) ; Realignment will happen anyway
    ((org-at-table-hline-p))
@@ -5721,31 +5729,32 @@ This may be either a string or a function of two arguments:
     ;; Initialize communication channel in INFO.
     (with-temp-buffer
       (let ((org-inhibit-startup t)) (org-mode))
-      (let ((standard-output (current-buffer))
+      (org-fold-core-ignore-modifications
-	    (org-element-use-cache nil))
+        (let ((standard-output (current-buffer))
-	(dolist (e table)
+	      (org-element-use-cache nil))
-	  (cond ((eq e 'hline) (princ "|--\n"))
+	  (dolist (e table)
-		((consp e)
+	    (cond ((eq e 'hline) (princ "|--\n"))
-		 (princ "| ") (dolist (c e) (princ c) (princ " |"))
+		  ((consp e)
-		 (princ "\n")))))
+		   (princ "| ") (dolist (c e) (princ c) (princ " |"))
-      (org-element-cache-reset)
+		   (princ "\n")))))
-      ;; Add back-end specific filters, but not user-defined ones.  In
+        (org-element-cache-reset)
-      ;; particular, make sure to call parse-tree filters on the
+        ;; Add back-end specific filters, but not user-defined ones.  In
-      ;; table.
+        ;; particular, make sure to call parse-tree filters on the
-      (setq info
+        ;; table.
-	    (let ((org-export-filters-alist nil))
+        (setq info
-	      (org-export-install-filters
+	      (let ((org-export-filters-alist nil))
-	       (org-combine-plists
+	        (org-export-install-filters
-		(org-export-get-environment backend nil params)
+	         (org-combine-plists
-		`(:back-end ,(org-export-get-backend backend))))))
+		  (org-export-get-environment backend nil params)
-      (setq data
+		  `(:back-end ,(org-export-get-backend backend))))))
-	    (org-export-filter-apply-functions
+        (setq data
-	     (plist-get info :filter-parse-tree)
+	      (org-export-filter-apply-functions
-	     (org-element-map (org-element-parse-buffer) 'table
+	       (plist-get info :filter-parse-tree)
-	       #'identity nil t)
+	       (org-element-map (org-element-parse-buffer) 'table
-	     info)))
+	         #'identity nil t)
-    (when (and backend (symbolp backend) (not (org-export-get-backend backend)))
+	       info))
-      (user-error "Unknown :backend value"))
+        (when (and backend (symbolp backend) (not (org-export-get-backend backend)))
+          (user-error "Unknown :backend value"))))
     (when (or (not backend) (plist-get info :raw)) (require 'ox-org))
     ;; Handle :skip parameter.
     (let ((skip (plist-get info :skip)))

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-3-ga4d38e"))
+   (let ((org-git-version "release_9.6-31-g954a95"))
      org-git-version))
 
 (provide 'org-version)

lisp/org/org.el

@@ -11380,7 +11380,7 @@ See also `org-scan-tags'."
 			     (pv (match-string 7 term))
 			     (regexp (eq (string-to-char pv) ?{))
 			     (strp (eq (string-to-char pv) ?\"))
-			     (timep (string-match-p "^\"[[<][0-9]+.*[]>]\"$" pv))
+			     (timep (string-match-p "^\"[[<]\\(?:[0-9]+\\|now\\|today\\|tomorrow\\|[+-][0-9]+[dmwy]\\).*[]>]\"$" pv))
 			     (po (org-op-to-function (match-string 6 term)
 						     (if timep 'time strp))))
 			(setq pv (if (or regexp strp) (substring pv 1 -1) pv))
@@ -16322,6 +16322,10 @@ buffer boundaries with possible narrowing."
 					  (org-element-property :end link))
 					 (skip-chars-backward " \t")
 					 (point)))))
+                              ;; FIXME: See bug#59902.  We cannot rely
+                              ;; on Emacs to update image if the file
+                              ;; has changed.
+                              (image-flush image)
 			      (overlay-put ov 'display image)
 			      (overlay-put ov 'face 'default)
 			      (overlay-put ov 'org-image-overlay t)

lisp/org/ox-md.el

@@ -87,7 +87,8 @@ included into another document or application that reserves top-level
 headings for its own use."
   :group 'org-export-md
   :package-version '(Org . "9.6")
-  :type 'natnum)
+  ;; Avoid `natnum' because that's not available until Emacs 28.1.
+  :type 'integer)
 
 
 

lisp/org/ox.el

@@ -3036,6 +3036,11 @@ Return code as a string."
 	       (org-narrow-to-subtree)
 	       (goto-char (point-min))
 	       (org-end-of-meta-data)
+               ;; Make the region include top heading in the subtree.
+               ;; This way, we will be able to retrieve its export
+               ;; options when calling
+               ;; `org-export--get-subtree-options'.
+               (backward-char)
 	       (narrow-to-region (point) (point-max))))
         ;; Initialize communication channel with original buffer
         ;; attributes, unavailable in its copy.