branch: elpa/subed
commit 19efbb8ed719749def71b3348063fbbd75ca4576
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Rename subed--mode-enabled to subed-mode--enabled-p
---
subed/subed-config.el | 6 +++---
subed/subed-mpv.el | 2 +-
subed/subed.el | 16 ++++++++--------
3 files changed, 12 insertions(+), 12 deletions(-)
diff --git a/subed/subed-config.el b/subed/subed-config.el
index 32fc14c..421fdc8 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -81,12 +81,12 @@
:group 'hypermedia
:prefix "subed-")
-(defvar-local subed--mode-enabled nil
+(defvar-local subed-mode--enabled-p nil
"Whether `subed-mode' is enabled.
This is set by `subed-mode-enable' and `subed-mode-disable'.")
-(defvar-local subed--debug-enabled nil
- "Whether `subed-debug' prints to `subed-debugging-buffer'.")
+(defvar-local subed-debugging-enabled-p nil
+ "Whether debugging messages are displayed.")
(defcustom subed-debug-buffer "*subed-debug*"
"Name of the buffer that contains debugging messages."
diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 23996b3..587f107 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -101,7 +101,7 @@ See also `subed-mpv-socket-base'."
(defun subed-mpv--client-buffer ()
"Unique name of buffer that stores RPC responses."
- (if subed--debug-enabled
+ (if subed-debugging-enabled-p
(format "*subed-mpv-buffer:%s-%s*"
(file-name-base (or (buffer-file-name) "unnamed"))
(buffer-hash))
diff --git a/subed/subed.el b/subed/subed.el
index 9585a4b..53a5683 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -73,8 +73,8 @@
(defun subed-enable-debugging ()
"Hide debugging messages and set `debug-on-error' to `nil'."
(interactive)
- (unless subed--debug-enabled
- (setq subed--debug-enabled t
+ (unless subed-debugging-enabled-p
+ (setq subed-debugging-enabled-p t
debug-on-error t)
(let ((debug-buffer (get-buffer-create subed-debug-buffer))
(debug-window (or (get-buffer-window subed-debug-buffer)
@@ -89,8 +89,8 @@
"Display debugging messages in separate window and set
`debug-on-error' to `t'."
(interactive)
- (when subed--debug-enabled
- (setq subed--debug-enabled nil
+ (when subed-debugging-enabled-p
+ (setq subed-debugging-enabled-p nil
debug-on-error nil)
(let ((debug-window (get-buffer-window subed-debug-buffer)))
(when debug-window
@@ -101,7 +101,7 @@
"Display or hide debugging messages in separate window and set
`debug-on-error' to `t' or `nil'."
(interactive)
- (if subed--debug-enabled
+ (if subed-debugging-enabled-p
(subed-disable-debugging)
(subed-enable-debugging)))
@@ -613,7 +613,7 @@ existing file."
(subed-enable-replay-adjusted-subtitle :quiet)
(setq major-mode 'subed-mode
mode-name "subed")
- (setq subed--mode-enabled t)
+ (setq subed-mode--enabled-p t)
(run-mode-hooks 'subed-mode-hook))
(defun subed-mode-disable ()
@@ -630,7 +630,7 @@ existing file."
(remove-hook 'before-save-hook #'subed-sort :local)
(remove-hook 'after-save-hook #'subed-mpv-reload-subtitles :local)
(remove-hook 'kill-buffer-hook #'subed-mpv-kill :local)
- (setq subed--mode-enabled nil))
+ (setq subed-mode--enabled-p nil))
;;;###autoload
(defun subed-mode ()
@@ -643,7 +643,7 @@ Key bindings:
\\{subed-mode-map}"
(interactive)
;; Use 'enabled property of this function to store enabled/disabled status
- (if subed--mode-enabled
+ (if subed-mode--enabled-p
(subed-mode-disable)
(subed-mode-enable)))
