[nongnu] elpa/subed fbadab7 198/389: Add function subed--buffer-file-name

[ELPA Syncer]

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

    Add function subed--buffer-file-name
---
 subed/subed-config.el | 4 ++++
 subed/subed-mpv.el    | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/subed/subed-config.el b/subed/subed-config.el
index 1d9aeef..8ae7294 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -215,6 +215,10 @@ hardcoded."
   :type '(repeat string)
   :group 'subed)
 
+(defun subed--buffer-file-name ()
+  "Return base name of buffer file name or a default name."
+  (file-name-nondirectory (or (buffer-file-name) "unnamed")))
+
 
 ;; Hooks
 
diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 0e0b064..df271fe 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -72,7 +72,7 @@ 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-base (or (buffer-file-name) "unnamed"))
+                  (file-name-sans-extension (subed--buffer-file-name))
                   (buffer-hash))))
 
 (defun subed-mpv--server-start (&rest args)