;ELC   
;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:33 2008
;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/xmtn-compat.el
;;; in Emacs version 23.0.50.2
;;; 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 "`xmtn-compat.el' was compiled for Emacs 19.29 or later"))

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


(require 'cl)
(defalias 'xmtn--temp-directory #[nil "\301\302!\203	 \302 \207\207" [temporary-file-directory fboundp temp-directory] 2])
(defalias 'xmtn--make-temp-file #[(prefix &optional dirp suffix) "\303\304!\305\216rq\210\306	\307 \"\310	\n\"+\207" [#1=#:temp-buffer prefix dirp generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) expand-file-name xmtn--temp-directory make-temp-file] 3])
(byte-code "\301B\302\301!\204 \303\301\304\305\306\"\"\210\301\207" [current-load-list xmtn--*process-plists* default-boundp set-default make-hash-table :weakness key] 5)
(defalias 'xmtn--process-put #[(process propname value) "\306\307\n\310#\f	#\311\n#\210	\210*\307\n\"\207" [value #1=#:--cl-getf-store-- process xmtn--*process-plists* propname #2=#:--cl-store-- cl-set-getf gethash nil puthash] 5])
(defalias 'xmtn--process-get #[(process propname) "\303\304	\"\n\305#\207" [process xmtn--*process-plists* propname getf gethash nil] 4])
(put 'xmtn--process-get 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'xmtn--set-process-query-on-exit-flag '(macro . #[(process value) "\302\303!\203 \303	E\207\304\305	E	E\207" [process value fboundp set-process-query-on-exit-flag progn process-kill-without-query] 4]))
(defalias 'xmtn--insert-buffer-substring-no-properties '(macro . #[(from-buffer &optional start end) "\303\304!\203\f \304	\nF\207\305\306\307\310\311	\312BB\311\n\313BBEED\314BB\207" [from-buffer start end fboundp insert-buffer-substring-no-properties progn insert with-current-buffer buffer-substring-no-properties or ((point-min)) ((point-max)) (nil)] 9]))
(defalias 'xmtn--lwarn #[(tag level message &rest args) "\304\305!\203 \306\305	\n%\210\202 \306\302\n#\210\307\207" [tag level message args fboundp lwarn apply nil] 6])
#@33 Not documented

(fn &body BODY)
(defalias 'xmtn--with-no-warnings '(macro . #[(&rest body) "\301\302!\203\n \302B\207\303B\207" [body fboundp with-no-warnings progn] 2 (#$ . 2430)]))
#@41 Not documented

(fn MESSAGE &body BODY)
(defalias 'xmtn--with-temp-message '(macro . #[(message &rest body) "\302\303!\203\f \303	BB\207\304	B\207" [message body fboundp with-temp-message progn] 3 (#$ . 2621)]))
#@76 Not documented

(fn (I n-form &optional res-form) MESSAGE-FORM &body BODY)
(defalias 'xmtn--dotimes-with-progress-reporter '(macro . #[(&rest body) "A\203 \211A@\202 \306\307\310GD\"\211A\203\" 	\211A@\202) \306\307\310	GD\"	\211A@	\211A@\211A@	\203J \306\307\310	G\311\\D\"\210\312\313!\203] \313\n\fEBBB\202| \314 \315DC\316\317\320\n\fEBBE\321\322EEE)-\207" [body #1=#:--cl-rest-- i n-form res-form message-form signal wrong-number-of-arguments xmtn--dotimes-with-progress-reporter 3 fboundp dotimes-with-progress-reporter gensym let prog1 xmtn--with-temp-message dotimes message "%sdone"] 10 (#$ . 2840)]))
(defalias 'xmtn--set-buffer-multibyte '(macro . #[(flag) "\301\302!\205	 \302D\207" [flag fboundp set-buffer-multibyte] 2]))
(provide 'xmtn-compat)