GNU bug report logs - #15918
24.3; package-delete backtrace

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: emacs; Reported by: Dave Abrahams <dave@HIDDEN>; dated Mon, 18 Nov 2013 05:09:01 UTC; Maintainer for emacs is bug-gnu-emacs@HIDDEN.

Message received at submit <at>

Received: (at submit) by; 18 Nov 2013 05:08:21 +0000
From debbugs-submit-bounces <at> Mon Nov 18 00:08:21 2013
Received: from localhost ([]:59340
	by with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at>>)
	id 1ViH4O-0002kh-GN
	for submit <at>; Mon, 18 Nov 2013 00:08:21 -0500
Received: from ([]:51710)
 by with esmtp (Exim 4.80)
 (envelope-from <dave@HIDDEN>) id 1ViH4L-0002kS-2e
 for submit <at>; Mon, 18 Nov 2013 00:08:18 -0500
Received: from Debian-exim by with spam-scanned (Exim 4.71)
 (envelope-from <dave@HIDDEN>) id 1ViH48-0005a9-Fx
 for submit <at>; Mon, 18 Nov 2013 00:08:11 -0500
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on
X-Spam-Status: No, score=0.8 required=5.0 tests=BAYES_50,T_FRT_PACKAGE
 autolearn=disabled version=3.3.2
Received: from ([2001:4830:134:3::11]:36177)
 by with esmtp (Exim 4.71)
 (envelope-from <dave@HIDDEN>) id 1ViH48-0005a5-Cl
 for submit <at>; Mon, 18 Nov 2013 00:08:04 -0500
Received: from ([2001:4830:134:3::10]:53432)
 by with esmtp (Exim 4.71)
 (envelope-from <dave@HIDDEN>) id 1ViH42-0001Jm-2p
 for bug-gnu-emacs@HIDDEN; Mon, 18 Nov 2013 00:08:04 -0500
Received: from Debian-exim by with spam-scanned (Exim 4.71)
 (envelope-from <dave@HIDDEN>) id 1ViH3v-0005Zg-S7
 for bug-gnu-emacs@HIDDEN; Mon, 18 Nov 2013 00:07:58 -0500
Received: from ([]:54669)
 by with esmtp (Exim 4.71)
 (envelope-from <dave@HIDDEN>) id 1ViH3v-0005Zc-Kv
 for bug-gnu-emacs@HIDDEN; Mon, 18 Nov 2013 00:07:51 -0500
Received: by with SMTP id tp5so857601ieb.22
 for <bug-gnu-emacs@HIDDEN>; Sun, 17 Nov 2013 21:07:51 -0800 (PST)
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;; s=20130820;
X-Gm-Message-State: ALoCoQnRtifPFWVNCMLFbcBhrp+k/oaexw4zTUg3KOWQnbDr8dOv9Umu3OoluxMt7ec0n7xaDJrK
X-Received: by with SMTP id w7mr12310621igb.32.1384751270826;
 Sun, 17 Nov 2013 21:07:50 -0800 (PST)
Received: from
 ( [])
 by with ESMTPSA id ft2sm11936693igb.5.2013.
 for <bug-gnu-emacs@HIDDEN>
 (version=TLSv1 cipher=RC4-SHA bits=128/128);
 Sun, 17 Nov 2013 21:07:50 -0800 (PST)
Received: by (Postfix, from userid 501)
 id 787632B61D8; Sun, 17 Nov 2013 21:07:51 -0800 (PST)
From: Dave Abrahams <dave@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: 24.3; package-delete backtrace
Date: Sun, 17 Nov 2013 21:07:51 -0800
Message-ID: <m2siuuwb4o.fsf@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
X-detected-operating-system: by GNU/Linux 2.2.x-3.x [generic]
X-detected-operating-system: by Error: Malformed IPv6 address
 (bad octet value).
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -4.0 (----)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at>
X-Mailman-Version: 2.1.15
Precedence: list
List-Id: <>
List-Unsubscribe: <>, 
 <mailto:debbugs-submit-request <at>>
