Remove redundant code from a define-minor-mode

Fixes realgud tarball build errors
realgud · Apr 19, 2021 · bfcb44a · bfcb44a
1 parent 3f0a69e
commit bfcb44a
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 12 deletions.
diff --git a/realgud/debugger/remake/track-mode.el b/realgud/debugger/remake/track-mode.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2012, 2014-2016 Free Software Foundation, Inc
+;; Copyright (C) 2014-2021  Free Software Foundation, Inc
 
 ;; Author: Rocky Bernstein <rocky@gnu.org>
 
@@ -44,15 +44,11 @@
 
 If called interactively with no prefix argument, the mode is toggled. A prefix argument, captured as ARG, enables the mode if the argument is positive, and disables it otherwise.
 
-\\{remake-track-mode-map}
-"
-  "Minor mode for tracking ruby debugging inside a process shell."
-  :init-value nil
+\\{remake-track-mode-map}"
   ;; :lighter " remake"   ;; mode-line indicator from realgud-track is sufficient.
   ;; The minor mode bindings.
   :global nil
   :group 'realgud:remake
-  :keymap remake-track-mode-map
 
   (realgud:track-set-debugger "remake")
   (if remake-track-mode

diff --git a/test/test-send.el b/test/test-send.el
@@ -21,7 +21,7 @@
   (defvar file-name)
 )
 
-(defun setup ()
+(defun realgud--setup ()
   (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
   (realgud-cmdbuf-init temp-cmdbuf "trepan" (gethash "trepan" realgud-pat-hash))
   (realgud-srcbuf-init (current-buffer) temp-cmdbuf)
@@ -47,7 +47,7 @@
 (assert-equal "\"\\\"fake\\\" news\"!"
 	      (realgud-expand-format "%q!" "\"fake\" news"))
 
-(setup)
+(realgud--setup)
 ;; Current buffer is now set up as a source buffer
 (setq file-name (buffer-file-name))
 (note "File formatting")

diff --git a/test/test-srcbuf.el b/test/test-srcbuf.el
@@ -32,7 +32,7 @@
   (kill-buffer temp-srcbuf)
 )
 
-(defun setup ()
+(defun realgud--setup ()
   (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
   (realgud-cmdbuf-init temp-cmdbuf "trepan" (gethash "trepan" realgud-pat-hash))
   (setq temp-srcbuf (find-file-noselect "./gcd.rb"))
@@ -44,7 +44,7 @@
 	    "realgud-srcbuf? before init - but nil")
 
 (note "realgud-srcbuf-init")
-(setup)
+(realgud--setup)
 (realgud-srcbuf-init temp-srcbuf temp-cmdbuf)
 
 (assert-t (realgud-srcbuf? temp-srcbuf)

diff --git a/test/test-track-mode.el b/test/test-track-mode.el
@@ -21,7 +21,7 @@
 (declare-function realgud-track-mode-vars 'realgud-track-mode)
 (declare-function realgud-backtrace-mode 'realgud-backtrace-mode)
 
-(defun setup ()
+(defun realgud--setup ()
   (setq temp-cmdbuf (generate-new-buffer "*cmdbuf-test*"))
   ;; (start-process "test-track-mode" temp-cmdbuf nil)
   (start-process "test-track-mode" temp-cmdbuf "/bin/sh")
@@ -37,7 +37,7 @@
   (kill-buffer temp-cmdbuf)
 )
 
-(setup)
+(realgud--setup)
 
 ;; Current buffer is now set up as a source buffer