/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.349 by rms, Wed Apr 9 01:36:28 2003 UTC revision 1.350 by rms, Thu Apr 24 23:14:12 2003 UTC
# Line 2048  If function is a command (see `commandp' Line 2048  If function is a command (see `commandp'
2048    
2049  (defun assq-delete-all (key alist)  (defun assq-delete-all (key alist)
2050    "Delete from ALIST all elements whose car is KEY.    "Delete from ALIST all elements whose car is KEY.
2051  Return the modified alist."  Return the modified alist.
2052    Elements of ALIST that are not conses are ignored."
2053    (let ((tail alist))    (let ((tail alist))
2054      (while tail      (while tail
2055        (if (eq (car (car tail)) key)        (if (and (consp (car tail)) (eq (car (car tail)) key))
2056            (setq alist (delq (car tail) alist)))            (setq alist (delq (car tail) alist)))
2057        (setq tail (cdr tail)))        (setq tail (cdr tail)))
2058      alist))      alist))

Legend:
Removed from v.1.349  
changed lines
  Added in v.1.350

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26