[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/elpa f89f859 114/139: Simplify mode-line updating logic

From: João Távora
Subject: [elpa] externals/elpa f89f859 114/139: Simplify mode-line updating logic
Date: Mon, 14 May 2018 09:53:46 -0400 (EDT)

branch: externals/elpa
commit f89f859eb71597f4ba7327d8758c2e9c7afb67fe
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Simplify mode-line updating logic
    * eglot.el (eglot--define-process-var): Simplify.
    (eglot--short-name, eglot--spinner, eglot--status): Don't
    auto-update mode-line.
    (eglot--process-receive): Update it here.
 eglot.el | 24 +++++++++---------------
 1 file changed, 9 insertions(+), 15 deletions(-)

diff --git a/eglot.el b/eglot.el
index 1ba5324..bf0b9e9 100644
--- a/eglot.el
+++ b/eglot.el
@@ -78,11 +78,9 @@
                     (if (project-current) "" " (Also no current project)"))))
 (defmacro eglot--define-process-var
-    (var-sym initval &optional doc mode-line-update-p)
+    (var-sym initval &optional doc)
   "Define VAR-SYM as a generalized process-local variable.
-INITVAL is the default value.  DOC is the documentation.
-MODE-LINE-UPDATE-P says to also force a mode line update
-after setting it."
+INITVAL is the default value.  DOC is the documentation."
   (declare (indent 2))
      (put ',var-sym 'function-documentation ,doc)
@@ -94,16 +92,11 @@ after setting it."
            (let ((def ,initval))
              (process-put proc ',var-sym def)
-     (gv-define-setter ,var-sym (to-store &optional process)
-       (let* ((prop ',var-sym))
-         ,(let ((form '(let ((proc (or ,process 
-                         (process-put proc ',prop ,to-store))))
-            (if mode-line-update-p
-                `(backquote (prog1 ,form (force-mode-line-update t)))
-              `(backquote ,form)))))))
+     (gv-define-setter ,var-sym (to-store process)
+       `(let ((once ,to-store)) (process-put ,process ',',var-sym once) 
 (eglot--define-process-var eglot--short-name nil
-  "A short name for the process" t)
+  "A short name for the process")
 (eglot--define-process-var eglot--major-mode nil
   "The major-mode this server is managing.")
@@ -128,11 +121,11 @@ after setting it."
 (eglot--define-process-var eglot--spinner `(nil nil t)
   "\"Spinner\" used by some servers.
-A list (ID WHAT DONE-P)." t)
+A list (ID WHAT DONE-P).")
 (eglot--define-process-var eglot--status `(:unknown nil)
   "Status as declared by the server.
-A list (WHAT SERIOUS-P)." t)
+A list (WHAT SERIOUS-P).")
 (eglot--define-process-var eglot--contact nil
   "Method used to contact a server.
@@ -531,7 +524,8 @@ is a symbol saying if this is a client or server 
                    (apply (cl-first continuations) res)
                  (funcall (cl-first continuations) res)))))
-           (eglot--warn "Ooops no continuation for id %s" id)))))
+           (eglot--warn "Ooops no continuation for id %s" id)))
+    (force-mode-line-update t)))
 (defvar eglot--expect-carriage-return nil)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]