mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(update-autoloads-here): Split up long message.

Browse Source
This commit is contained in:
Karl Heuer 1994-05-12 14:45:30 +00:00
parent fed76e7839
commit 73e4e0eb1a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emacs-lisp/autoload.el
View File

@ -333,9 +333,11 @@ Update sections of the current buffer generated by \\[update-file-autoloads]."
(or (get-file-buffer file) (or (get-file-buffer file)
(file-exists-p file))) (file-exists-p file)))
() ()
(setq file (if (y-or-n-p (format "Library \"%s\" (load \ (message "Can't find library \"%s\" (load file \"%s\")"
file \"%s\") doesn't exist. Remove its autoload section? " (nth 2 form) file)
(nth 2 form) file)) (sit-for 2)
(setq file (if (y-or-n-p (format "Remove autoloads for \"%s\"? "
(nth 2 form)))
t t
(condition-case () (condition-case ()
(read-file-name (format "Find \"%s\" load file: " (read-file-name (format "Find \"%s\" load file: "