From 66fc2bf5cfbd56abccb005b2b9692924b0db4603 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Thu, 14 Dec 1995 05:08:02 +0000 Subject: [PATCH] (generate-file-autoloads): If no buffer visiting FILE exists, read it into a temp buffer for processing without visiting it. --- lisp/emacs-lisp/autoload.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 19b524ebb4f..cccfbedcfe1 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -1,6 +1,6 @@ ;;; autoload.el --- maintain autoloads in loaddefs.el. -;;; Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. +;;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. ;;; ;; Author: Roland McGrath ;; Keywords: maint @@ -150,7 +150,13 @@ are used." (save-excursion (unwind-protect (progn - (set-buffer (find-file-noselect file)) + (if visited + (set-buffer visited) + ;; It is faster to avoid visiting the file. + (set-buffer (get-buffer-create " *generate-autoload-file*")) + (kill-all-local-variables) + (erase-buffer) + (insert-file-contents file nil)) (save-excursion (save-restriction (widen) -- 2.39.2