Mercurial > hg > xemacs-beta

comparison lisp/cl-seq.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents a4f53d9b3154
children de805c49cfc1
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
336 to avoid corrupting the original SEQ. 336 to avoid corrupting the original SEQ.
337 Also see: `remove*', `delete', `delete*'" 337 Also see: `remove*', `delete', `delete*'"
338 (remove* cl-item cl-seq ':test 'equal)) 338 (remove* cl-item cl-seq ':test 'equal))
339 339
340 (defun remq (cl-elt cl-list) 340 (defun remq (cl-elt cl-list)
341 "Remove all occurrences of ELT in LIST, comparing with `eq'. 341 "Remove all occurances of ELT in LIST, comparing with `eq'.
342 This is a non-destructive function; it makes a copy of LIST to avoid 342 This is a non-destructive function; it makes a copy of LIST to avoid
343 corrupting the original LIST. 343 corrupting the original LIST.
344 Also see: `delq', `delete', `delete*', `remove', `remove*'." 344 Also see: `delq', `delete', `delete*', `remove', `remove*'."
345 (if (memq cl-elt cl-list) 345 (if (memq cl-elt cl-list)
346 (delq cl-elt (copy-list cl-list)) 346 (delq cl-elt (copy-list cl-list))