List-Archive: <>
List-Post: <mailto:debbugs-submit <at>>
List-Help: <mailto:debbugs-submit-request <at>>
List-Subscribe: <>, 
 <mailto:debbugs-submit-request <at>>
Errors-To: debbugs-submit-bounces <at>
Sender: "Debbugs-submit" <debbugs-submit-bounces <at>>
X-Spam-Score: -4.0 (----)

I installed use-package from melpa.  It was upgraded recently, so=20

`M-x list-packages'
`U x y e s RET ~ x y e s RET'

I don't know how to reproduce this from emacs -Q, unfortunately.  It
looks like the package in question ("use-package") no longer has a
directory in ~/.emacs.d/elpa.  I only have the newer
use-package-20131105.1032.  I'm not sure why the package manager still
thinks it's installed.

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  (string-equal (file-name-directory dir) (file-name-as-directory (expand-f=
ile-name package-user-dir)))
  (if (string-equal (file-name-directory dir) (file-name-as-directory (expa=
nd-file-name package-user-dir))) (progn (delete-directory dir t t) (message=
 "Package `%s-%s' deleted." name version)) (error "Package `%s-%s' is a sys=
tem package, not deleting" name version))
  (let ((dir (package--dir name version))) (if (string-equal (file-name-dir=
ectory dir) (file-name-as-directory (expand-file-name package-user-dir))) (=
progn (delete-directory dir t t) (message "Package `%s-%s' deleted." name v=
ersion)) (error "Package `%s-%s' is a system package, not deleting" name ve=
  package-delete("use-package" "20131026.11")
  (lambda nil (package-delete (car elt) (cdr elt)))()
  funcall((lambda nil (package-delete (car elt) (cdr elt))))
  (if debug-on-error (funcall body) (condition-case err (funcall body) (err=
or (message (cadr err)))))
  (let ((body (function (lambda nil (package-delete (car elt) (cdr elt)))))=
) (if debug-on-error (funcall body) (condition-case err (funcall body) (err=
or (message (cadr err))))))
  (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((body (func=
tion (lambda nil (package-delete (car elt) (cdr elt)))))) (if debug-on-erro=
r (funcall body) (condition-case err (funcall body) (error (message (cadr e=
rr)))))) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- delete-list) elt) (while --dolist-tail-- (setq elt=
 (car --dolist-tail--)) (let ((body (function (lambda nil (package-delete .=
.. ...))))) (if debug-on-error (funcall body) (condition-case err (funcall =
body) (error (message (cadr err)))))) (setq --dolist-tail-- (cdr --dolist-t=
  (progn (let ((--dolist-tail-- delete-list) elt) (while --dolist-tail-- (s=
etq elt (car --dolist-tail--)) (let ((body (function (lambda nil ...)))) (i=
f debug-on-error (funcall body) (condition-case err (funcall body) (error (=
message ...))))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (if (yes-or-no-p (if (=3D (length delete-list) 1) (format "Delete package=
 `%s-%s'? " (caar delete-list) (cdr (car delete-list))) (format "Delete the=
se %d packages (%s)? " (length delete-list) (mapconcat (function (lambda (e=
lt) (concat ... "-" ...))) delete-list ", ")))) (progn (let ((--dolist-tail=
-- delete-list) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)=
) (let ((body (function ...))) (if debug-on-error (funcall body) (condition=
-case err (funcall body) (error ...)))) (setq --dolist-tail-- (cdr --dolist=
-tail--))))) (error "Aborted"))
  (progn (if (yes-or-no-p (if (=3D (length delete-list) 1) (format "Delete =
package `%s-%s'? " (caar delete-list) (cdr (car delete-list))) (format "Del=
ete these %d packages (%s)? " (length delete-list) (mapconcat (function (la=
mbda ... ...)) delete-list ", ")))) (progn (let ((--dolist-tail-- delete-li=
st) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let ((bod=
y ...)) (if debug-on-error (funcall body) (condition-case err ... ...))) (s=
etq --dolist-tail-- (cdr --dolist-tail--))))) (error "Aborted")))
  (if delete-list (progn (if (yes-or-no-p (if (=3D (length delete-list) 1) =
(format "Delete package `%s-%s'? " (caar delete-list) (cdr (car delete-list=
))) (format "Delete these %d packages (%s)? " (length delete-list) (mapconc=
at (function ...) delete-list ", ")))) (progn (let ((--dolist-tail-- delete=
-list) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (let (.=
..) (if debug-on-error ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--=
))))) (error "Aborted"))))
  (let (install-list delete-list cmd id) (save-excursion (goto-char (point-=
min)) (while (not (eobp)) (setq cmd (char-after)) (if (eq cmd 32) nil (setq=
 id (tabulated-list-get-id)) (cond ((eq cmd 68) (setq delete-list (cons ...=
 delete-list))) ((eq cmd 73) (setq install-list (cons ... install-list)))))=
 (forward-line))) (if install-list (progn (if (yes-or-no-p (if (=3D (length=
 install-list) 1) (format "Install package `%s'? " (car install-list)) (for=
mat "Install these %d packages (%s)? " (length install-list) (mapconcat ...=
 install-list ", ")))) (mapc (quote package-install) install-list)))) (if d=
elete-list (progn (if (yes-or-no-p (if (=3D (length delete-list) 1) (format=
 "Delete package `%s-%s'? " (caar delete-list) (cdr ...)) (format "Delete t=
hese %d packages (%s)? " (length delete-list) (mapconcat ... delete-list ",=
 ")))) (progn (let ((--dolist-tail-- delete-list) elt) (while --dolist-tail=
-- (setq elt ...) (let ... ...) (setq --dolist-tail-- ...)))) (error "Abort=
ed")))) (and delete-list (null install-list) (package-initialize)) (if (or =
delete-list install-list) (package-menu--generate t t) (message "No operati=
ons specified.")))
  call-interactively(package-menu-execute nil nil)
--8<---------------cut here---------------end--------------->8---

In GNU Emacs 24.3.1 (x86_64-apple-darwin11.4.2, Carbon Version 1.6.0 AppKit=
 of 2013-09-24 on Yukikaze.local
Windowing system distributor `Apple Inc.', version 10.9.0
Configured using:
 `configure '--with-mac'

Important settings:
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  diff-auto-refine-mode: t
  shell-dirtrack-mode: t
  me-minor-mode: t
  delete-selection-mode: t
  override-global-mode: t
  tooltip-mode: t
  mac-mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
r e p o r t - e m a c s - b u g ) ) C-x C-e C-, M-x=20
r e p o r t <tab> m a <tab> <return> C-g C-e C-n C-a=20
<tab> C-n C-a <tab> C-p C-e C-, C-, C-b <M-backspace>=20
<backspace> C-e C-n C-n C-a <tab> C-n C-a <tab> C-e=20
C-, C-, C-, C-. C-. C-. C-, m a c - C-e C-p C-p C-p=20
C-p C-e <return> C-n C-e C-n C-n C-p C-n C-n C-e )=20
C-x C-e C-p C-p C-p C-p C-p C-p C-p C-p C-s f e a t=20
C-, ( C-e ) C-n C-n C-n C-n C-n C-p C-p C-p C-p C-p=20
C-a C-n C-SPC C-n C-n C-n C-n C-n C-n C-M-\ C-p C-e=20
C-x C-e M-x r e p l <backspace> o r t - e m <tab> b=20
u <tab> <return> C-g C-x b * D e <tab> C-g C-g C-x=20
b * B a <tab> <return> C-SPC C-p C-p C-p C-g C-p C-.=20
<return> M-x e v a l - b u f f e r C-g <C-return> q=20
<C-return> M-x e v a l - b u f f e r <return> C-x b=20
* p a c <tab> C-g M-x p a c k a g e - l i s t <tab>=20
<return> M-> ~ x y e s <return> C-p C-SPC C-g M-x r=20
e p o r t - e m <tab> b u g C-g <C-return> <C-return>=20
M-" M-: d i r <return> M-: p a c k a g e C-g C-SPC=20
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n=20
C-n C-n C-n C-n C-n C-n M-w M-x r e p o r t - u <backspace>=20
e m a <tab> b <tab> <return>

Recent messages:
Contacting host:
Saving file /Users/dave/.emacs.d/elpa/archives/melpa/archive-contents...
Wrote /Users/dave/.emacs.d/elpa/archives/melpa/archive-contents
Mark set
Entering debugger...
Mark set
Quit [2 times]
Mark activated

Load-path shadows:
/usr/local/share/emacs/site-lisp/trampver hides /Applications/
/usr/local/share/emacs/site-lisp/tramp hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-uu hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-smb hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-sh hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-loaddefs hides /Applications/Emacs.a=
/usr/local/share/emacs/site-lisp/tramp-gw hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-ftp hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-compat hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-cmds hides /Applications/
/usr/local/share/emacs/site-lisp/tramp-cache hides /Applications/

(emacsbug two-column iso-transl lisp-mnt iswitchb ido esh-var esh-io
esh-cmd esh-opt esh-ext esh-proc esh-arg eldoc esh-groups eshell
esh-module esh-mode esh-util ediff-merg ediff-diff ediff-wind ediff-help
ediff-util ediff-mult ediff-init ediff dired-x tar-mode find-lisp
autoload network-stream starttls url-http tls url-gw url-cache url-auth
url url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util url-parse url-vars qp mail-extr sort mailcap shadow
message sendmail rfc822 mml mml-sec mm-decode mm-bodies mm-encode
mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils
mailheader sh-script smie executable reporter elp tramp-cmds tramp-cache
tramp-sh tramp tramp-compat auth-source eieio password-cache
tramp-loaddefs trampver dabbrev pp mule-util magit-log-edit log-edit
pcvs-util add-log magit-bisect magit-key-mode magit epa derived epg
epg-config git-rebase-mode server rx tabify man whitespace diff-mode
diff goto-addr view debug org-wl org-w3m org-vm org-rmail org-mhe
org-mew org-irc org-jsinfo org-infojs org-html org-exp ob-exp
org-exp-blocks org-agenda org-info org-gnus org-docview org-bibtex
bibtex org-bbdb org ob-tangle ob-ref ob-lob ob-table org-footnote
org-src ob-comint ob-keys org-pcomplete org-list org-faces org-entities
noutline outline org-version ob-emacs-lisp ob org-compat org-macs
ob-eval org-loaddefs format-spec cal-menu calendar cal-loaddefs
find-dired grep compile dired-aux help-mode shell pcomplete comint
ansi-color ring vc-git misearch multi-isearch thingatpt dired jka-compr
melpa use-package diminish initsplit cl-macs gv cus-edit find-func cl
gnus gnus-ems nnheader gnus-util mail-utils mm-util mail-prsvr wid-edit
delsel cus-start cus-load elhome edmacro kmacro bind-key easy-mmode
elhome-autoloads initsplit-autoloads magit-filenotify-autoloads
magit-log-edit-autoloads magit-svn-autoloads magit-autoloads info
easymenu git-rebase-mode-autoloads git-commit-mode-autoloads finder-inf
melpa-autoloads byte-opt warnings bytecomp byte-compile cconv advice
help-fns cl-lib advice-preload use-package-autoloads diminish-autoloads
bind-key-autoloads package time-date tooltip ediff-hook vc-hooks
lisp-float-type mwheel mac-win tool-bar dnd fontset image regexp-opt
fringe tabulated-list newcomment lisp-mode register page menu-bar
rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-face macroexp files text-properties overlay sha1 md5 base64 format
env code-pages mule custom widget hashtable-print-readable backquote
multi-tty make-network-process emacs)

Acknowledgement sent to Dave Abrahams <dave@HIDDEN>:
New bug report received and forwarded. Copy sent to bug-gnu-emacs@HIDDEN. Full text available.
Report forwarded to bug-gnu-emacs@HIDDEN:
bug#15918; Package emacs. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Fri, 31 Oct 2014 17:00:04 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.