(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: "