Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 373:6240c7796c7a r21-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
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)
378 ;; First delete all sections for this file. 380 ;; First delete all sections for this file.
379 (goto-char (point-min)) 381 (goto-char (point-min))
380 (while (search-forward generate-autoload-section-header nil t) 382 (while (search-forward generate-autoload-section-header nil t)
381 (setq section-begin (match-beginning 0)) 383 (setq section-begin (match-beginning 0))
382 (setq form (read (current-buffer))) 384 (setq form (read (current-buffer)))