Update to Org 9.6.5-3-g2993f4

etc/refcards/orgcard.tex

@@ -1,5 +1,5 @@
 % Reference Card for Org Mode
-\def\orgversionnumber{9.6.4}
+\def\orgversionnumber{9.6.5}
 \def\versionyear{2023}          % latest update
 \input emacsver.tex
 

lisp/org/ob-core.el

@@ -2426,7 +2426,8 @@ INFO may provide the values of these header arguments (in the
 		  (delete-region (point) (org-babel-result-end)))
 		 ((member "append" result-params)
 		  (goto-char (org-babel-result-end)) (setq beg (point-marker)))
-		 ((member "prepend" result-params))) ; already there
+		 ;; ((member "prepend" result-params)) ; already there
+                 )
 		(setq results-switches
 		      (if results-switches (concat " " results-switches) ""))
 		(let ((wrap

lisp/org/org-version.el

@@ -5,13 +5,13 @@
 (defun org-release ()
   "The release version of Org.
 Inserted by installing Org mode or when a release is made."
-   (let ((org-release "9.6.4"))
+   (let ((org-release "9.6.5"))
      org-release))
 ;;;###autoload
 (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.4-9-g8eb209"))
+   (let ((org-git-version "release_9.6.5-3-g2993f4"))
      org-git-version))
 
 (provide 'org-version)

lisp/org/org.el

@@ -9,7 +9,7 @@
 ;; URL: https://orgmode.org
 ;; Package-Requires: ((emacs "26.1"))
 
-;; Version: 9.6.4
+;; Version: 9.6.5
 
 ;; This file is part of GNU Emacs.
 ;;
@@ -18602,6 +18602,10 @@ block from point."
 	      (throw 'exit n)))))
       nil)))
 
+;; Defined in org-agenda.el
+(defvar org-agenda-restrict)
+(defvar org-agenda-restrict-begin)
+(defvar org-agenda-restrict-end)
 (defun org-occur-in-agenda-files (regexp &optional _nlines)
   "Call `multi-occur' with buffers for all agenda files."
   (interactive "sOrg-files matching: ")

lisp/org/ox-odt.el

@@ -2926,24 +2926,25 @@ contextual information."
       ;; FIXME: The unnecessary spacing may still remain when a newline
       ;; is at a boundary between Org objects (e.g. italics markup
       ;; followed by newline).
-      (setq output
+      (when (org-string-nw-p output) ; blank string needs not to be re-filled
-            (with-temp-buffer
+        (setq output
-              (save-match-data
+              (with-temp-buffer
-                (let ((leading (and (string-match (rx bos (1+ blank)) output)
+                (save-match-data
-                                    (match-string 0 output)))
+                  (let ((leading (and (string-match (rx bos (1+ blank)) output)
-                      (trailing (and (string-match (rx (1+ blank) eos) output)
+                                      (match-string 0 output)))
-                                     (match-string 0 output))))
+                        (trailing (and (string-match (rx (1+ blank) eos) output)
-                  (insert
+                                       (match-string 0 output))))
-                   (substring
+                    (insert
-                    output
+                     (substring
-                    (length leading)
+                      output
-                    (pcase (length trailing)
+                      (length leading)
-                      (0 nil)
+                      (pcase (length trailing)
-                      (n (- n)))))
+                        (0 nil)
-                  ;; Unfill, retaining leading/trailing space.
+                        (n (- n)))))
-                  (let ((fill-column most-positive-fixnum))
+                    ;; Unfill, retaining leading/trailing space.
-                    (fill-region (point-min) (point-max)))
+                    (let ((fill-column most-positive-fixnum))
-                  (concat leading (buffer-string) trailing))))))
+                      (fill-region (point-min) (point-max)))
+                    (concat leading (buffer-string) trailing)))))))
     ;; Return value.
     output))