From b5bcaee5034d4f745de460418c7b91ad38cade38 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Mon, 17 Jun 2013 21:36:21 +0400 Subject: [PATCH] * 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 --- lisp/ChangeLog | 6 ++++++ 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 + + * 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 * 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. -- 2.39.2