aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2013-09-03 14:21:41 -0400
committerStefan Monnier2013-09-03 14:21:41 -0400
commit14b511d4e562f5f15d4f3133be9bea7a1077ef70 (patch)
tree9e4611ffa95a10f57e425567bf5e595156c8d97f
parent9d3f707c59f69f357c8ff2cdea313bfe771dbfc4 (diff)
downloademacs-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/ChangeLog5
-rw-r--r--lisp/emacs-lisp/package.el3
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 @@
12013-09-03 Stefan Monnier <monnier@iro.umontreal.ca> 12013-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
62013-09-03 Dmitry Gutov <dgutov@yandex.ru> 92013-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))))