mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

Make update-directory-autoloads available by default again

Browse source 
* lisp/subr.el (make-directory-autoloads)
(update-directory-autoloads): Make available by default again
(bug#57200).

* lisp/obsolete/autoload.el (make-directory-autoloads): Add
obsoletion form.
(batch-update-autoloads): Fix warning.
This commit is contained in:
Lars Ingebrigtsen 2022-08-15 07:29:22 +02:00
parent 75372c6c4e
commit 97da8eeb7c
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/obsolete/autoload.el
View file

@ -31,6 +31,10 @@
;; The functions in this file have been superseded by loaddefs-gen.el.
;; Note: When removing this file, also remove the references to
;; `make-directory-autoloads' and `update-directory-autoloads' in
;; subr.el.
;;; Code:
(require 'lisp-mode) ;for `doc-string-elt' properties.
@ -729,6 +733,7 @@ its autoloads into the specified file instead.
The function does NOT recursively descend into subdirectories of the
directory or directories specified."
(declare (obsolete loaddefs-generate "29.1"))
(interactive "DUpdate autoloads from directory: \nFWrite to file: ")
(let* ((files-re (let ((tmp nil))
(dolist (suf (get-load-suffixes))
@ -902,7 +907,8 @@ should be non-nil)."
(let ((args command-line-args-left))
(batch-update-autoloads--summary args)
(setq command-line-args-left nil)
(make-directory-autoloads args generated-autoload-file)))
(with-suppressed-warnings ((obsolete make-directory-autoloads))
(make-directory-autoloads args generated-autoload-file))))
(provide 'autoload)