procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(generate-file-autoloads): If no buffer visiting FILE exists, read it into

Browse source 
a temp buffer for processing without visiting it.
This commit is contained in:
Roland McGrath 1995-12-14 05:08:02 +00:00
parent bf141a8c74
commit 66fc2bf5cf
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/autoload.el
View file

@ -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)