[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: missing quote in define-package arg
From: |
Thien-Thi Nguyen |
Subject: |
Re: missing quote in define-package arg |
Date: |
Sat, 24 May 2014 10:02:53 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) |
() Thien-Thi Nguyen <address@hidden>
() Sat, 24 May 2014 09:18:25 +0200
So there must be some other flow, hmmm.
What's the real story, here?
Yes, the other flow is in package.el. Things go smoothly if
‘package--alist-to-plist’ is changed to:
(defun package--alist-to-plist (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))))
w/ the wrapping ‘(mapcar (lambda (x) ...) ...)’ snarfed from
‘archive--alist-to-plist-args’. Surprising this has gone so far
unnoticed. Probably everyone "installs" directly from repo. :-D
--
Thien-Thi Nguyen
GPG key: 4C807502
(if you're human and you know it)
read my lisp: (responsep (questions 'technical)
(not (via 'mailing-list)))
=> nil
pgpbCOk51IO_g.pgp
Description: PGP signature