Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 7472:48059292485b
(update-autoloads-here): Split up long message.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 12 May 1994 14:45:30 +0000 |
parents | 493a32789e7d |
children | a01cc9d6398d |
comparison
equal
deleted
inserted
replaced
7471:7c857b26b91e | 7472:48059292485b |
---|---|
331 (file (nth 3 form))) | 331 (file (nth 3 form))) |
332 (if (and (stringp file) | 332 (if (and (stringp file) |
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\")" |
337 file \"%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: " |
342 (nth 2 form)) | 344 (nth 2 form)) |
343 nil nil t) | 345 nil nil t) |