gud-format-command concats integers

[Hannu Koivisto]

Greetings,

An attempt to call gud-remove in a GUD buffer results to

Debugger entered--Lisp error: (wrong-type-argument sequencep 725)
  concat("clear emacs.c" ":" 725)
  (setq result (concat result (match-string 1 str) subst))
  ...
  gud-format-command("clear %f:%l" 1)
  (let ((msg ...)) (message "Command: %s" msg) (sit-for 0) (gud-basic-call msg))
  gud-call("clear %f:%l" 1)
  gud-remove(1)
  call-interactively(gud-remove)

because gud-format-command does

...
((eq key ?l)
 (setq subst (if insource
                 (save-excursion
                   (beginning-of-line)
                   (save-restriction
                     (widen)
                     (int-to-string (1+ (count-lines 1 (point))))))
               (cdr frame))))
...

and (cdr frame) evaluates to an integer.

Emacs 21.1.

-- 
Hannu