diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 7 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ccc90427de2..1fa89f4a70d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-06-17 Dmitry Gutov <dgutov@yandex.ru> + + * emacs-lisp/package.el (package-load-descriptor): Remove + `with-syntax-table' call, `read' doesn't need it. + http://lists.gnu.org/archive/html/emacs-devel/2013-06/msg00539.html + 2013-06-17 Juanma Barranquero <lekktu@gmail.com> * startup.el (command-line): Expand package name returned by diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index cd7852af550..d7f4f4cf54f 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -420,10 +420,9 @@ This is, approximately, the inverse of `version-to-list'. (with-temp-buffer (insert-file-contents pkg-file) (goto-char (point-min)) - (with-syntax-table emacs-lisp-mode-syntax-table - (let ((pkg-desc (package-process-define-package - (read (current-buffer)) pkg-file))) - (setf (package-desc-dir pkg-desc) pkg-dir))))))) + (let ((pkg-desc (package-process-define-package + (read (current-buffer)) pkg-file))) + (setf (package-desc-dir pkg-desc) pkg-dir)))))) (defun package-load-all-descriptors () "Load descriptors for installed Emacs Lisp packages. |