diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-02-25 14:48:04 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 21:38:45 +0100 |
| commit | a11b96fe58a2579e15bfcb642f01e0059da59a87 (patch) | |
| tree | 1aa54d25325a9023b1af7cd09d8ed182f1c5b43a /elisp/geiser-doc.el | |
| parent | 2a7b84b3cd9e58bba064077af78b53abd30766f6 (diff) | |
| download | geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.gz geiser-a11b96fe58a2579e15bfcb642f01e0059da59a87.tar.bz2 | |
Fix indentation
Diffstat (limited to 'elisp/geiser-doc.el')
| -rw-r--r-- | elisp/geiser-doc.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index b098225..d7210f6 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -191,10 +191,10 @@ help (e.g. browse an HTML page) implementing this method.") (defun geiser-doc--insert-xbutton (&optional manual) (let ((label (if manual "[manual]" "[source]")) (help (if manual "Look up in Scheme manual" "Go to definition"))) - (insert-text-button label - :type 'geiser-doc--xbutton - 'help-echo help - 'x-kind (if manual 'manual 'source)))) + (insert-text-button label + :type 'geiser-doc--xbutton + 'help-echo help + 'x-kind (if manual 'manual 'source)))) (defun geiser-doc--insert-xbuttons (impl) (when (geiser-impl--method 'external-help impl) @@ -348,8 +348,7 @@ help (e.g. browse an HTML page) implementing this method.") impl) impl)))) -(defun geiser-doc--render-docstring - (docstring symbol &optional module impl) +(defun geiser-doc--render-docstring (docstring symbol &optional module impl) (erase-buffer) (geiser-doc--insert-title (geiser-autodoc--str* (cdr (assoc "signature" docstring)))) |