[elpa] externals-release/org 14fb761 22/22: Do not use mark-whole-buffer noninteractively

[ELPA Syncer]

branch: externals-release/org
commit 14fb761d78bcc8ee5f58ec5e06279bf6dd8f10d5
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    Do not use mark-whole-buffer noninteractively
    
    * lisp/org.el (org-fill-element): `mark-whole-buffer' introduced in
    7b85a64da is only for interactive use and causes compiler warning.
    Replace it using noninteractive commands.
---
 lisp/org.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index d063fa6..cfa5f6c 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19365,7 +19365,9 @@ a footnote definition, try to fill the first paragraph 
within."
       (cl-case (org-element-type element)
        ;; Use major mode filling function is source blocks.
        (src-block (org-babel-do-in-edit-buffer
-                    (mark-whole-buffer)
+                    (push-mark (point-min))
+                    (goto-char (point-max))
+                    (setq mark-active t)
                     (funcall-interactively #'fill-paragraph justify 'region)))
        ;; Align Org tables, leave table.el tables as-is.
        (table-row (org-table-align) t)