branch: externals-release/org
commit 05ee1e6ee06db711198b211867788c39cd08f911
Author: Ihor Radchenko <yanta...@gmail.com>
Commit: Bastien <b...@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_+cbinm6eynx0kfvpfiss7dwc1exsfhfhk...@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."
