aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1994-05-12 14:45:30 +0000
committerKarl Heuer1994-05-12 14:45:30 +0000
commit73e4e0eb1a744c0bbc50afa5015f9013110f5a79 (patch)
tree38e11c041458baf0d0b962b4c2c6643afc805c81
parentfed76e7839cf9ba9fd802d72a1bdc28d6281dd7c (diff)
downloademacs-73e4e0eb1a744c0bbc50afa5015f9013110f5a79.tar.gz
emacs-73e4e0eb1a744c0bbc50afa5015f9013110f5a79.zip
(update-autoloads-here): Split up long message.
-rw-r--r--lisp/emacs-lisp/autoload.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 5ed050941e2..551bba03923 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -333,9 +333,11 @@ Update sections of the current buffer generated by \\[update-file-autoloads]."
333 (or (get-file-buffer file) 333 (or (get-file-buffer file)
334 (file-exists-p file))) 334 (file-exists-p file)))
335 () 335 ()
336 (setq file (if (y-or-n-p (format "Library \"%s\" (load \ 336 (message "Can't find library \"%s\" (load file \"%s\")"
337file \"%s\") doesn't exist. Remove its autoload section? " 337 (nth 2 form) file)
338 (nth 2 form) file)) 338 (sit-for 2)
339 (setq file (if (y-or-n-p (format "Remove autoloads for \"%s\"? "
340 (nth 2 form)))
339 t 341 t
340 (condition-case () 342 (condition-case ()
341 (read-file-name (format "Find \"%s\" load file: " 343 (read-file-name (format "Find \"%s\" load file: "