;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:41:51 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/gnus/format-spec.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`format-spec.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@200 Return a string based on FORMAT and SPECIFICATION.
FORMAT is a string containing `format'-like specs like "bash %u %k",
while SPECIFICATION is an alist mapping from format spec characters
to values.
(defalias 'format-spec #[(format specification) "\306\307\310!!\311\216rq\210	c\210eb\210\312\313\314\315#\203a \314f\316=\203( \317\320!\210\202 \321\322!\203Z \323\320!\324\323\325!!\211\f\236A\326\224S\326\225|\210\204M \327\330\"\210\301\313\n\331Q\"c\210+\202 \327\332!\210\202 \333 +\207" [#1=#:temp-buffer format num spec specification val get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) search-forward "%" nil t 37 delete-char 1 looking-at "\\([-0-9.]*\\)\\([a-zA-Z]\\)" match-string string-to-char 2 0 error "Invalid format character: %s" "s" "Invalid format string" buffer-string] 5 (#$ . 630)])
#@164 Return an alist suitable for use in `format-spec' based on PAIRS.
PAIRS is a list where every other element is a character and a value,
starting with a character.
(defalias 'format-spec-make #[(&rest pairs) "\303	\203& 	A\204 \304\305!\210	@	\211A@)BB	\211AA)\211\204 \237)\207" [alist pairs x nil error "Invalid list of pairs"] 3 (#$ . 1538)])
(provide 'format-spec)