[Emacs-diffs] trunk r113025: * lisp/emacs-lisp/package.el (package-load-descriptor): Remove

[Dmitry Gutov]

------------------------------------------------------------
revno: 113025
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Mon 2013-06-17 21:36:21 +0400
message:
  * 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
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-17 15:33:52 +0000
+++ b/lisp/ChangeLog    2013-06-17 17:36:21 +0000
@@ -1,3 +1,9 @@
+2013-06-17  Dmitry Gutov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * startup.el (command-line): Expand package name returned by

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2013-06-17 06:24:08 +0000
+++ b/lisp/emacs-lisp/package.el        2013-06-17 17:36:21 +0000
@@ -420,10 +420,9 @@
       (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.