assq-delete-all patch

assq-delete-all patch

[Lars Hansen]

The built-in function assq ignores elements of the list that are not conses.
But the function assq-delete-all in subr.el fails. IMHO that is 
inconsequent.
Therefore I suggest this patch:

  (defun assq-delete-all (key alist)
    "Delete from ALIST all elements whose car is KEY.
! Return the modified alist."
    (let ((tail alist))
      (while tail
!       (if (eq (car (car tail)) key)
        (setq alist (delq (car tail) alist)))
        (setq tail (cdr tail)))
      alist))
--- 2048,2058 ----
 
  (defun assq-delete-all (key alist)
    "Delete from ALIST all elements whose car is KEY.
! Return the modified alist.
! Elements of ALIST that are not conses are ignored."
    (let ((tail alist))
      (while tail
!       (if (and (consp (car tail)) (eq (car (car tail)) key))
        (setq alist (delq (car tail) alist)))
        (setq tail (cdr tail)))
      alist))