Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 8e84bee8ddd0
children 6240c7796c7a
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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 function refuses to update autoloads files." 362 This functions 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))))
373 section-begin form) 373 section-begin form)
374 (save-excursion 374 (save-excursion
375 (let ((find-file-hooks nil)) 375 (let ((find-file-hooks nil))
376 (set-buffer (or (get-file-buffer generated-autoload-file) 376 (set-buffer (or (get-file-buffer generated-autoload-file)
377 (find-file-noselect generated-autoload-file)))) 377 (find-file-noselect generated-autoload-file))))
378 ;; Make sure we can scribble in it.
379 (setq buffer-read-only nil)
380 ;; First delete all sections for this file. 378 ;; First delete all sections for this file.
381 (goto-char (point-min)) 379 (goto-char (point-min))
382 (while (search-forward generate-autoload-section-header nil t) 380 (while (search-forward generate-autoload-section-header nil t)
383 (setq section-begin (match-beginning 0)) 381 (setq section-begin (match-beginning 0))
384 (setq form (read (current-buffer))) 382 (setq form (read (current-buffer)))