;ELC
;;; Compiled
;;; in Emacs version 24.5.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


#@286 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.  Any text properties on a %-spec itself are propagated to
the text that it generates.
(defalias 'format-spec #[(format specification) "\306\307!rq\210\310\216	c\210eb\210\311\312\313\314#\203t\313f\315=\203&\316\317!\210\202\320\321!\203m\322\317!\323\322\324!!\211\f\236\211\204C\325\326\"\210
A\301\312\n\327Q
\"\330!\210\331\224G\\\331\225G\\|\210\331\224S\331\224|\210,\202\325\332!\210\202\333 +\207" [#1=#:temp-buffer format num spec specification val generate-new-buffer " *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 error "Invalid format character: `%%%c'" "s" insert-and-inherit 0 "Invalid format string" buffer-string text] 5 (#$ . 411)])
#@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) "\302	\203&	A\204\303\304!\210	@	\211A@\262
BB	\211AA\262
\211\204\237)\207" [alist pairs nil error "Invalid list of pairs"] 4 (#$ . 1449)])
(provide 'format-spec)