;ELC   
;;; Compiled by proclus@darwintel on Wed Jan  2 15:45:52 2008
;;; from file /mnt/gmirror/ports/deskutils/howm/work/howm-1.3.4/honest-report.el
;;; in Emacs version 21.2.1
;;; with bytecomp version 1.1.1.4
;;; 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 "`honest-report.el' was compiled for Emacs 19.29 or later"))

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


(defalias 'honest-report #[(&optional header footer) "\306 \307 \310 \311 \312 \210\313\314\315\fD\316D\317\nD\320	D\321D\322D\257\"\210db,\207" [scr msg key ver header footer honest-report-version honest-report-recent-keys honest-report-message honest-report-screenshot honest-report-setup mapcar #[(a) "\301\302\"\207" [a apply honest-report-insert] 3] "Header" "Emacs version" "Recent keys" "Recent messages" "Screen shot" "Footer"] 9 nil nil])
(defalias 'honest-report-insert #[(title content) "\205 \302	\303\304\261\207" [content title "* " ":\n\n" "\n\n"] 5])
(defalias 'honest-report-setup #[nil "\301\302!\303!)\207" [report-buf format-time-string "honest-report-%Y%m%d-%H%M%S" switch-to-buffer] 2])
(defalias 'honest-report-recent-keys #[nil "\300\301\302 \303#\207" [mapconcat #[(key) "\250\204 9\204 <\203 \301!\207\302\303\"\207" [key single-key-description prin1-to-string nil] 3] recent-keys " "] 4])
(defalias 'honest-report-screenshot #[nil "\300\301\302 \303#\207" [mapconcat #[(w) "r\303!q\210\304!e]\305\306\"d^\307\310\311\n	\"#+\207" [w e b window-buffer window-start window-end t format "--- %s ---\n%s" buffer-substring-no-properties] 6] honest-report-window-list "\n"] 4])
#@105 Mimic `window-list'.
This function exists only for emacs20 (and meadow-1.15),
which lack `window-list'.
(defalias 'honest-report-window-list #[nil "\301\302\303!\210\304!)\207" [ws nil walk-windows #[(w) "	B\211\207" [w ws] 2] reverse] 2 (#$ . 1867)])
(defalias 'honest-report-message #[nil "r\300\301!\206\n \300\302!q\210\212db\210\303y\210\304`d\"*\207" [get-buffer "*Messages*" " *Message-Log*" -10 buffer-substring-no-properties] 3])
(defalias 'honest-report-version #[nil "\300\301\302 \303#\207" [mapconcat #[(sv) "\301\302@A#\207" [sv format "[%s] %s"] 4] honest-report-version-assoc "\n"] 4])
(defalias 'honest-report-version-assoc #[nil "\305\306\307\310\311	\312 $B\313\nB\314B\315\316!\205$ \317\315\316!\205# \316\316 )BF\"\207" [emacs-version system-configuration system-type window-system howm-funcall-if-defined-f remove nil "Emacs" format "%s (%s) of %s" howm-emacs-build-time "system" "window system" fboundp Meadow-version "Meadow"] 8])
(provide 'honest-report)