emacs-elpa-diffs
[Top][All Lists]
Advanced

[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
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]