Mercurial > hg > xemacs-beta
diff lisp/utils/autoload.el @ 34:d620409f5eb8 r19-15b100
Import from CVS: tag r19-15b100
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:53:20 +0200 |
parents | e04119814345 |
children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/utils/autoload.el Mon Aug 13 08:52:58 2007 +0200 +++ b/lisp/utils/autoload.el Mon Aug 13 08:53:20 2007 +0200 @@ -344,7 +344,9 @@ (let ((visited (get-file-buffer file))) (save-excursion (set-buffer (or visited (find-file-noselect file))) - (when (and file (string-match "\\`\\(.*\\)\\.el\\'" file)) + (when (and file + (string-match "\\`\\(.*\\)\\.el\\'" file) + (not (buffer-modified-p))) (goto-char (point-min)) (condition-case nil (let ((name (file-name-nondirectory (match-string 1 file))))