]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix a bug introduced in the previous commit
authorJoão Távora <joaotavora@gmail.com>
Sat, 19 May 2018 23:44:21 +0000 (00:44 +0100)
committerJoão Távora <joaotavora@gmail.com>
Sat, 19 May 2018 23:44:21 +0000 (00:44 +0100)
* eglot.el (eglot--format-markup): Ignore errors when calling
possibly unknown functions.
(eglot-completion-at-point): Use eglot--format-markup
(eglot--hover-info): Yak shaving

lisp/progmodes/eglot.el

index 72e5d31473aebc95c1215c8a200ada4aa6cdff5e..9d7253af26d943d2eca78a53e2f0825784d66955 100644 (file)
@@ -779,7 +779,8 @@ If optional MARKER, return a marker instead"
                  (list (plist-get markup :value)
                        (intern (concat (plist-get markup :language) "-mode" ))))))
     (with-temp-buffer
-      (funcall mode) (insert string) (font-lock-ensure) (buffer-string))))
+      (ignore-errors (funcall mode))
+      (insert string) (font-lock-ensure) (buffer-string))))
 
 (defun eglot--server-capable (&rest feats)
 "Determine if current server is capable of FEATS."
@@ -1324,10 +1325,7 @@ DUMMY is ignored"
                                     :documentation)))))
            (when documentation
              (with-current-buffer (get-buffer-create " *eglot doc*")
-               (erase-buffer)
-               (ignore-errors (funcall (intern "markdown-mode")))
-               (font-lock-ensure)
-               (insert documentation)
+               (insert (eglot--format-markup documentation))
                (current-buffer)))))
        :exit-function (lambda (_string _status)
                         (eglot--signal-textDocument/didChange)
@@ -1339,10 +1337,8 @@ DUMMY is ignored"
   (concat (and range (pcase-let ((`(,beg ,end) (eglot--range-region range)))
                        (concat (buffer-substring beg end)  ": ")))
           (mapconcat #'eglot--format-markup
-                     (append (cond ((vectorp contents)
-                                    contents)
-                                   (contents
-                                    (list contents)))) "\n")))
+                     (append (cond ((vectorp contents) contents)
+                                   (contents (list contents)))) "\n")))
 
 (defun eglot--sig-info (sigs active-sig active-param)
   (cl-loop