my-emacs-d/elpa/yasnippet-20160924.2001/snippets/fundamental-mode/.yas-setup.el
2016-10-20 10:27:10 +02:00

9 lines
292 B
EmacsLisp

(defun ca-all-asscs (asslist query)
"returns a list of all corresponding values (like rassoc)"
(cond
((null asslist) nil)
(t
(if (equal (cdr (car asslist)) query)
(cons (car (car asslist)) (ca-all-asscs (cdr asslist) query))
(ca-all-asscs (cdr asslist) query)))))