* lisp/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

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.