(assq-delete-all): Ignore non-cons elememts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db9f7ba5aa5f4dc9104f49003c595ce0a926169e..5611fbeec4e0600505259944f1c4a18fae22859f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-24  Lars Hansen  <larsh@math.ku.dk>
+
+       * subr.el (assq-delete-all): Ignore non-cons elememts.
+
 2003-04-24  John Paul Wallington  <jpw@gnu.org>
 
        * help-mode.el (help-make-xrefs): Remove extra paren.

diff --git a/lisp/subr.el b/lisp/subr.el
index f5a629de9244c2a7f8a9bb8f2ebe1f824908e322..8390d9c56dd49faa0d2a616cbdbd7f19266c52e8 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2048,10 +2048,11 @@ If function is a command (see `commandp'), value is a list of the form
 
 (defun assq-delete-all (key alist)
   "Delete from ALIST all elements whose car is KEY.
-Return the modified alist."
+Return the modified alist.
+Elements of ALIST that are not conses are ignored."
   (let ((tail alist))
     (while tail
-      (if (eq (car (car tail)) key)
+      (if (and (consp (car tail)) (eq (car (car tail)) key))
          (setq alist (delq (car tail) alist)))
       (setq tail (cdr tail)))
     alist))