;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:39 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/xesam.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\312\314\315\316&	\210\317\320\321\322\312\307\323\324&\210\317\325\326\327\312\307\323\330&\210\331\332\333\334\312\307%\210\331\335\336\337\312\307%\207" [require dbus widget wid-edit timer url custom-declare-group xesam nil "Xesam compatible interface to search engines." :group extensions comm :version "23.1" custom-declare-variable xesam-query-type 'user-query "Xesam query language type." :type (choice (const :tag "Xesam user query" user-query) (const :tag "Xesam fulltext query" fulltext-query)) xesam-hits-per-page 20 "Number of search hits to be displayed in the result buffer." integer custom-declare-face xesam-mode-line ((t :inherit mode-line-emphasis)) "Face to highlight mode line." xesam-highlight ((t :inherit match)) "Face to highlight query entries.\nIt will be overlaid by `widget-documentation-face', so it shall\nbe different at least in one face property not set in that face."] 10)
#@44 Insert debug information in the help echo.
(defvar xesam-debug nil (#$ . 1562))
#@39 The D-Bus name used to talk to Xesam.
(defconst xesam-service-search "org.freedesktop.xesam.searcher" (#$ . 1648))
#@46 The D-Bus object path used to talk to Xesam.
(defconst xesam-path-search "/org/freedesktop/xesam/searcher/main" (#$ . 1769))
#@35 The D-Bus Xesam search interface.
(defconst xesam-interface-search "org.freedesktop.xesam.Search" (#$ . 1900))
#@130 All fields from the Xesam Core Ontology.
This defconst can be used to check for a new search engine, which
fields are supported.
(defconst xesam-all-fields '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture" "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee" "xesam:audioBitrate" "xesam:audioChannels" "xesam:audioCodec" "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate" "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL" "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth" "xesam:cellPhoneNumber" "xesam:characterCount" "xesam:charset" "xesam:colorCount" "xesam:colorSpace" "xesam:columnCount" "xesam:comment" "xesam:commentCharacterCount" "xesam:conflicts" "xesam:contactMedium" "xesam:contactName" "xesam:contactNick" "xesam:contactPhoto" "xesam:contactURL" "xesam:contains" "xesam:contenKeyword" "xesam:contentComment" "xesam:contentCreated" "xesam:contentModified" "xesam:contentType" "xesam:contributor" "xesam:copyright" "xesam:creator" "xesam:definesClass" "xesam:definesFunction" "xesam:definesGlobalVariable" "xesam:deletionTime" "xesam:depends" "xesam:description" "xesam:device" "xesam:disclaimer" "xesam:documentCategory" "xesam:duration" "xesam:emailAddress" "xesam:eventEnd" "xesam:eventLocation" "xesam:eventStart" "xesam:exposureBias" "xesam:exposureProgram" "xesam:exposureTime" "xesam:faxPhoneNumber" "xesam:fileExtension" "xesam:fileSystemType" "xesam:flashUsed" "xesam:focalLength" "xesam:focusDistance" "xesam:formatSubtype" "xesam:frameCount" "xesam:frameRate" "xesam:freeSpace" "xesam:gender" "xesam:generator" "xesam:generatorOptions" "xesam:group" "xesam:hash" "xesam:hash" "xesam:height" "xesam:homeEmailAddress" "xesam:homePhoneNumber" "xesam:homePostalAddress" "xesam:homepageContactURL" "xesam:horizontalResolution" "xesam:icqContactMedium" "xesam:id" "xesam:imContactMedium" "xesam:interests" "xesam:interlaceMode" "xesam:isEncrypted" "xesam:isImportant" "xesam:isInProgress" "xesam:isPasswordProtected" "xesam:isRead" "xesam:isoEquivalent" "xesam:jabberContactMedium" "xesam:keyword" "xesam:language" "xesam:legal" "xesam:license" "xesam:licenseType" "xesam:lineCount" "xesam:links" "xesam:mailingPostalAddress" "xesam:maintainer" "xesam:md5Hash" "xesam:mediaCodec" "xesam:mediaCodecBitrate" "xesam:mediaCodecType" "xesam:meteringMode" "xesam:mimeType" "xesam:mountPoint" "xesam:msnContactMedium" "xesam:name" "xesam:occupiedSpace" "xesam:orientation" "xesam:originalLocation" "xesam:owner" "xesam:pageCount" "xesam:permissions" "xesam:phoneNumber" "xesam:physicalAddress" "xesam:pixelFormat" "xesam:primaryRecipient" "xesam:programmingLanguage" "xesam:rating" "xesam:receptionTime" "xesam:recipient" "xesam:related" "xesam:remoteUser" "xesam:rowCount" "xesam:sampleBitDepth" "xesam:sampleFormat" "xesam:secondaryRecipient" "xesam:sha1Hash" "xesam:size" "xesam:skypeContactMedium" "xesam:sourceCreated" "xesam:sourceModified" "xesam:storageSize" "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to" "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url" "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword" "xesam:uuid" "xesam:version" "xesam:verticalResolution" "xesam:videoBitrate" "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance" "xesam:width" "xesam:wordCount" "xesam:workEmailAddress" "xesam:workPhoneNumber" "xesam:workPostalAddress" "xesam:yahooContactMedium") (#$ . 2018))
#@27 The Xesam user query XML.
(defconst xesam-user-query "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<request xmlns=\"http://freedesktop.org/standards/xesam/1.0/query\">\n  <userQuery>\n    %s\n  </userQuery>\n</request>" (#$ . 5465))
#@31 The Xesam fulltext query XML.
(defconst xesam-fulltext-query "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<request xmlns=\"http://freedesktop.org/standards/xesam/1.0/query\">\n  <query content=\"xesam:Document\" source=\"xesam:File\">\n    <fullText>\n      <string>%s</string>\n    </fullText>\n  </query>\n</request>" (#$ . 5703))
#@61 The unique names, under which Emacs is registered at D-Bus.
(defvar xesam-dbus-unique-names (byte-code "\300\301\300!B\302\301\302!BD\207" [:system dbus-get-unique-name :session] 4) (#$ . 6042))
#@278 Apply a D-Bus method call.
`dbus-call-method' is preferred, because it performs better.
If the target D-Bus service is owned by Emacs, this
is not applicable, and `dbus-call-method-non-blocking' must be
used instead.  ARGS are identical to the argument list of both
functions.
(defalias 'xesam-dbus-call-method #[(&rest args) "\303\304@	\"A\211A@)\230\203\305\202\306\"\207" [args xesam-dbus-unique-names x apply assoc dbus-call-method-non-blocking dbus-call-method] 5 (#$ . 6244)])
#@38 Return the PROPERTY value of ENGINE.
(defalias 'xesam-get-property #[(engine property) "\304\305@	\n\306\307\310\"&@\207" [engine xesam-path-search xesam-interface-search property xesam-dbus-call-method :session "GetProperty" xesam-get-cached-property "session"] 9 (#$ . 6741)])
#@282 Set the PROPERTY of ENGINE to VALUE.
VALUE can be a string, a non-negative integer, a boolean
value (nil or t), or a list of them.  It returns the new value of
PROPERTY in the search engine.  This new value can be different
from VALUE, depending on what the search engine accepts.
(defalias 'xesam-set-property #[(engine property value) "\305\306@	\n\307\310\311\"\312\fD&@\207" [engine xesam-path-search xesam-interface-search property value xesam-dbus-call-method :session "SetProperty" xesam-get-cached-property "session" :variant] 10 (#$ . 7031)])
#@29 Interactive vendor history.
(defvar xesam-minibuffer-vendor-history nil (#$ . 7593))
#@28 Interactive query history.
(defvar xesam-minibuffer-query-history nil (#$ . 7684))
(defvar xesam-vendor nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local xesam-vendor put permanent-local t] 4)
(defvar xesam-engine nil)
(defvar xesam-search nil)
(defvar xesam-type nil)
(defvar xesam-query nil)
(defvar xesam-xml-string nil)
(defvar xesam-objects nil)
(defvar xesam-current nil)
(defvar xesam-count nil)
(defvar xesam-to nil)
(defvar xesam-notify-function nil)
(defvar xesam-refreshing nil)
#@631 List of available Xesam search engines.
Every entry is an association list, with a car denoting the
unique D-Bus service name of the engine.  The rest of the entry
are cached associations of engine attributes, like the session
identifier, and the display name.  Example:

  ((":1.59"
    ("session" . "0t1214948020ut358230u0p2698r3912347765k3213849828")
    ("vendor.display" . "Tracker Xesam Service"))
   (":1.27"
    ("session" . "strigisession1369133069")
    ("vendor.display" . "Strigi Desktop Search")))

A Xesam-compatible search engine is identified as a queued D-Bus
service of the known service `xesam-service-search'.
(defvar xesam-search-engines nil (#$ . 8212))
#@113 Return the PROPERTY value of ENGINE from the cache.
If PROPERTY is not existing, retrieve it from ENGINE first.
(defalias 'xesam-get-cached-property #[(engine property) "\302	\"\204\303	\304	\"#\210\302	\"A\207" [property engine assoc xesam-set-cached-property xesam-get-property] 6 (#$ . 8895)])
#@51 Set the PROPERTY of ENGINE to VALUE in the cache.
(defalias 'xesam-set-cached-property #[(engine property value) "\303A	\nBC\"\241\207" [engine property value append] 5 (#$ . 9204)])
#@45 Remove service from `xesam-search-engines'.
(defalias 'xesam-delete-search-engine #[(&rest args) "\302\303@	\"	\"\211\207" [args xesam-search-engines delete assoc] 4 (#$ . 9395)])
#@209 Return Xesam search engines, stored in `xesam-search-engines'.
The first search engine is the name owner of `xesam-service-search'.
If there is no registered search engine at all, the function returns `nil'.
(defalias 'xesam-search-engines #[nil "\306\307\310\217\311\211\211\211\311\211\203\235
@\312\f\f\"\204\226\313\314\fC\315#\210\316\f\f\"\317\n\320\321\322\f()\323%#\210\324\n\325\311#\210\326\n\327\"\326\n\330\"\331	!\211*\332=\203X\333\202z*\334=\203c\335\202z*\336=\203n\337\202z*\340=\203y\341\202z\342)\324\n\330#\210\324\n\343\344#\210\345\322+,-\346\347\f&\210
A\211\204.\f\207" [hit-fields vendor-id engine services service --dolist-tail-- err (dbus-list-queued-owners :session xesam-service-search) ((dbus-error (byte-code "\205\n\302	@	A\"\207" [dbus-debug err signal] 3))) nil assoc-string add-to-list xesam-search-engines append assoc xesam-set-cached-property "session" xesam-dbus-call-method :session "NewSession" xesam-set-property "search.live" xesam-get-property "vendor.id" "hit.fields" intern Beagle ("xesam:mimeType" "xesam:url") Strigi ("xesam:author" "xesam:cc" "xesam:charset" "xesam:contentType" "xesam:fileExtension" "xesam:id" "xesam:lineCount" "xesam:links" "xesam:mimeType" "xesam:name" "xesam:size" "xesam:sourceModified" "xesam:subject" "xesam:to" "xesam:url") TrackerXesamSession ("xesam:relevancyRating" "xesam:url") Debbugs ("xesam:keyword" "xesam:owner" "xesam:title" "xesam:url" "xesam:sourceModified" "xesam:mimeType" "debbugs:key") ("xesam:contentModified" "xesam:mimeType" "xesam:summary" "xesam:title" "xesam:url" "yahoo:displayUrl") "hit.fields.extended" ("xesam:snippet") dbus-register-signal "NameOwnerChanged" xesam-delete-search-engine xesam-path-search xesam-interface-search #1=#:val dbus-service-dbus dbus-path-dbus dbus-interface-dbus] 10 (#$ . 9584)])
(defvar xesam-mode-map (byte-code "\303!\304	\n\"\210	)\207" [special-mode-map map widget-keymap copy-keymap set-keymap-parent] 3))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [xesam-mode-hook variable-documentation put purecopy "Hook run when entering Xesam mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp xesam-mode-map definition-name xesam-mode] 5)
(defvar xesam-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [xesam-mode-map variable-documentation put purecopy "Keymap for `xesam-mode'." boundp xesam-mode-syntax-table definition-name xesam-mode] 5)
(defvar xesam-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [xesam-mode-syntax-table variable-documentation put purecopy "Syntax table for `xesam-mode'." xesam-mode-abbrev-table definition-name xesam-mode] 5)
(defvar xesam-mode-abbrev-table (progn (define-abbrev-table 'xesam-mode-abbrev-table nil) xesam-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [xesam-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `xesam-mode'." xesam-mode derived-mode-parent special-mode] 5)
#@327 Major mode for presenting search results of a Xesam search.
In this mode, widgets represent the search results.

\{xesam-mode-map}
Turning on Xesam mode runs the normal hook `xesam-mode-hook'.  It
can be used to set `xesam-notify-function', which must a search
engine specific, widget :notify function to visualize xesam:url.
(defalias 'xesam-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\3244\325\"\204V45=\204V\3264\3255C#\210\327!\210\330\f!\21045\306\331!\210\332\306\333!\210\334\306\335!\210\332\306\336!\210\332\306\337!\210\340\306\341!\210\340!\306\342!\210\340\"\306\343!\210\332#\306\344!\210\345$\306\346!\210\345&\306\347!\2106'\306\331!\210\332\306\350!\210\332(\306\351!\210\352\353D)\306\354!\210\355\356D,\357\360!\204\340\307\21178\361 \210))\362\363!\207" [delay-mode-hooks major-mode mode-name xesam-mode-map xesam-mode-syntax-table parent make-local-variable t special-mode xesam-mode "Xesam" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table xesam-notify-function nil revert-buffer-function ignore xesam-engine xesam-search xesam-type "" xesam-query xesam-xml-string xesam-objects xesam-current 0 xesam-count xesam-to xesam-refreshing mode-line-position (-3 "%p%") (10 (:eval (format " (%d/%d)" xesam-current xesam-count))) header-line-format (20 (:eval (list "Type: " (propertize xesam-type 'face 'xesam-mode-line)))) (10 (:eval (list " Query: " (propertize xesam-query 'face 'xesam-mode-line 'help-echo (when xesam-debug xesam-xml-string))))) called-interactively-p interactive erase-buffer run-mode-hooks xesam-mode-hook xesam-mode-abbrev-table local-abbrev-table xesam-hits-per-page buffer-read-only inhibit-read-only] 6 (#$ . 12841) nil])
(byte-code "\301\302\303\304#\210\305\306!rq\210\307\216\302 \210+\301\207" [#1=#:temp-buffer put xesam-mode disabled t generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2))] 4)
#@101 Non-nil if Xesam minor mode is enabled.
Use the command `xesam-minor-mode' to change this variable.
(defvar xesam-minor-mode nil (#$ . 15071))
(make-variable-buffer-local 'xesam-minor-mode)
#@300 Toggle Xesam minor mode.
With a prefix argument ARG, enable Xesam minor mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

When Xesam minor mode is enabled, all text which matches a
previous Xesam query in this buffer is highlighted.
(defalias 'xesam-minor-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312\303!\203v\212\n\203T\313\314\315\316#\316\"\316#\2042\317 \210\320
\316\"\210eb\210\321
\315\316#\203P\322\323\311\224\311\225\"\324\325#\210\202:*\202u\326ed\"\315$\211%\203t%@$\327$!\210%A\211%\204a*)\330\331\n\203\200\332\202\201\333\"\210\334\335!\203\242\306 \203\225\306 \232\203\242\336\337\n\203\237\340\202\240\341\"\210)\342 \210\n\207" [#1=#:last-message arg xesam-minor-mode xesam-query case-fold-search query-regexp current-message toggle prefix-numeric-value 0 local-variable-p regexp-opt split-string nil t isearch-toggle-case-fold isearch-update-ring re-search-forward overlay-put make-overlay face xesam-highlight overlays-in delete-overlay run-hooks xesam-minor-mode-hook xesam-minor-mode-on-hook xesam-minor-mode-off-hook called-interactively-p any message "Xesam minor mode %sabled" "en" "dis" force-mode-line-update isearch-case-fold-search ov --dolist-tail--] 6 (#$ . 15268) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\207" [xesam-minor-mode-map add-minor-mode xesam-minor-mode " Xesam" boundp nil] 6)
#@201 Return the buffer name where to present search results.
SERVICE is the D-Bus unique service name of the Xesam search engine.
SEARCH is the search identification in that engine.  Both must be strings.
(defalias 'xesam-buffer-name #[(service search) "\302\303	#\207" [service search format "*%s/%s*"] 4 (#$ . 16764)])
#@69 Highlight text enclosed by <b> and </b>.
Return propertized STRING.
(defalias 'xesam-highlight-string #[(string) "\301\302\"\203\303\304\305\306\"\307\305\310\"\311\312#\305\313\"$\202\207" [string string-match "\\(.*\\)\\(<b>\\)\\(.*\\)\\(</b>\\)\\(.*\\)" format "%s%s%s" match-string 1 propertize 3 face xesam-highlight 5] 7 (#$ . 17087)])
#@43 Refreshes one entry in the search buffer.
(defalias 'xesam-refresh-entry #[(engine entry) "S	8\306\307\310!\f\203\311\312\313#\210\314
\315\"\306@\211A\203\234A@@\n\211B@@);\203@\316\n\211B@@)G!?\202c\n\211B@@)\247\203X\316\n\211B@@)!?\202c\n\211B@@)\203\220\317\203\220\f\203\311\312\320\321\322\312\"@\n\211B@@)$#\210\311\323\324@P!\n\211B@@)#\210\nAAA\211A\204\"*\325\322\326\"!\211C\327HD>\204\264\330\331\332\333#\210C\334H)\204\307\311\326\335\322\326\"P#\210\336\337\"\203\341\322\337\";\203\341\311\337\340\322\326\"!#\210\336\341\"\203\364\311\342\322\341\"#\210\202*
\336\343\"\203
\311\342\322\343\"#\210\202*
\336\344\"\203
\311\342\322\344\"#\210\202*
\336\345\"\203*
\311\342\322\345\"#\210\336\342\"\203<
\311\342\346\322\342\"!#\210\336\347\"\203i
\316\340\322\347\"!!\204i
\311\342\320\350\322\342\"\206[
\313\351\352\353\340\322\347\"!!\"##\210\311\354\322\326\"#\210E\203\201
\311\355E#\210\202\341
\336\344\"\203\230
\322\344\"\356\230\203\230
\357\240\210\202\341
\360\361\325\322\326\"!\211C\327HD>\204\261
\330\331\332\333#\210C\334H)\"\203\341
\311\355\362#\210\311\354\325\322\326\"!\211C\327HD>\204\332
\330\331\363\333#\210C\364H)#\210\336\365\"\203\364
\311\366\322\365\"#\210\202\336\367\"\203\311\366\322\367\"#\210\336\366\"\2035\370\371!FrFq\210\372\216\346\322\366\"!c\210\373ed\"\210\311\366\374 #\210+\311\312\322\366\"#\210\311\375\320\376\336\342\"\203F\377\202G\313\336\366\"\203T\201G\202U\313$#\210db\210\201H!\210\201I\306!\210\201J \210\201K *\207" [xesam-current xesam-objects result widget xesam-debug engine nil widget-convert link widget-put :help-echo "" xesam-get-cached-property "hit.fields" zerop t format "%s%s: %s\n" widget-get intern ":" url-generic-parse-url :xesam:url 0 error "%s accessing a non-%s" url-type url 1 "file://" widget-member :xesam:size string-to-number :xesam:title :tag :xesam:subject :xesam:mimeType :xesam:name xesam-highlight-string :xesam:sourceModified "%s\nLast Modified: %s" format-time-string "%d %B %Y, %T" seconds-to-time :value :notify "text/html" url-link string-match "file" #[(widget &rest ignore) "\305\306\307\n!!\211\310H\f>\204\311\312\313\314#\210\315H)!\210\316\300!\210	\317\320!)\207" [xesam-query query widget cl-x cl-struct-url-tags find-file url-generic-parse-url widget-value 0 error "%s accessing a non-%s" url-filename url 6 make-local-variable xesam-minor-mode 1] 6] url-filename 6 :xesam:summary :doc :xesam:snippet generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) fill-region-as-paragraph buffer-string :format "%d. %s%%[%%v%%]\n%s\n" "%{%t%}\n" field --dolist-tail-- x cl-x cl-struct-url-tags xesam-notify-function #1# "%h" widget-default-create set-buffer-modified-p force-mode-line-update redisplay] 14 (#$ . 17445)])
#@28 Retrieve hits from ENGINE.
(defalias 'xesam-get-hits #[(engine search hits) "r\306@	\"q\210\307\n\310\311@\f\312	
&\"\211)\207" [engine search xesam-objects xesam-path-search xesam-interface-search hits xesam-buffer-name append xesam-dbus-call-method :session "GetHits"] 10 (#$ . 20379)])
#@53 Refreshes the buffer, presenting results of SEARCH.
(defalias 'xesam-refresh-search-buffer #[(engine search) "r\306@	\"q\210\n\206\fY?\205\223\307\310\216\311\f^GV\2037\312	\f^GZ^#\210\202\f^W\203KT\313	\"\210\2027\fV\203_db\210\314\315\316\317\320$\210\321 \210\f\\^GV\203\312	\211\f\\^GZ^#\210U\205\222db\210\314\315\316\322\323$\210\321 *)\207" [engine search xesam-refreshing xesam-current xesam-to widget xesam-buffer-name t ((byte-code "\301\211\207" [xesam-refreshing nil] 2)) nil xesam-get-hits xesam-refresh-entry widget-create link :notify #[(widget &rest ignore) "	\\\305\n!\210\306\f\"\207" [xesam-to xesam-hits-per-page widget xesam-engine xesam-search widget-delete xesam-refresh-search-buffer] 3] "NEXT" widget-beginning-of-line ignore "DONE" xesam-count xesam-objects xesam-hits-per-page] 6 (#$ . 20679)])
#@56 Handles the different D-Bus signals of a Xesam search.
(defalias 'xesam-signal-handler #[(&rest args) "\306!\307!@\310	\f\"\311
!\205Fr
q\210\n\312\230\2036A@\\\313\314\315\316\317	\"\f%\202E\n\320\230\205E\321\322\323\324#\325 ),\207" [last-input-event service member args search buffer dbus-event-service-name dbus-event-member-name xesam-buffer-name get-buffer "HitsAdded" run-at-time 0 nil xesam-refresh-search-buffer assoc "SearchDone" propertize " Done" face xesam-mode-line force-mode-line-update xesam-count xesam-search-engines mode-line-process] 7 (#$ . 21562)])
#@34 Send the CloseSearch indication.
(defalias 'xesam-kill-buffer-function #[nil "\302=\205	;\205\303\304\305\217\207" [major-mode xesam-search xesam-mode nil (byte-code "\304\305@	\n\306&\207" [xesam-engine xesam-path-search xesam-interface-search xesam-search xesam-dbus-call-method :session "CloseSearch"] 7) ((error))] 3 (#$ . 22161)])
#@240 Create a new search session.
ENGINE identifies the search engine.  TYPE is the query type, it
can be either `fulltext-query', or `user-query'.  QUERY is a
string in the Xesam query language.  A string, identifying the
search, is returned.
(defalias 'xesam-new-search #[(engine type query) "@\306\307\"\310\311=\203\f\202
\312&!\"'\313\314	()\315\n'&*\316\314	()\317\320*&\210\316\314	()\321\320*&\210r\322\323	*\"!q\210\324p!\210\306\325\"+\326 \210,*-\327!.&/'0\33012\204\202\331\332+!D\202\214\333+\334\335\336\337\340##3\341\342\343\"\210\344 \210)\313\314@()\345*&\210*,\207" [engine service session type xesam-user-query xesam-fulltext-query xesam-get-cached-property "session" format user-query url-insert-entities-in-string xesam-dbus-call-method :session "NewSearch" dbus-register-signal "HitsAdded" xesam-signal-handler "SearchDone" generate-new-buffer xesam-buffer-name switch-to-buffer-other-window "vendor.id" xesam-mode symbol-name nil 12 propertized-buffer-identification propertize help-echo mapconcat #[(x) "\302\303\304	\"#\207" [x engine format "%s: %s" xesam-get-cached-property] 6] ("vendor.id" "vendor.version" "vendor.display" "vendor.xesam" "vendor.ontology.fields" "vendor.ontology.contents" "vendor.ontology.sources" "vendor.extensions" "vendor.ontologies" "vendor.maxhits") "\n" add-hook kill-buffer-hook xesam-kill-buffer-function force-mode-line-update "StartSearch" query xml-string xesam-path-search xesam-interface-search search xesam-vendor xesam-engine xesam-search xesam-type xesam-query xesam-xml-string xesam-objects xesam-debug mode-line-buffer-identification] 8 (#$ . 22512)])
#@443 Perform an interactive search.
ENGINE is the Xesam search engine to be applied, it must be one of the
entries of `xesam-search-engines'.  QUERY is the search string in the
Xesam user query language.  If the search engine does not support
the Xesam user query language, a Xesam fulltext search is applied.

The default search engine is the first entry in `xesam-search-engines'.
Example:

  (xesam-search (car (xesam-search-engines)) "emacs")
(defalias 'xesam-search #[(engine query) "\204\303\304!\207\305	G!\203\303\306!\207\307\n	#\207" [engine query xesam-query-type message "No search engine running" zerop "No query applied" xesam-new-search] 4 (#$ . 24186) (let* ((vendors (mapcar #'(lambda (x) (xesam-get-cached-property x "vendor.display")) (xesam-search-engines))) (vendor (if (> (length vendors) 1) (completing-read "Enter search engine: " vendors nil t (try-completion "" vendors) 'xesam-minibuffer-vendor-history) (car vendors)))) (list (if vendor (progn (let ((--dolist-tail-- (xesam-search-engines)) elt) (while --dolist-tail-- (setq elt (car --dolist-tail--)) (if (string-equal (xesam-get-cached-property elt "vendor.display") vendor) (progn (setq engine elt))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq elt nil) engine))) (if vendor (progn (read-from-minibuffer "Enter search string: " nil nil nil 'xesam-minibuffer-query-history)))))])
(provide 'xesam)