[elpa] externals/devdocs 77f4ace 7/7: Add a devdocs-search command, as in the old devdocs package

[ELPA Syncer]

branch: externals/devdocs
commit 77f4ace2811849b8a72d2cd89242d9ecd1f4eaaa
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Add a devdocs-search command, as in the old devdocs package
---
 devdocs.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/devdocs.el b/devdocs.el
index 8ffa856..6286985 100644
--- a/devdocs.el
+++ b/devdocs.el
@@ -357,5 +357,14 @@ non-nil), first read a list of available documents and set
       (devdocs-goto-target)
       (recenter 0))))
 
+;;; Compatibility with the old devdocs package
+
+(defun devdocs-search (query)
+  "Search for QUERY in the DevDocs website."
+  (interactive (list (read-from-minibuffer
+                      (format "Search %s: " devdocs-site-url)
+                      nil nil nil nil (thing-at-point 'symbol))))
+  (browse-url (format "%s/#q=%s" devdocs-site-url (url-hexify-string query))))
+
 (provide 'devdocs)
 ;;; devdocs.el ends here