[nongnu] elpa/subed 3ba295b 336/389: Fix "service name too long"

[ELPA Syncer]

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

    Fix "service name too long"
    
    The name of the mpv socket contains the buffer name.  Looks like sockets 
can't
    have long names.
    
    Here we limit the socket name to 20 characters (hopefully socket names can
    contain multibytes) + the length of `(buffer-hash)`.
---
 subed/subed-mpv.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index b66222f..4bdf3d8 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -78,7 +78,8 @@ See also `subed-mpv-socket-dir'."
        (error "%s" (mapconcat #'identity (cdr err) ": ")))))
   (concat (file-name-as-directory subed-mpv-socket-dir)
           (format "%s:%s"
-                  (file-name-sans-extension (subed--buffer-file-name))
+                  (let ((filename (file-name-sans-extension 
(subed--buffer-file-name))))
+                    (substring (substring filename 0 (min (length filename) 
20))))
                   (buffer-hash))))
 
 (defun subed-mpv--server-start (&rest args)