branch: elpa/subed
commit fbadab7f89ef8a1237ff3d5f1ac194a5c017ed64
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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)
