Mercurial > hg > xemacs-beta

comparison lisp/utils/autoload.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents bcdc7deadc19
children e04119814345
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
153 (setq file (expand-file-name file)) 153 (setq file (expand-file-name file))
154 154
155 (save-excursion 155 (save-excursion
156 (unwind-protect 156 (unwind-protect
157 (progn 157 (progn
158 (set-buffer (or visited (find-file-noselect file))) 158 (let ((find-file-hooks nil))
159 (set-buffer (or visited (find-file-noselect file))))
159 (save-excursion 160 (save-excursion
160 (save-restriction 161 (save-restriction
161 (widen) 162 (widen)
162 (goto-char (point-min)) 163 (goto-char (point-min))
163 (unless (search-forward generate-autoload-cookie nil t) 164 (unless (search-forward generate-autoload-cookie nil t)
341 "\\.elc?$" 342 "\\.elc?$"
342 "")) 343 ""))
343 (trim-name (autoload-trim-file-name file)) 344 (trim-name (autoload-trim-file-name file))
344 section-begin form) 345 section-begin form)
345 (save-excursion 346 (save-excursion
346 (set-buffer (or (get-file-buffer generated-autoload-file) 347 (let ((find-file-hooks nil))
347 (find-file-noselect generated-autoload-file))) 348 (set-buffer (or (get-file-buffer generated-autoload-file)
349 (find-file-noselect generated-autoload-file))))
348 ;; First delete all sections for this file. 350 ;; First delete all sections for this file.
349 (goto-char (point-min)) 351 (goto-char (point-min))
350 (while (search-forward generate-autoload-section-header nil t) 352 (while (search-forward generate-autoload-section-header nil t)
351 (setq section-begin (match-beginning 0)) 353 (setq section-begin (match-beginning 0))
352 (setq form (read (current-buffer))) 354 (setq form (read (current-buffer)))
432 (let ((simple-dir (file-name-as-directory 434 (let ((simple-dir (file-name-as-directory
433 (file-name-nondirectory 435 (file-name-nondirectory
434 (directory-file-name dir)))) 436 (directory-file-name dir))))
435 (enable-local-eval nil)) 437 (enable-local-eval nil))
436 (save-excursion 438 (save-excursion
437 (set-buffer (find-file-noselect generated-autoload-file)) 439 (let ((find-file-hooks nil))
440 (set-buffer (find-file-noselect generated-autoload-file)))
438 (goto-char (point-min)) 441 (goto-char (point-min))
439 (while (search-forward generate-autoload-section-header nil t) 442 (while (search-forward generate-autoload-section-header nil t)
440 (let* ((begin (match-beginning 0)) 443 (let* ((begin (match-beginning 0))
441 (form (condition-case () 444 (form (condition-case ()
442 (read (current-buffer)) 445 (read (current-buffer))