emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/subed dde5dfd 287/389: Simplify subed-mpv--client-buffer


From: ELPA Syncer
Subject: [nongnu] elpa/subed dde5dfd 287/389: Simplify subed-mpv--client-buffer
Date: Fri, 3 Dec 2021 11:00:43 -0500 (EST)

branch: elpa/subed
commit dde5dfd3ad38aa1bff33ef3fac2ec8a8dabc1cee
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Simplify subed-mpv--client-buffer
---
 subed/subed-mpv.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 6558f9f..e4da997 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -127,13 +127,12 @@ Pass ARGS as command line arguments.  \"--idle\" and
 
 (defun subed-mpv--client-buffer ()
   "Unique name of buffer that store RPC responses."
-  (if subed-debugging-enabled-p
-      (format "*subed-mpv-buffer:%s-%s*"
-              (file-name-base (or (buffer-file-name) "unnamed"))
-              (buffer-hash))
-      (format " *subed-mpv-buffer:%s-%s*"
-              (file-name-base (or (buffer-file-name) "unnamed"))
-              (buffer-hash))))
+  (let ((buffer-name (format "*subed-mpv-buffer:%s-%s*"
+                             (file-name-base (or (buffer-file-name) "unnamed"))
+                             (buffer-hash))))
+    (if subed-debugging-enabled-p
+        buffer-name
+      (concat " " buffer-name))))
 
 (defun subed-mpv--client-connect (delays)
   "Try to connect to `subed-mpv--socket'.



reply via email to

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