[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/realgud bfcb44a 1/4: Remove redundant code from a `defi
From: |
Stefan Monnier |
Subject: |
[elpa] externals/realgud bfcb44a 1/4: Remove redundant code from a `define-minor-mode` |
Date: |
Wed, 12 May 2021 16:30:28 -0400 (EDT) |
branch: externals/realgud
commit bfcb44aa606b9d382d43b635ff9839cc16e62471
Author: rocky <rocky@gnu.org>
Commit: rocky <rocky@gnu.org>
Remove redundant code from a `define-minor-mode`
Fixes realgud tarball build errors
---
realgud/debugger/remake/track-mode.el | 8 ++------
test/test-send.el | 4 ++--
test/test-srcbuf.el | 4 ++--
test/test-track-mode.el | 4 ++--
4 files changed, 8 insertions(+), 12 deletions(-)
diff --git a/realgud/debugger/remake/track-mode.el
b/realgud/debugger/remake/track-mode.el
index 2bc649f..15cfd91 100644
--- 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
index 5337a41..d679816 100644
--- 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
index a910c42..ea24c24 100644
--- 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
index 7128e6d..3d8c78a 100644
--- 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