Mercurial > hg > xemacs-beta

comparison lisp/autoload.el @ 306:9ea74add5d37 r21-0b51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b51
author cvs
date Mon, 13 Aug 2007 10:41:58 +0200
parents 084402c475ba
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
305:18920a7e9a86 306:9ea74add5d37
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)))