JezK
Edit File: format-spec.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:29 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/format-spec.el ;;; in Emacs version 24.3.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#\203r \313f\315=\203& \316\317!\210\202 \320\321!\203k \322\317!\323\322\324!!\211\f\236A\211 \204D \325\326 \"\210\301\312\n\327Q \" \330 !\210\331\224 G\\\331\225 G\\|\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 (#$ . 555)]) #@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 @ \211A@)BB \211AA)\211\204 \237)\207" [alist pairs x nil error "Invalid list of pairs"] 3 (#$ . 1591)]) (provide 'format-spec)