-
-(defun shqq--match-comma (form)
- "Matches FORM against ,foo i.e. (\, foo) and returns foo.
-Returns nil if FORM didn't match. You can't disambiguate between
-FORM matching ,nil and not matching."
- (if (and (consp form)
- (eq '\, (car form))
- (consp (cdr form))
- (null (cddr form)))
- (cadr form)))
-
-(defun shqq--match-comma2 (form)
- "Matches FORM against ,,foo i.e. (\, (\, foo)) and returns foo.
-Returns nil if FORM didn't match. You can't disambiguate between
-FORM matching ,,nil and not matching."
- (if (and (consp form)
- (eq '\, (car form))
- (consp (cdr form))
- (null (cddr form)))
- (shqq--match-comma (cadr form))))
-