branch: elpa/subed
commit 080e5121da4a630804c93267da875adec20b9508
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Make variable subed-subtitle-format private
---
subed/subed-config.el | 3 +++
subed/subed-srt.el | 1 +
2 files changed, 4 insertions(+)
diff --git a/subed/subed-config.el b/subed/subed-config.el
index 7855ad4..9ef10b3 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -33,6 +33,9 @@
:group 'multimedia
:prefix "subed-")
+(defvar-local subed--subtitle-format nil
+ "Short form of the name of the subtitle format in the current buffer (e.g.
\"srt\").")
+
(defvar subed-mode-map
(let ((subed-mode-map (make-keymap)))
(define-key subed-mode-map (kbd "M-n") #'subed-forward-subtitle-text)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 777919d..89081a1 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -548,6 +548,7 @@ scheduled call is canceled and another call is scheduled in
(defun subed-srt--init ()
"This function is called when subed-mode is entered for a SRT file."
+ (setq-local subed--subtitle-format "srt")
(setq-local font-lock-defaults '(subed-srt-font-lock-keywords))
(setq-local paragraph-start "^[[:alnum:]\n]+")
(setq-local paragraph-separate "\n\n"))
