(when (string-match "<\\(.+\\)>" val)
(setq val (match-string 1 val)))
(setq vec (vconcat vec (list val))))
(when (string-match "<\\(.+\\)>" val)
(setq val (match-string 1 val)))
(setq vec (vconcat vec (list val))))
(:archive
;; Value is `0' or `1' or `both'.
(if (string-match "\\`\\(0\\|1\\|both\\)\\'" val)
(setq vec (vconcat vec (list val)))
(:archive
;; Value is `0' or `1' or `both'.
(if (string-match "\\`\\(0\\|1\\|both\\)\\'" val)
(setq vec (vconcat vec (list val)))
- (error "Wrong %s: %s" (car (last vec)) val)))
- (t (error "Unknown key: %s" (car (last vec))))))
+ (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
+ (t (error "Unknown key: %s" (substring (symbol-name key) 1)))))