diff options
| author | Stefan Monnier | 2013-09-03 14:21:41 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2013-09-03 14:21:41 -0400 |
| commit | 14b511d4e562f5f15d4f3133be9bea7a1077ef70 (patch) | |
| tree | 9e4611ffa95a10f57e425567bf5e595156c8d97f | |
| parent | 9d3f707c59f69f357c8ff2cdea313bfe771dbfc4 (diff) | |
| download | emacs-14b511d4e562f5f15d4f3133be9bea7a1077ef70.tar.gz emacs-14b511d4e562f5f15d4f3133be9bea7a1077ef70.zip | |
* lisp/emacs-lisp/package.el (package-activate-1): Don't let a missing
<pkg>-autoloads.el file stop us.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fdd8bdabe64..d71087f8302 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,10 @@ | |||
| 1 | 2013-09-03 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2013-09-03 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * emacs-lisp/package.el (package-activate-1): Don't let a missing | ||
| 4 | <pkg>-autoloads.el file stop us. | ||
| 5 | |||
| 3 | * net/tramp.el (with-parsed-tramp-file-name): Silence compiler | 6 | * net/tramp.el (with-parsed-tramp-file-name): Silence compiler |
| 4 | warnings, and factor our common code. | 7 | warnings, and factor out common code. |
| 5 | 8 | ||
| 6 | 2013-09-03 Dmitry Gutov <dgutov@yandex.ru> | 9 | 2013-09-03 Dmitry Gutov <dgutov@yandex.ru> |
| 7 | 10 | ||
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index d02bcef08c6..7799ee23d62 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -464,7 +464,8 @@ Return the max version (as a string) if the package is held at a lower version." | |||
| 464 | (package-desc-full-name pkg-desc))) | 464 | (package-desc-full-name pkg-desc))) |
| 465 | ;; Add to load path, add autoloads, and activate the package. | 465 | ;; Add to load path, add autoloads, and activate the package. |
| 466 | (let ((old-lp load-path)) | 466 | (let ((old-lp load-path)) |
| 467 | (load (expand-file-name (format "%s-autoloads" name) pkg-dir) nil t) | 467 | (with-demoted-errors |
| 468 | (load (expand-file-name (format "%s-autoloads" name) pkg-dir) nil t)) | ||
| 468 | (when (and (eq old-lp load-path) | 469 | (when (and (eq old-lp load-path) |
| 469 | (not (or (member pkg-dir load-path) | 470 | (not (or (member pkg-dir load-path) |
| 470 | (member pkg-dir-dir load-path)))) | 471 | (member pkg-dir-dir load-path)))) |