Переглянути джерело

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.
Ihor Radchenko 3 роки тому
батько
коміт
db167b9999
1 змінених файлів з 3 додано та 1 видалено
  1. 3 1
      lisp/org.el

+ 3 - 1
lisp/org.el

@@ -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)