Mercurial > hg > xemacs-beta

diff lisp/utils/autoload.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents c7528f8e288d
children fe104dbd9147
line wrap: on
line diff
--- a/lisp/utils/autoload.el	Mon Aug 13 09:13:58 2007 +0200
+++ b/lisp/utils/autoload.el	Mon Aug 13 09:15:11 2007 +0200
@@ -155,7 +155,8 @@
     (save-excursion
       (unwind-protect
 	  (progn
-	    (set-buffer (or visited (find-file-noselect file)))
+	    (let ((find-file-hooks nil))
+	      (set-buffer (or visited (find-file-noselect file))))
 	    (save-excursion
 	      (save-restriction
 		(widen)
@@ -343,8 +344,9 @@
 	(trim-name (autoload-trim-file-name file))
 	section-begin form)
     (save-excursion
-      (set-buffer (or (get-file-buffer generated-autoload-file)
-		      (find-file-noselect generated-autoload-file)))
+      (let ((find-file-hooks nil))
+	(set-buffer (or (get-file-buffer generated-autoload-file)
+			(find-file-noselect generated-autoload-file))))
       ;; First delete all sections for this file.
       (goto-char (point-min))
       (while (search-forward generate-autoload-section-header nil t)
@@ -434,7 +436,8 @@
 		     (directory-file-name dir))))
 	(enable-local-eval nil))
     (save-excursion
-      (set-buffer (find-file-noselect generated-autoload-file))
+      (let ((find-file-hooks nil))
+	(set-buffer (find-file-noselect generated-autoload-file)))
       (goto-char (point-min))
       (while (search-forward generate-autoload-section-header nil t)
 	(let* ((begin (match-beginning 0))