Function: viper-append-filter-alist

viper-append-filter-alist is a byte-compiled function defined in viper-util.el.gz.

Signature

(viper-append-filter-alist LIS1 LIS2)

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/viper-util.el.gz
;; Append LIS2 to LIS1, both alists, by side-effect and returns LIS1
;; LIS2 is modified by filtering it: deleting its members of the form
;; (car elt) such that (car elt') is in LIS1.
(defun viper-append-filter-alist (lis1 lis2)
  (let ((temp lis1)
	elt)
    ;;filter-append the second list
    (while temp
      ;; delete all occurrences
      (while (setq elt (assoc (car (car temp)) lis2))
	(setq lis2 (delq elt lis2)))
      (setq temp (cdr temp)))

    (append lis1 lis2)))