GNU bug report logs - #27371
26.0.50; Unexpected element (define-type . tramp-file-name) in load-history

Previous Next

Full log

Message #14 received at 27371 <at> debbugs.gnu.org (full text, mbox):

From: Michael Albinus <michael.albinus <at> gmx.de>
To: 27371 <at> debbugs.gnu.org
Cc: Stefan Monnier <monnier <at> IRO.UMontreal.CA>
Subject: Re: bug#27371: 26.0.50;
 Unexpected element (define-type . tramp-file-name) in load-history
Date: Mon, 17 Jul 2017 14:36:56 +0200

Michael Albinus <michael.albinus <at> gmx.de> writes:

> 1. emacs -Q -l tramp
> 2. M-x unload-feature <RET> tramp
>
> => Unexpected element (define-type . tramp-file-name) in load-history

The following patch fixes this for me:

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 28d0b18c81..34200ab40e 100644
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -269,7 +269,7 @@ unload-feature
 	      ;; and says we should restore SYMBOL's autoload
 	      ;; when we undefine it.
 	      (`t (setq restore-autoload (cdr x)))
-	      ((or `require `defface) nil)
+	      ((or `require `defface `define-type) nil)
 	      (_ (message "Unexpected element %s in load-history" x)))
 	  ;; Kill local values as much as possible.
 	  (dolist (buf (buffer-list))
--8<---------------cut here---------------end--------------->8---

However, it just skips the entry. Wouldn't it be better to remove the
defstruct itself, and all inherited symbols? And where could I find
information how to destroy a defstruct?

Stefan?

Beswt regards, Michael.

Previous Next

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