Don't leave modified buffers open after looking for package info in files

This commit is contained in:
Steve Purcell 2012-04-21 17:57:18 +01:00
parent ae8e8ec191
commit b5f5bbc7b0

View file

@ -385,8 +385,8 @@ FILES if non-nil. The file is written to
"Get a vector of package info from the docstrings in FILE-PATH." "Get a vector of package info from the docstrings in FILE-PATH."
(when (file-exists-p file-path) (when (file-exists-p file-path)
(ignore-errors (ignore-errors
(save-window-excursion (with-temp-buffer
(find-file file-path) (insert-file-contents file-path)
;; next two lines are a hack for some packages that aren't ;; next two lines are a hack for some packages that aren't
;; commented properly. ;; commented properly.
(goto-char (point-max)) (goto-char (point-max))