Explorar el Código

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 hace 3 años
padre
commit
14fb761d78
Se han modificado 1 ficheros con 3 adiciones y 1 borrados
  1. 3 1
      lisp/org.el

+ 3 - 1
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)