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)