[nongnu] elpa/with-editor ecec77daa9 1/2: with-editor-mode: Prevent dangerous use as a command

[ELPA Syncer]

branch: elpa/with-editor
commit ecec77daa9716ebd0f28bb94bdf21310e60d93fa
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    with-editor-mode: Prevent dangerous use as a command
    
    We already prevent disabling the mode interactively, but now we do
    so by not even defining it as a command, if the used Emacs version
    supports it.
    
    More importantly, also prevent the mode from being enabled.  Enabling
    the mode manually is dangerous because, as always, that instructs the
    user on how to cancel the buffer, and if they do that, then that also
    deletes the visited file.
    
    Closes #131.
---
 lisp/with-editor.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/lisp/with-editor.el b/lisp/with-editor.el
index f96571bc10..2608a75979 100644
--- a/lisp/with-editor.el
+++ b/lisp/with-editor.el
@@ -413,11 +413,15 @@ And some tools that do not handle $EDITOR properly also 
break."
 (define-minor-mode with-editor-mode
   "Edit a file as the $EDITOR of an external process."
   :lighter with-editor-mode-lighter
-  ;; Protect the user from killing the buffer without using
-  ;; either `with-editor-finish' or `with-editor-cancel',
-  ;; and from removing the key bindings for these commands.
-  (unless with-editor-mode
-    (user-error "With-Editor mode cannot be turned off"))
+  ;; Protect the user from enabling or disabling the mode interactively.
+  ;; Manually enabling the mode is dangerous because canceling the buffer
+  ;; deletes the visited file.  The mode must not be disabled manually,
+  ;; either `with-editor-finish' or `with-editor-cancel' must be used.
+  :interactive nil                    ; >= 28.1
+  (when (called-interactively-p 'any) ; <  28.1
+    (setq with-editor-mode (not with-editor-mode))
+    (user-error "With-Editor mode is not intended for interactive use"))
+  ;; The buffer must also not be killed using regular kill commands.
   (add-hook 'kill-buffer-query-functions
             #'with-editor-kill-buffer-noop nil t)
   ;; `server-execute' displays a message which is not