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)
(file-exists-p file)))
()
(setq file (if (y-or-n-p (format "Library \"%s\" (load \
file \"%s\") doesn't exist. Remove its autoload section? "
(nth 2 form) file))
(message "Can't find library \"%s\" (load file \"%s\")"
(nth 2 form) file)
(sit-for 2)
(setq file (if (y-or-n-p (format "Remove autoloads for \"%s\"? "
(nth 2 form)))
t
(condition-case ()
(read-file-name (format "Find \"%s\" load file: "