Lines Matching defs:specs
54 ;; Format specs. The chunks below are the machine-generated forms
58 ;; flexibility of the user-defined format specs.
140 (defvar gnus-format-specs
148 "Alist of format specs.")
150 (defvar gnus-default-format-specs gnus-format-specs)
172 (entry (assq type gnus-format-specs))
175 (setq gnus-format-specs (delq entry gnus-format-specs)))
182 (push (list type value spec) gnus-format-specs)
199 (cdr (assq 'version gnus-format-specs)))))
200 (setq gnus-format-specs nil))
204 (let ((spec (assq 'group gnus-format-specs)))
207 (setq gnus-format-specs (delq spec gnus-format-specs)))))
222 (setq entry (cdr (assq type gnus-format-specs)))
244 (push (list type new-format val) gnus-format-specs))
248 (unless (assq 'version gnus-format-specs)
249 (push (cons 'version emacs-version) gnus-format-specs))
435 ;; Convert all font specs into font spec lists.
691 ;; Only string (and %) specs (XEmacs only!)
722 "Byte-compile the user-defined format specs."
725 (let ((entries gnus-format-specs)
729 (gnus-message 7 "Compiling format specs...")
734 (setq gnus-format-specs (delq entry gnus-format-specs))
746 (push (cons 'version emacs-version) gnus-format-specs)
749 (gnus-message 7 "Compiling user specs...done"))))