Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 6240c7796c7a
children b8cc9ab3f761
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
357 357
358 ;;;###autoload 358 ;;;###autoload
359 (defun update-file-autoloads (file) 359 (defun update-file-autoloads (file)
360 "Update the autoloads for FILE in `generated-autoload-file' 360 "Update the autoloads for FILE in `generated-autoload-file'
361 \(which FILE might bind in its local variables). 361 \(which FILE might bind in its local variables).
362 This functions refuses to update autoloads files." 362 This function refuses to update autoloads files."
363 (interactive "fUpdate autoloads for file: ") 363 (interactive "fUpdate autoloads for file: ")
364 (setq file (expand-file-name file)) 364 (setq file (expand-file-name file))
365 (when (and (file-newer-than-file-p file generated-autoload-file) 365 (when (and (file-newer-than-file-p file generated-autoload-file)
366 (not (member (file-name-nondirectory file) 366 (not (member (file-name-nondirectory file)
367 (list autoload-file-name)))) 367 (list autoload-file-name))))