Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 359:8e84bee8ddd0 r21-1-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-9
author cvs
date Mon, 13 Aug 2007 10:57:55 +0200
parents 9ea74add5d37
children cc15677e0335
comparison
equal deleted inserted replaced
358:fed6e0f6a03a 359:8e84bee8ddd0
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))))