diff options
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 3cf7833ae02..cc7d7e2af94 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -6224,7 +6224,12 @@ Signal an error if unsuccessful." ;; make sure we find its make-directory handler. (setq dir (expand-file-name dir)) (let ((mkdir (if-let ((handler (find-file-name-handler dir 'make-directory))) - #'(lambda (dir) (funcall handler 'make-directory dir)) + #'(lambda (dir) + ;; Use 'ignore' since the handler might be designed for + ;; Emacs 28-, so it might return an (undocumented) + ;; non-nil value, whereas the Emacs 29+ convention is + ;; to return nil here. + (ignore (funcall handler 'make-directory dir))) #'make-directory-internal))) (if (not parents) (funcall mkdir dir) |