[elpa] externals-release/org 05ee1e6 18/22: Do not rely on M-q binding for filling src-block

[ELPA Syncer]

branch: externals-release/org
commit 05ee1e6ee06db711198b211867788c39cd08f911
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Bastien <bzg@gnu.org>

    Do not rely on M-q binding for filling src-block
    
    * lisp/org.el (org-fill-element): Use `fill-paragraph' instead of
    simulating "M-q" binding.
    (org-fill-paragraph): Return t as described in `fill-paragraph'
    docstring.
    
    Fixes 
https://orgmode.org/list/CAH7LOt0PO3js6_+Cbinm6EYNx0KFvpfiSS7Dwc1EXsfHfHkHVA@mail.gmail.com/
---
 lisp/org.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 44c70e9..be7ddcd 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -19362,7 +19362,9 @@ a footnote definition, try to fill the first paragraph 
within."
       ;; the buffer.  In that case, ignore filling.
       (cl-case (org-element-type element)
        ;; Use major mode filling function is source blocks.
-       (src-block (org-babel-do-key-sequence-in-edit-buffer (kbd "M-q")))
+       (src-block (org-babel-do-in-edit-buffer
+                    (mark-whole-buffer)
+                    (funcall-interactively #'fill-paragraph justify 'region)))
        ;; Align Org tables, leave table.el tables as-is.
        (table-row (org-table-align) t)
        (table
@@ -19497,7 +19499,9 @@ filling the current element."
     ;; previously unmodified), then flip the modification status back
     ;; to "unchanged".
     (when (and hash (equal hash (org-buffer-hash)))
-      (set-buffer-modified-p nil))))
+      (set-buffer-modified-p nil))
+    ;; Return non-nil.
+    t))
 
 (defun org-auto-fill-function ()
   "Auto-fill function."