[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

gud-format-command patch

From: Bob Glickstein
Subject: gud-format-command patch
Date: Thu, 10 Jan 2002 12:17:01 -0800

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2001-11-26 on bobg-linux
configured using `configure  --prefix=/home/bobg --with-x-toolkit=yes'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: C
  locale-coding-system: nil
  default-enable-multibyte-characters: nil

I tried to set a breakpoint in a C++ program using C-x C-a C-b at line
196 of a source file.  I got a "Wrong type argument: sequencep, 196".
Checked gud-format-command; it was failing to apply int-to-string to a
value in one case.  Here's the patch.

- Bob

--- /usr/local/share/emacs/site-lisp/gud.el     Fri Jul 11 19:25:07 1997
+++ /home/bobg/gud.el   Thu Jan 10 12:13:44 2002
@@ -1399,13 +1399,14 @@
                                             (car frame)))))
         ((eq key ?l)
-         (setq subst (if insource
-                         (save-excursion
-                           (beginning-of-line)
-                           (save-restriction (widen) 
-                                             (1+ (count-lines 1 (point)))))
-                       (cdr frame))))
-        ((eq key ?e)
+         (setq subst (int-to-string
+                       (if insource
+                           (save-excursion
+                             (beginning-of-line)
+                             (save-restriction (widen) 
+                                               (1+ (count-lines 1 (point)))))
+                         (cdr frame)))))
+         ((eq key ?e)
          (setq subst (find-c-expr)))
         ((eq key ?a)
          (setq subst (gud-read-address)))

reply via email to

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