[Emacs-diffs] master b3300c3: Quieten gud.el and gdb-mi.el compilation

[Glenn Morris]

branch: master
commit b3300c3ec80a40a6fe34a8721b79f273d519f00e
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Quieten gud.el and gdb-mi.el compilation
    
    * lisp/progmodes/gud.el (gud-gdb):
    * lisp/progmodes/gdb-mi.el (gdb):
    Suppress "unused lexical argument" warning.
---
 lisp/progmodes/gdb-mi.el | 2 +-
 lisp/progmodes/gud.el    | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index c664799..88e34d8 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -792,7 +792,7 @@ detailed description of this mode.
   (gud-def gud-tbreak "tbreak %f:%l" "\C-t"
           "Set temporary breakpoint at current line.")
   (gud-def gud-jump
-          (progn (gud-call "tbreak %f:%l") (gud-call "jump %f:%l"))
+          (progn (gud-call "tbreak %f:%l" arg) (gud-call "jump %f:%l"))
           "\C-j" "Set execution address to current line.")
 
   (gud-def gud-up     "up %p"     "<" "Up N stack frames (numeric arg).")
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 72f5769..6aa9a7e 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -378,6 +378,7 @@ we're in the GUD buffer)."
        (if (not gud-running)
         ,(if (stringp cmd)
              `(gud-call ,cmd arg)
+           ;; Unused lexical warning if cmd does not use "arg".
            cmd))))
      ,(if key `(local-set-key ,(concat "\C-c" key) ',func))
      ,(if key `(global-set-key (vconcat gud-key-prefix ,key) ',func))))
@@ -771,7 +772,7 @@ the buffer in which this command was invoked."
   (gud-def gud-cont   "cont"     "\C-r" "Continue with display.")
   (gud-def gud-finish "finish"   "\C-f" "Finish executing current function.")
   (gud-def gud-jump
-          (progn (gud-call "tbreak %f:%l") (gud-call "jump %f:%l"))
+          (progn (gud-call "tbreak %f:%l" arg) (gud-call "jump %f:%l"))
           "\C-j" "Set execution address to current line.")
 
   (gud-def gud-up     "up %p"     "<" "Up N stack frames (numeric arg).")