From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Fabrice Niessen Newsgroups: gmane.emacs.bugs Subject: bug#18332: 24.3.93; Convenience is a malformed function when installing ELPA package Date: Fri, 05 Sep 2014 17:44:45 +0200 Organization: My Googlest Message-ID: <86tx4mgjgy.fsf@somewhere.org> References: <86ppfnoed8.fsf@somewhere.org> <5a61hfdyfp.fsf@fencepost.gnu.org> <8661hbm2nl.fsf@somewhere.org> <86r3zunxfo.fsf@somewhere.org> <8638c9agx1.fsf@somewhere.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1409931984 1286 80.91.229.3 (5 Sep 2014 15:46:24 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 5 Sep 2014 15:46:24 +0000 (UTC) Cc: 18332-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org To: Stefan Monnier Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Fri Sep 05 17:46:19 2014 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XPviI-0002es-SM for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Sep 2014 17:46:15 +0200 Original-Received: from localhost ([::1]:58602 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XPviI-00028z-7J for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Sep 2014 11:46:14 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:40115) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XPviA-00023b-Fl for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Fri, 05 Sep 2014 11:46:10 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XPvi6-0004wF-84 for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Fri, 05 Sep 2014 11:46:06 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:40185) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XPvi6-0004w9-4h for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Fri, 05 Sep 2014 11:46:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1XPvi5-0000p9-QR for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Fri, 05 Sep 2014 11:46:01 -0400 X-Loop: help-debbugs-mXXj517/zsQ@public.gmane.org Resent-From: Fabrice Niessen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs-mXXj517/zsQ@public.gmane.org Resent-Date: Fri, 05 Sep 2014 15:46:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs-mXXj517/zsQ@public.gmane.org X-GNU-PR-Message: followup 18332 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 18332-submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org id=B18332.14099319603159 (code B ref 18332); Fri, 05 Sep 2014 15:46:01 +0000 Original-Received: (at 18332) by debbugs.gnu.org; 5 Sep 2014 15:46:00 +0000 Original-Received: from localhost ([127.0.0.1]:59982 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XPvi3-0000os-4p for submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org; Fri, 05 Sep 2014 11:46:00 -0400 Original-Received: from dd5e0353a.access.telenet.be ([213.224.53.58]:57294 helo=mail.missioncriticalit.com) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XPvhz-0000oa-HB for 18332-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org; Fri, 05 Sep 2014 11:45:57 -0400 Original-Received: from MUNDANEUM.i-did-not-set--mail-host-address--so-tickle-me (unknown [10.10.10.51]) by mail.missioncriticalit.com (Postfix) with ESMTPSA id 39AD7503AA4; Fri, 5 Sep 2014 17:45:49 +0200 (CEST) X-Url: http://www.MyGooglest.com/fni X-Archive: encrypt In-Reply-To: (Stefan Monnier's message of "Tue, 02 Sep 2014 16:57:36 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (windows-nt) X-BeenThere: debbugs-submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs-mXXj517/zsQ@public.gmane.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Xref: news.gmane.org gmane.emacs.bugs:93069 Archived-At: Stefan Monnier wrote: >> I only do have an error when launching a Cygwin Emacs... > > Can you try the patch I installed and see if it helps? I (manually) patched the package.el file and removed the package.elc one. Now, when I launch Emacs 24.3.93.1, I have this: --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (file-error "Cannot open load file" "no such = file or directory" "tex-site") require(tex-site) eval-buffer(# nil "d:/Users/fni/.emacs.d/elpa/auct= ex-11.87.7/auctex-autoloads.el" nil t) ; Reading at buffer position 9714 load-with-code-conversion("d:/Users/fni/.emacs.d/elpa/auctex-11.87.7/auct= ex-autoloads.el" "d:/Users/fni/.emacs.d/elpa/auctex-11.87.7/auctex-autoload= s.el" nil t) load("d:/Users/fni/.emacs.d/elpa/auctex-11.87.7/auctex-autoloads" nil t) (condition-case err (load (expand-file-name (format "%s-autoloads" name) = pkg-dir) nil t) ((debug error) (message "Error: %S" err) nil)) (let ((old-lp load-path)) (condition-case err (load (expand-file-name (fo= rmat "%s-autoloads" name) pkg-dir) nil t) ((debug error) (message "Error: %= S" err) nil)) (if (and (eq old-lp load-path) (not (or (member pkg-dir load-= path) (member pkg-dir-dir load-path)))) (progn (setq load-path (cons pkg-di= r load-path))))) (let* ((name (progn (or (and (vectorp pkg-desc) (>=3D (length pkg-desc) 1= 0) (memq (aref pkg-desc 0) cl-struct-package-desc-tags)) (error "%s accessi= ng a non-%s" (quote package-desc-name) (quote package-desc))) (aref pkg-des= c 1))) (pkg-dir (progn (or (and (vectorp pkg-desc) (>=3D (length pkg-desc) = 10) (memq (aref pkg-desc 0) cl-struct-package-desc-tags)) (error "%s access= ing a non-%s" (quote package-desc-dir) (quote package-desc))) (aref pkg-des= c 7))) (pkg-dir-dir (file-name-as-directory pkg-dir))) (if pkg-dir nil (err= or "Internal error: unable to find directory for `%s'" (package-desc-full-n= ame pkg-desc))) (let ((old-lp load-path)) (condition-case err (load (expand= -file-name (format "%s-autoloads" name) pkg-dir) nil t) ((debug error) (mes= sage "Error: %S" err) nil)) (if (and (eq old-lp load-path) (not (or (member= pkg-dir load-path) (member pkg-dir-dir load-path)))) (progn (setq load-pat= h (cons pkg-dir load-path))))) (if (file-exists-p (expand-file-name "dir" p= kg-dir)) (progn (require (quote info)) (info-initialize) (setq Info-directo= ry-list (cons pkg-dir Info-directory-list)))) (setq package-activated-list = (cons name package-activated-list)) t) package-activate-1([cl-struct-package-desc auctex (11 87 7) "Integrated e= nvironment for *TeX*" nil nil nil "d:/Users/fni/.emacs.d/elpa/auctex-11.87.= 7" ((:url . "http://www.gnu.org/software/auctex/")) nil]) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s= ' is unavailable" package (car fail) (package-version-join (cadr fail))) (p= ackage-activate-1 pkg-vec)) (let* ((pkg-vec (car pkg-descs)) (fail (catch (quote dep-failure) (let ((= --dolist-tail-- (progn ... ...))) (while --dolist-tail-- (let (...) (if ...= nil ...) (setq --dolist-tail-- ...))))))) (if fail (warn "Unable to activa= te package `%s'.\nRequired package `%s-%s' is unavailable" package (car fai= l) (package-version-join (cadr fail))) (package-activate-1 pkg-vec))) (cond ((null pkg-descs) (package-built-in-p package)) ((and (memq package= package-activated-list) (not force)) t) (t (let* ((pkg-vec (car pkg-descs)= ) (fail (catch (quote dep-failure) (let (...) (while --dolist-tail-- ...)))= )) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%= s' is unavailable" package (car fail) (package-version-join (cadr fail))) (= package-activate-1 pkg-vec))))) (let ((pkg-descs (cdr (assq package package-alist)))) (while (if pkg-desc= s (progn (let ((available-version (progn ... ...))) (or (package-disabled-p= package available-version) (package-built-in-p package available-version))= ))) (setq pkg-descs (cdr pkg-descs))) (cond ((null pkg-descs) (package-buil= t-in-p package)) ((and (memq package package-activated-list) (not force)) t= ) (t (let* ((pkg-vec (car pkg-descs)) (fail (catch (quote dep-failure) (let= ... ...)))) (if fail (warn "Unable to activate package `%s'.\nRequired pac= kage `%s-%s' is unavailable" package (car fail) (package-version-join (cadr= fail))) (package-activate-1 pkg-vec)))))) package-activate(auctex) (let ((elt (car --dolist-tail--))) (package-activate (car elt)) (setq --d= olist-tail-- (cdr --dolist-tail--))) (while --dolist-tail-- (let ((elt (car --dolist-tail--))) (package-activa= te (car elt)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- package-alist)) (while --dolist-tail-- (let ((elt = (car --dolist-tail--))) (package-activate (car elt)) (setq --dolist-tail-- = (cdr --dolist-tail--))))) (if no-activate nil (let ((--dolist-tail-- package-alist)) (while --dolis= t-tail-- (let ((elt (car --dolist-tail--))) (package-activate (car elt)) (s= etq --dolist-tail-- (cdr --dolist-tail--)))))) package-initialize() (lambda nil (setq package-archives (append (quote (("org" . "http://orgmo= de.org/elpa/") ("melpa" . "http://melpa.milkbox.net/packages/"))) package-a= rchives)) (package-initialize) (custom-declare-variable (quote leuven-elpa-= packages) (quote (quote (ace-jump-mode auctex auto-complete bbdb bookmark+ = boxquote calfw circe company csv-mode dictionary dired+ dired-single ess fi= ll-column-indicator flycheck fuzzy git-commit-mode graphviz-dot-mode helm h= tmlize idle-require info+ interaction-log ledger-mode leuven-theme multi-te= rm multiple-cursors pager powerline rainbow-mode redo+ tidy unbound yasnipp= et))) "A list of packages to ensure are installed at Emacs startup." :group= (quote emacs-leuven) :type (quote (repeat (string)))) (defalias (quote leu= ven--missing-elpa-packages) (function (lambda nil "List packages to install= which are neither built-in nor already installed." (let (missing-elpa-pack= ages) (let ((--dolist-tail-- leuven-elpa-packages) pkg) (while --dolist-tai= l-- (setq pkg ...) (if ... nil ...) (setq --dolist-tail-- ...))) missing-el= pa-packages)))) (let ((missing-elpa-packages (leuven--missing-elpa-packages= ))) (if missing-elpa-packages (progn (package-refresh-contents) (let ((--do= list-tail-- missing-elpa-packages) pkg) (while --dolist-tail-- (setq pkg (c= ar --dolist-tail--)) (if (yes-or-no-p ...) (condition-case nil ... ...) (me= ssage ... pkg) (sit-for 1.5)) (setq --dolist-tail-- (cdr --dolist-tail--)))= )))) (add-hook (quote package-menu-mode-hook) (function (lambda nil (setq t= abulated-list-format [("Package" 28 package-menu--name-predicate) ("Version= " 14 nil) ("Status" 10 package-menu--status-predicate) ("Description" 0 nil= )]) (tabulated-list-init-header)))))() [...] eval-buffer(# nil "d:/Users/fni/src/emacs-leuven/em= acs-leuven.el" nil t) ; Reading at buffer position 16581 load-with-code-conversion("d:/Users/fni/src/emacs-leuven/emacs-leuven.el"= "d:/Users/fni/src/emacs-leuven/emacs-leuven.el" nil t) require(emacs-leuven) eval-buffer(# nil "d:/Users/fni/.emacs.d/init.el" nil t) = ; Reading at buffer position 4384 load-with-code-conversion("d:/Users/fni/.emacs.d/init.el" "d:/Users/fni/.= emacs.d/init.el" t t) load("d:/Users/fni/.emacs.d/init" t t) --8<---------------cut here---------------end--------------->8--- I don't understand this, as there *is* a tex-site.el file in there: --8<---------------cut here---------------start------------->8--- d:/Users/fni/.emacs.d/elpa/auctex-11.87.7: total used in directory 3872 available 49916672 drwxrwxrwx 1 Fabrice None 8192 2014-09-02 11:46 ./ drwxrwxrwx 1 Fabrice None 8192 2014-09-05 17:35 ../ drwxrwxrwx 1 Fabrice None 4096 2014-09-02 11:46 doc/ drwxrwxrwx 1 Fabrice None 8192 2014-09-02 11:46 images/ drwxrwxrwx 1 Fabrice None 4096 2014-09-02 11:46 latex/ drwxrwxrwx 1 Fabrice None 40960 2014-09-02 11:46 style/ -rw-rw-rw- 1 Fabrice None 93 2014-09-02 11:46 .elpaignore -rw-rw-rw- 1 Fabrice None 406 2014-09-02 11:46 .gitignore -rw-rw-rw- 1 Fabrice None 10894 2014-09-02 11:46 auctex-autoloads.el -rw-rw-rw- 1 Fabrice None 272 2014-09-02 11:46 auctex-autoloads.el~ -rw-rw-rw- 1 Fabrice None 181 2014-09-02 11:46 auctex-pkg.el -rw-rw-rw- 1 Fabrice None 639 2014-09-02 11:46 auctex-pkg.elc -rw-rw-rw- 1 Fabrice None 1193 2014-09-02 11:46 auctex.el [...] -rw-rw-rw- 1 Fabrice None 5773 2014-09-02 11:46 tex-site.el -rw-rw-rw- 1 Fabrice None 4164 2014-09-02 11:46 tex-site.elc -rw-rw-rw- 1 Fabrice None 11618 2014-09-02 11:46 tex-style.el -rw-rw-rw- 1 Fabrice None 9172 2014-09-02 11:46 tex-style.elc -rw-rw-rw- 1 Fabrice None 4147 2014-09-02 11:46 tex-wizard.el -rw-rw-rw- 1 Fabrice None 3285 2014-09-02 11:46 tex-wizard.elc -rw-rw-rw- 1 Fabrice None 203303 2014-09-02 11:46 tex.el -rw-rw-rw- 1 Fabrice None 169620 2014-09-02 11:46 tex.elc -rw-rw-rw- 1 Fabrice None 16035 2014-09-02 11:46 texmathp.el -rw-rw-rw- 1 Fabrice None 9857 2014-09-02 11:46 texmathp.elc -rw-rw-rw- 1 Fabrice None 83399 2014-09-02 11:46 toolbar-x.el -rw-rw-rw- 1 Fabrice None 53221 2014-09-02 11:46 toolbar-x.elc --8<---------------cut here---------------end--------------->8--- And launching Emacs 24.3.1 -- with the same init.el file and the same package directory -- runs OK. Any idea? Best regards, Fabrice