Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/utils/autoload.el	Mon Aug 13 08:50:31 2007 +0200
+++ b/lisp/utils/autoload.el	Mon Aug 13 08:51:03 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))