Lines Matching +refs:assq +refs:set
180 (set (intern (concat val-str "-function")) (intern func-str))
447 (artid (cdr (assq 'artid article))))
454 (member (cdr (assq 'artid article))
461 (artid (cdr (assq 'artid article))))
480 (setq artid (cdr (assq 'artid article)))
532 (string= (cdr (assq 'artid article))
534 (cdr (assq 'artid navi2ch-article-current-article))))
600 (setq old-file (cdr (assq 'logo board)))
847 (cdr (assq 'artid
955 (cond ((cdr (assq 'artid articles)) ; $B%9%l(B alist
957 ((cdr (assq 'artid (car articles))) ; $B%9%l(B alist $B$N(B list
960 (let ((artid (cdr (assq 'artid article)))