procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quieten gud.el and gdb-mi.el compilation

Browse source 
* lisp/progmodes/gud.el (gud-gdb):
* lisp/progmodes/gdb-mi.el (gdb):
Suppress "unused lexical argument" warning.
This commit is contained in:
Glenn Morris 2018-03-03 10:36:48 -08:00
parent 282a68189a
commit b3300c3ec8
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/gdb-mi.el
View file

@ -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).")

3
lisp/progmodes/gud.el
View file

@ -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).")