From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 17 Jun 2013 06:24:08 +0000 (+0400)
Subject: * lisp/emacs-lisp/package.el (package-load-descriptor): Do not call
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2016^2~81
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d363bffbedce7027288fbe7f05040e4ff71ff4bc;p=emacs.git

* lisp/emacs-lisp/package.el (package-load-descriptor): Do not call
`emacs-lisp-mode', just use its syntax table.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b64bcccacd1..64745559126 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-17  Dmitry Gutov  <dgutov@yandex.ru>
+
+	* emacs-lisp/package.el (package-load-descriptor): Do not call
+	`emacs-lisp-mode', just use its syntax table.
+
 2013-06-17  Juanma Barranquero  <lekktu@gmail.com>
 
 	* progmodes/prog-mode.el (prog-prettify-install): Add `composition' to
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 2db422a4d12..cd7852af550 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -419,11 +419,11 @@ This is, approximately, the inverse of `version-to-list'.
     (when (file-exists-p pkg-file)
       (with-temp-buffer
         (insert-file-contents pkg-file)
-        (emacs-lisp-mode)
         (goto-char (point-min))
-        (let ((pkg-desc (package-process-define-package
-                         (read (current-buffer)) pkg-file)))
-          (setf (package-desc-dir pkg-desc) pkg-dir))))))
+        (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)))))))
 
 (defun package-load-all-descriptors ()
   "Load descriptors for installed Emacs Lisp packages.