;ELC ;;; compiled by nk@arafel.viteno.net on Tue May 10 07:48:31 2005 ;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/lookup/lisp/ndnmz.el ;;; emacs version 21.4 (patch 17) "Jumbo Shrimp" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`ndnmz.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "! B%" [ndnmz-version current-load-list require lookup "0.8" custom-declare-group ndnmz nil "Lookup Namazu interface." :group lookup-agents] 6) (custom-declare-variable 'ndnmz-program-name '"namazu" "*Program name of Namazu." :type 'string :group 'ndnmz) (byte-code " B B B\"" [ndnmz-default-adjust-functions ndnmz-default-arrange-functions ndnmz-search-methods current-load-list (exact) (ndnmz-arrange-default) (lookup-adjust-goto-min) defalias ndnmz-agent-directory lookup-agent-location] 3) (defalias 'ndnmz-agent-type #[(agent) "\"Ç" [agent lookup-agent-option type auto] 3]) (defalias 'ndnmz-agent-recursive-p #[(agent) "\"" [agent lookup-agent-option recursive] 3]) (defalias 'ndnmz-setup #[(agent) "#\n!!!\n! ! C \"*" [ndnmz-program-name indexes agent directory call-process nil 0 file-name-as-directory expand-file-name ndnmz-agent-directory ndnmz-agent-recursive-p ndnmz-get-leaf-directories mapcar #[(index) " \" ŕOǘ ! \n#)" [agent directory name index string-match 0 nil "" file-name-nondirectory (lambda (agent code name title) (byte-code " \n &" [title name code agent vector :dictionary nil] 7))] 5]] 4]) (defalias 'ndnmz-exit #[(agent) "\")\"" [agent lookup-foreach #[(dictionary) "\" !)" [dictionary buffer lookup-dictionary-get-property ndnmz-buffer kill-buffer] 4] lookup-agent-get-property dictionaries] 5]) (defalias 'ndnmz-dictionary-search #[(dictionary query) " \" H) CBBʉr\n!qdbBB#c&)#!!!    %+ BV\np!) ." [args directory buffer entries heading dictionary lookup-dictionary-get-property ndnmz-buffer 2 "-s" nil generate-new-buffer " *Lookup temp buffer*" mapconcat eval ">" " " apply call-process t re-search-forward "[0-9]+\\. \\(.*\\)" match-string 1 "^[^ ]*" 0 vector :entry kill-buffer file ndnmz-program-name code lookup-search-pattern] 8]) (defalias 'ndnmz-dictionary-content #[(dictionary entry) "!!Ŏr qH)! +" [entry #1=#:temp-buffer get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "!!" [#1# buffer-name kill-buffer] 2)) insert-file-contents 2 buffer-string] 4]) (defalias 'ndnmz-dictionary-open #[(dictionary entry) " H)!aH)!" [entry dictionary ndnmz-agent-type 1 html browse-url 2] 4]) (defalias 'ndnmz-get-leaf-directories #[(directory) "!!UC#\"\"" [directory file-directory-p file-nlinks 2 apply nconc mapcar ndnmz-get-leaf-directories directory-files t "^[^.]"] 8]) (defalias 'ndnmz-arrange-default #[(entry) " H)H)!a !\na !\na !! !! ! !*" [case-fold-search dictionary type entry ndnmz-agent-type 1 t plain lookup-arrange-default-headings mail ndnmz-arrange-mail html ndnmz-arrange-html looking-at "