Mercurial > hg > xemacs-beta

comparison lisp/cl-seq.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents c5d627a313b1
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
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 occurances of ELT in LIST, comparing with `eq'. 341 "Remove all occurrences 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))