diff options
| author | Roland McGrath <roland@gnu.org> | 1995-12-14 05:08:02 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1995-12-14 05:08:02 +0000 |
| commit | 66fc2bf5cfbd56abccb005b2b9692924b0db4603 (patch) | |
| tree | 18e20d05b3ae8da63402ff2fe34e166e0ccfe6bc /lisp/emacs-lisp/autoload.el | |
| parent | bf141a8c74bedb0a64a6c67158e9b9aa27e15f1d (diff) | |
| download | emacs-66fc2bf5cfbd56abccb005b2b9692924b0db4603.tar.gz | |
(generate-file-autoloads): If no buffer visiting FILE exists, read it into
a temp buffer for processing without visiting it.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 10 |
1 files 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 <roland@gnu.ai.mit.edu> ;; 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) |