;ELC   
;;; compiled by  @fidelio on Sat Jun 04 17:51:03 1994
;;; from file j:/tmp/25/emacs-19/lisp/os2help.el
;;; emacs version 19.25.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`j:/tmp/25/emacs-19/lisp/os2help.el' was compiled for Emacs 19"))

(provide (quote os2help))
(defvar os2help (quote ("g:/emx/book/emxdoc.ndx" "g:/toolkt20/book/epmkwhlp.ndx")) "\
Name of the EPM index file for on-line help.
To use multiple index files, assign a list of file names to os2help.")
(defvar os2help-old nil "\
Value of the os2help variable for which os2help-alist has been built.")
(defvar os2help-alist nil "\
Contents of the EPM index files preprocessed into a list.")
(defalias 'os2help #[(topic) "ہ‰‰‰ڑ„. اب!ˆہ	<ƒ# تث\"ˆ‚' ث!ˆاج!ˆہخدچ)\f„B ذخرچ)\f„J زس!ˆ\fAشص\"ƒd ض‰”Oض•ہOQ‚e شط\n\"ƒ€ ظ	\nض‰”OC\"\nض•ہO‚f \nجک„Œ ظ	\nC\"عظغ	\"!,‡" [nil args command template tmp os2help os2help-old message "Reading EPM index files..." os2help-alist mapcar os2help-parse-file "" case-fold-search os2help-find (byte-code "ہء\n\"ˆأ‡" [mapcar os2help-find os2help-alist nil] 3) t (byte-code "ہء\n\"ˆأ‡" [mapcar os2help-find os2help-alist nil] 3) error "Topic not found" string-match "~" 0 topic "[ 	]+" append eval (call-process "cmd.exe" nil 0 nil "/c" "start")] 5 "\
Request OS/2 on-line help for TOPIC.
Before using the os2help command, set the os2help variable to the name
of the index file or to a list of names of index files." (byte-code "ہ آ	ƒ أؤ	\"‚ إ!‰اکƒ 	‚ *C‡" [os2help-get-word default read-string format "Topic (default %s): " "Topic: " input ""] 5)])
(defalias 'os2help-find #[(node) "ہ	@\n\"…\f أؤ	\"‡" [string-match node topic throw os2help-find] 3 "\
Examine NODE for OS/2 on-line help."])
(defalias 'os2help-parse-file #[(fname) "ہ‰‰‰ءا!„ ةت\"ˆثج!‰qˆح ˆخہ\"ˆدہ!ˆ\nƒڈ ذر!ƒ† ہˆ`زyˆسشء#ƒ† ص”ص•{ض”ض•{×\fطہOظکƒf ع\fزطO!‚k ع\f!غPPƒ} \fBC¤ˆ‚? \fBC‚? صyزU‰„1 ف!-‡" [nil t more template prefix limit index-buffer file-readable-p fname error "can't access EPM index file %s" get-buffer-create " *os2help-parse-file*" erase-buffer insert-file-contents set-buffer-modified-p looking-at "^ *(" 0 re-search-forward " *(\\([^,)]+\\),[ 	]*\\([^)]+\\))" 1 2 "^" -1 "*" regexp-quote "$" os2help-alist kill-buffer] 6 "\
Parse EPM index file FNAME and add patterns to os2help-alist."])
(defalias 'os2help-get-word #[nil "`ہأؤ!ƒ إ•‚ \nbˆابہة#ƒ& إ•‚( e\nbˆ	W…6 	{*‡" [nil start pos looking-at "[A-Za-z_0-9]+" 0 end re-search-backward "[^A-Za-z_0-9]" t] 4 "\
Get text for OS/2 online help."])