diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 7299ae9d203..71fc51e27b0 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -497,6 +497,7 @@ Return non-nil in the case where no autoloads were added at point." Standard prefixes won't be registered anyway. I.e. if a file \"foo.el\" defines variables or functions that use \"foo-\" as prefix, that will not be registered. But all other prefixes will be included.") +(put 'autoload-compute-prefixes 'safe #'booleanp) (defconst autoload-def-prefixes-max-entries 5 "Target length of the list of definition prefixes per file. diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index e5a1ea782e8..f69ac7f342a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1931,7 +1931,8 @@ The value is non-nil if there were no errors, nil if errors." ;; process is trying to load target-file (eg in a ;; parallel bootstrap), it does not risk getting a ;; half-finished file. (Bug#4196) - (tempfile (make-temp-file target-file)) + (tempfile + (make-temp-file (file-name-nondirectory target-file))) (default-modes (default-file-modes)) (temp-modes (logand default-modes #o600)) (desired-modes (logand default-modes #o666)) |