diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-21 23:20:45 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-10-21 23:27:01 +0100 |
| commit | 33263a858cd4aa228f990cfc82e64a9a7a3b3c0a (patch) | |
| tree | 7dbdf36473b73641d4997f55ebfba6a4ab8cf5f5 /cider-doc.el | |
| parent | ad89ee9e35d8eb4326cf2e81a9cb3544a4b56523 (diff) | |
Remove many uses of `newline' for (insert "\n")
Diffstat (limited to 'cider-doc.el')
| -rw-r--r-- | cider-doc.el | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/cider-doc.el b/cider-doc.el index e69f39d7..8669ccd7 100644 --- a/cider-doc.el +++ b/cider-doc.el @@ -376,8 +376,8 @@ Tables are marked to be ignored by line wrap." (cl-flet ((emit (text &optional face) (insert (if face (propertize text 'font-lock-face face) - text)) - (newline))) + text) + "\n"))) (emit (if class java-name clj-name) 'font-lock-function-name-face) (when super (emit (concat " Extends: " (cider-font-lock-as 'java-mode super)))) @@ -386,7 +386,7 @@ Tables are marked to be ignored by line wrap." (dolist (iface (cdr ifaces)) (emit (concat " "(cider-font-lock-as 'java-mode iface))))) (when (or super ifaces) - (newline)) + (insert "\n")) (when (or forms args) (emit (cider-font-lock-as-clojure (or forms args)))) (when (or special macro) @@ -399,26 +399,22 @@ Tables are marked to be ignored by line wrap." (cider-docview-render-java-doc (current-buffer) doc) (emit (concat " " doc))) (when url - (newline) - (insert " Please see ") + (insert "\n Please see ") (insert-text-button url 'url url 'follow-link t 'action (lambda (x) (browse-url (button-get x 'url)))) - (newline)) + (insert "\n")) (when javadoc - (newline) - (newline) - (insert "For additional documentation, see the ") + (insert "\n\nFor additional documentation, see the ") (insert-text-button "Javadoc" 'url javadoc 'follow-link t 'action (lambda (x) (browse-url (button-get x 'url)))) - (insert ".") - (newline)) - (newline) + (insert ".\n")) + (insert "\n") (insert-text-button "[source]" 'follow-link t 'action (lambda (_x) |