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.
This commit is contained in:
parent
981bcbfc14
commit
db167b9999
|
@ -19533,7 +19533,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)
|
||||
|
|
Loading…
Reference in New Issue