;ELC ;;; Compiled by [email protected] on Sat Jun 12 01:42:36 2010 ;;; from file /home/boggles/.emacs.d/chm-view.el ;;; in Emacs version 22.2.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 "`chm-view.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\210 \210\n\210 \210\f\210 \210 \210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210\210 \210\210 \210\210\210 \210\210 \210 \210!\210\210 \210\210\210\"\210#\210\210\210$\210#\210\210\210%\210#\210\210\210&\210#\210\210\210'\210#\210\210\210(\210#\210\210\210)\210#\210\210\210*\210+\210,\210-\210.\210/\2100\2101\2102\2103\210\2104\2105\2106\2107\210\210\2108\210\2107\210\210\2109\210\2107\210\210\2108\210\210:\210;\210\210 \210<\210,\210-\210.\210/\2100\210=\2102\210>\210?\210\210@\210A\210B\210C\210D\210E\210\210\210\210F\210\210 \210\210G\210\210 \210\210H\210\210I\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210J\210\210 \210\306\307\310\311K\312\313\314&\207" [<!DOCTYPE html PUBLIC > <html xmlns= custom-declare-group chm-view nil "<span class=" ">Interface for chm-view.</span>" :group edit ><head><title>EmacsWiki: chm-view\.el</title><link rel= type= title= href= /><link /><meta name= content= /> <link http-equiv= /></head><body class= ><div ><a ><img src= alt= /></a><span >SiteMap</a> <a >Search</a> >ElispArea</a> >HowTo</a> >RecentChanges</a> >News</a> >Problems</a> >Suggestions</a> </span> <!-- Google CSE Search Box Begins --> <form action= id= ><p> <input value= size= </p></form> <script ></script> Ends <br /><span >Philippines\, Independence Day\, Russia\, National Day</span><h1><a >chm-view\.el</a></h1></div><div ><p >Download</a></p><pre ><span <span quote] 8) #@14 <span class= (custom-declare-variable 'chm-view-delay '0.3 '(#$ . 4145) quote ">The delay time before view CHM file.\nThis is necessary spend time to start sub-process.</span>" :type 'number :group 'chm-view) (byte-code "\210 \210\n\207" [<span class= >] 1) #@14 <span class= (defvar chm-view-last-filename nil (#$ . 4410) quote ">The name of last visit CHM file.</span>") #@14 <span class= (defvar chm-view-pid nil (#$ . 4526) quote ">The PID of chm-view process.</span>") (byte-code "\303\304!\210\210 \210\n\207" [<span class= > make-variable-buffer-local chm-view-pid] 2) #@14 <span class= (defalias 'chm-view-file #[(&optional file) "\210 \210\n\210 \210\f\204 \306\307\310\311 \206 \310$\312 # \210\n\210 \210\f \210\n\210 \210\313\f!\207" [quote <span class= > file chm-view-last-filename read-file-name format "<span class=" ">CHM file: (%s) </span>" nil chm-view-internal] 6 (#$ . 4731) nil]) #@14 <span class= (defalias 'chm-view-dired #[nil "\210\303 \304\211\205 \n@\305 !\210\nA\211\204 \304*\207" [quote file --dolist-tail-- dired-get-marked-files nil chm-view-internal] 3 (#$ . 5064) nil]) (byte-code "\210 \210\n\207" [<span class= >] 1) #@14 <span class= (defalias 'chm-view-internal #[(file) "\210\306 \307r\310 \f\311 \312\313\314\n$%q\210\315\316 p\313\317\313\320\n\321!&\n \210\f\210 \210\322!\210 \210\f\210 \210\323\312\313\324\n$!\210 \210\f\210 \210\325 ! \210\f\210 \210\326\327\330\"+\207" [quote proc random-number <span class= > chm-view-get-unique-number nil get-buffer-create "linecomment" format "<span class=" "> *chm-view<%s>*</span>" start-process buffer-name ">archmage</span>" ">-p</span>" expand-file-name sit-for browse-url ">http://localhost:%s</span>" process-id add-hook kill-buffer-hook (lambda nil (when chm-view-pid <span class= "linecomment" > <span class= "linecomment" > (flet ((message (&rest args))) (shell-command (format "<span class=" quote ">kill -9 %s</span>" chm-view-pid))) <span class= "linecomment" > (setq chm-view-pid nil))) file chm-view-delay chm-view-pid] 12 (#$ . 5325)]) #@14 <span class= (defalias 'chm-view-get-unique-number #[nil "\210\303\211\304 \305\306\307\310\n8$*\207" [quote buffer time-now nil current-time format "<span class=" ">%s</span>" 2] 6 (#$ . 6230)]) (byte-code "\306\307!\210\210 \210\n\210\210 \210\n\210 \210\f\210 \210\210 \210\n\210 \210\f\210 \210\210\210\210 \210\210 \210\210 \210\210 \210\210\210\210\210\n\210\210\210\n\210\210\210\210 \210\210\210 \210 \210\210\n\210 \210\210\210 \210\210\210 \210\210\210 \210\210\210 \210\210\210 \210\210\210!\210\"\210 \210#\210 \210\n\210$\210%\210&\210'\210(\210)\210*\210+\210,\210-\210\n\210 \210.\210\n\210 \210/\2100\2101\2102\210)\2103\2104\210(\2105\2106\210%\210*\2107\2108\2109\210:\210;\210-\210<\210(\210=\210>\210?\210@\210A\210-\210B\210C\210D\210C\210:\2109\210E\210-\210F\210:\210G\210H\210I\210(\210J\210-\210K\210L\210M\210N\210-\210K\210O\210P\210Q\210)\2103\2104\210(\2105\2106\210%\210*\210-\210\n\210 \210.\210\n\210 \210R\210S\210T\210-\210\n\210 \210U\210\n\210 \210V\210W\210-\210X\210Y\210Z\210[\210\n\210 \210\\\210]\210^\210\210_\210`\207" [<span class= > <!-- Creative Commons provide chm-view License --> <a href= ><img alt= style= src= /></a> /Creative </div> <rdf:RDF xmlns= xmlns:dc= xmlns:rdf= <Work rdf:about= <license rdf:resource= /> <dc:type </Work> <License <permits <requires </License> </rdf:RDF> <p This work is licensed to you under version of the >GNU</a> >General Public License</a>\. Alternatively\, may choose receive this any other license that grants right use\, copy\, modify\, and/or distribute work\, as long imposes restriction derivative works have grant same rights and impose restriction\. For example\, >Free Documentation License</a>\, >CreativeCommons</a> >ShareAlike</a> License\, XEmacs manual license\, or >similar licenses</a>\. </p> </body> </html>] 2)
