|
From: | Emanuel Berg |
Subject: | Re: "cl-case" with strings |
Date: | Fri, 05 Feb 2016 05:52:34 +0100 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) |
Emanuel Berg <embe8573@student.uu.se> writes: > So I wrote this. Non-recursive version - perhaps (?) better: (defun string-case-non-recursive (string &rest clauses) (cl-some (lambda (c) (let ((keys (car c))) (and (or (eq t keys) (member string keys) ) (cadr c) ))) clauses) ) -- underground experts united http://user.it.uu.se/~embe8573
[Prev in Thread] | Current Thread | [Next in Thread] |