[Emacs-diffs] emacs-24 r117475: * lisp/emacs-lisp/package.el (package-generate-description-file):

[Stefan Monnier]

------------------------------------------------------------
revno: 117475
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18332
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Tue 2014-09-02 15:51:25 -0400
message:
  * lisp/emacs-lisp/package.el (package-generate-description-file):
  Properly quote the arguments.  Change second arg.
  (package--alist-to-plist-args): Rename from package--alist-to-plist and
  quote the elements.
  (package--make-autoloads-and-stuff): Fix the test for pre-existence of
  the *-pkg.el file.  Adjust to new calling convention of
  package-generate-description-file.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/package.el     package.el-20100617020707-ybavz666awsxwin6-2

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-09-02 18:16:32 +0000
+++ b/lisp/ChangeLog    2014-09-02 19:51:25 +0000
@@ -1,5 +1,13 @@
 2014-09-02  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/package.el (package-generate-description-file):
+       Properly quote the arguments (bug#18332).  Change second arg.
+       (package--alist-to-plist-args): Rename from package--alist-to-plist and
+       quote the elements.
+       (package--make-autoloads-and-stuff): Fix the test for pre-existence of
+       the *-pkg.el file.  Adjust to new calling convention of
+       package-generate-description-file.
+
        * progmodes/gud.el (gud-gdb-completion-at-point): Add hack (bug#18282).
        (gud-gdb-completions): Remove obsolete workaround.
 

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2014-06-26 13:47:37 +0000
+++ b/lisp/emacs-lisp/package.el        2014-09-02 19:51:25 +0000
@@ -688,11 +688,9 @@
            (error "Package does not untar cleanly into directory %s/" dir)))))
   (tar-untar-buffer))
 
-(defun package-generate-description-file (pkg-desc pkg-dir)
+(defun package-generate-description-file (pkg-desc pkg-file)
   "Create the foo-pkg.el file for single-file packages."
-  (let* ((name (package-desc-name pkg-desc))
-         (pkg-file (expand-file-name (package--description-file pkg-dir)
-                                     pkg-dir)))
+  (let* ((name (package-desc-name pkg-desc)))
     (let ((print-level nil)
           (print-quoted t)
           (print-length nil))
@@ -712,13 +710,20 @@
                            (list (car elt)
                                  (package-version-join (cadr elt))))
                          requires))))
-          (package--alist-to-plist
+          (package--alist-to-plist-args
            (package-desc-extras pkg-desc))))
         "\n")
        nil pkg-file nil 'silent))))
 
-(defun package--alist-to-plist (alist)
-  (apply #'nconc (mapcar (lambda (pair) (list (car pair) (cdr pair))) alist)))
+(defun package--alist-to-plist-args (alist)
+  (mapcar (lambda (x)
+            (if (and (not (consp x))
+                     (or (keywordp x)
+                         (not (symbolp x))
+                         (memq x '(nil t))))
+                x `',x))
+          (apply #'nconc
+                 (mapcar (lambda (pair) (list (car pair) (cdr pair))) alist))))
 
 (defun package-unpack (pkg-desc)
   "Install the contents of the current buffer as a package."
@@ -751,9 +756,10 @@
 (defun package--make-autoloads-and-stuff (pkg-desc pkg-dir)
   "Generate autoloads, description file, etc.. for PKG-DESC installed at 
PKG-DIR."
   (package-generate-autoloads (package-desc-name pkg-desc) pkg-dir)
-  (let ((desc-file (package--description-file pkg-dir)))
+  (let ((desc-file (expand-file-name (package--description-file pkg-dir)
+                                     pkg-dir)))
     (unless (file-exists-p desc-file)
-      (package-generate-description-file pkg-desc pkg-dir)))
+      (package-generate-description-file pkg-desc desc-file)))
   ;; FIXME: Create foo.info and dir file from foo.texi?
   )