From 4a409937eab8b06da3ef3fa6bc224f6a02a9d256 Mon Sep 17 00:00:00 2001 From: xvw Date: Thu, 19 Sep 2024 22:14:05 +0200 Subject: [PATCH] Add function documentation --- emacs/merlin.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/emacs/merlin.el b/emacs/merlin.el index c5c0f0988..1fa0c9c69 100644 --- a/emacs/merlin.el +++ b/emacs/merlin.el @@ -1130,9 +1130,10 @@ An ocaml atom is any string containing [a-z_0-9A-Z`.]." function-type))))) (defun merlin-search-by-type (query) + "Search a value definition by type expression" (interactive "sSearch query: ") (let ((entries (merlin--search-by-type query)) - (previous-buff (current-buffer))) + (previous-buff (current-buffer))) (let ((search-by-type-buffer (merlin--get-search-by-type-result-buff)) (inhibit-read-only t)) (with-current-buffer search-by-type-buffer @@ -1168,6 +1169,7 @@ An ocaml atom is any string containing [a-z_0-9A-Z`.]." (vector (merlin--render-search-result function-name function-type))))) (defun merlin-search-by-polarity (query) + "Search a value definition by polarity" (interactive "sSearch query: ") (let* ((result (merlin--search query)) (entries (cdr (assoc 'entries result))) @@ -1192,6 +1194,7 @@ An ocaml atom is any string containing [a-z_0-9A-Z`.]." (or (string-prefix-p "-" query) (string-prefix-p "+" query))) (defun merlin-search (query) + "Search a value defintion by polarity or by type expression" (interactive "sSearch query: ") (if (merlin--is-polarity-query query) (merlin-search-by-polarity query)