Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
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))))