Don't call 'kill-this-buffer' outside of menus

* lisp/simple.el (kill-current-buffer): New function.
(completion-list-mode-map): Use it instead of kill-this-buffer.
* lisp/type-break.el (type-break-mode):
* lisp/term/ns-win.el (global-map):
* lisp/progmodes/gdb-mi.el (gdb-memory-mode-map)
(gdb-disassembly-mode-map, gdb-frames-mode-map)
(gdb-locals-mode-map, gdb-registers-mode-map):
* lisp/org/org-mhe.el (org-mhe-follow-link):
* lisp/net/secrets.el (secrets-mode-map):
* lisp/net/eudc.el (eudc-mode-map):
* lisp/net/eudc-hotlist.el (eudc-hotlist-mode-map): Use
kill-current-buffer instead of kill-this-buffer.  (Bug#26466)

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/org/org-mhe.el b/lisp/org/org-mhe.el
index 72c2eeec22e..d1067cd57e9 100644
--- a/lisp/org/org-mhe.el
+++ b/lisp/org/org-mhe.el
@@ -212,7 +212,7 @@ folders."
           (mh-search folder (list "--message-id" article))
           (when (and org-mhe-search-all-folders
                      (not (org-mhe-get-message-real-folder)))
-            (kill-this-buffer)
+            (kill-current-buffer)
             (mh-search "+" (list "--message-id" article))))
       (if mh-search-regexp-builder
           (mh-search "+" (funcall mh-search-regexp-builder
@@ -220,7 +220,7 @@ folders."
         (mh-search "+" article)))
     (if (org-mhe-get-message-real-folder)
         (mh-show-msg 1)
-      (kill-this-buffer)
+      (kill-current-buffer)
       (error "Message not found"))))
 
 (provide 'org-mhe)