From: Glenn Morris Date: Sat, 3 Mar 2018 18:36:48 +0000 (-0800) Subject: Quieten gud.el and gdb-mi.el compilation X-Git-Tag: emacs-27.0.90~5563 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3300c3ec80a40a6fe34a8721b79f273d519f00e;p=emacs.git 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. --- diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index c664799ab08..88e34d8df9f 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 72f57695587..6aa9a7e4d4a 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).")