org-export: Do not use `always' not available in Emacs <28

* lisp/ox.el (org-export--generate-copy-script): Use explicit `lambda'
instead of `always', which is not yet available in all the supported
Emacs versions.

Reported-by: Kyle Meyer <kyle@kyleam.com>
This commit is contained in:
Ihor Radchenko 2022-10-08 13:30:36 +08:00
parent ae028d0a25
commit 233ad88651
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 1 additions and 1 deletions

View File

@ -2693,7 +2693,7 @@ The function assumes BUFFER's major mode is `org-mode'."
(overlay-put (make-overlay start end) 'invisible invis)) (overlay-put (make-overlay start end) 'invisible invis))
;; Never write the buffer copy to disk, despite ;; Never write the buffer copy to disk, despite
;; `buffer-file-name' not being nil. ;; `buffer-file-name' not being nil.
(setq write-contents-functions (list #'always))))))) (setq write-contents-functions (list (lambda (&rest _) t))))))))
(defun org-export--delete-comment-trees () (defun org-export--delete-comment-trees ()
"Delete commented trees and commented inlinetasks in the buffer. "Delete commented trees and commented inlinetasks in the buffer.