初稿: 2018-08-09 Thu 11:19
最終更新日: 2018-12-14 Fri 20:44
ホーム | 文書トップ | 目次

org-get-alist-option
alistからキーをもとに値を取り出す

1: (defsubst org-get-alist-option (option key)
2:   (cond ((eq key t) t)
3:         ((eq option t) t)
4:         ((assoc key option) (cdr (assoc key option)))
5:         (t (let ((r (cdr (assq 'default option))))
6:              (if (listp r) (delq nil r) r)))))

日付: 2018-08-09 Thu 11:19

著者: conao

Created: 2018-12-14 Fri 21:04

Validate