diff options
Diffstat (limited to 'lisp/net/xesam.el')
| -rw-r--r-- | lisp/net/xesam.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el index 82922e61084..585e5eed52d 100644 --- a/lisp/net/xesam.el +++ b/lisp/net/xesam.el @@ -129,10 +129,6 @@ (require 'dbus) -;; Pacify byte compiler. -(eval-when-compile - (require 'cl)) - ;; Widgets are used to highlight the search results. (require 'widget) (require 'wid-edit) @@ -409,24 +405,24 @@ If there is no registered search engine at all, the function returns `nil'." ;; That is not the case now, so we set it ourselves. ;; Hopefully, this will change later. (setq hit-fields - (case (intern vendor-id) - (Beagle + (pcase (intern vendor-id) + (`Beagle '("xesam:mimeType" "xesam:url")) - (Strigi + (`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 + (`TrackerXesamSession '("xesam:relevancyRating" "xesam:url")) - (Debbugs + (`Debbugs '("xesam:keyword" "xesam:owner" "xesam:title" "xesam:url" "xesam:sourceModified" "xesam:mimeType" "debbugs:key")) ;; xesam-tools yahoo service. - (t '("xesam:contentModified" "xesam:mimeType" "xesam:summary" + (_ '("xesam:contentModified" "xesam:mimeType" "xesam:summary" "xesam:title" "xesam:url" "yahoo:displayUrl")))) (xesam-set-property engine "hit.fields" hit-fields) |