]> git.eshelyaron.com Git - emacs.git/commitdiff
Minor cleanup to new textdocument/formatting feature
authorJoão Távora <joaotavora@gmail.com>
Fri, 15 Jun 2018 22:56:29 +0000 (23:56 +0100)
committerJoão Távora <joaotavora@gmail.com>
Fri, 15 Jun 2018 22:56:29 +0000 (23:56 +0100)
* README.md (Language feature): Tick textDocument/formatting

* eglot.el (eglot-client-capabilities): Add formatting capability.
Also move codeAction capability to the correct section.

(eglot-format-buffer): Remove unused lexical variable before-point.

lisp/progmodes/eglot.el

index 98802dea60b380d6f62e628b6631ae9a21784862..ac17fb895f819c056a00435c9826c8b1eb3ae805 100644 (file)
@@ -163,7 +163,6 @@ deferred to the future.")
             :workspace (list
                         :applyEdit t
                         :executeCommand `(:dynamicRegistration :json-false)
-                        :codeAction `(:dynamicRegistration :json-false)
                         :workspaceEdit `(:documentChanges :json-false)
                         :didChangeWatchesFiles `(:dynamicRegistration t)
                         :symbol `(:dynamicRegistration :json-false))
@@ -179,6 +178,8 @@ deferred to the future.")
              :definition         `(:dynamicRegistration :json-false)
              :documentSymbol     `(:dynamicRegistration :json-false)
              :documentHighlight  `(:dynamicRegistration :json-false)
+             :codeAction         `(:dynamicRegistration :json-false)
+             :formatting         `(:dynamicRegistration :json-false)
              :rename             `(:dynamicRegistration :json-false)
              :publishDiagnostics `(:relatedInformation :json-false))
             :experimental (list))))
@@ -1397,8 +1398,6 @@ DUMMY is ignored."
                            :tabSize tab-width
                            :insertSpaces (not indent-tabs-mode)))
            :textDocument/formatting))
-         (before-point
-          (buffer-substring (max (- (point) 60) (point-min)) (point)))
          (after-point
           (buffer-substring (point) (min (+ (point) 60) (point-max))))
          (regexp (and (not (bobp))