[Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el

[Dmitry Dzhus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Dmitry Dzhus <sphinx>   09/08/09 00:17:07

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : gdb-mi.el 

Log message:
        (gdb-gud-context-call): Does not need to be a macro.
        (gdb-registers-handler-custom): Do not fail when register names
        are unavailable.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15910&r2=1.15911
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.30&r2=1.31

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15910
retrieving revision 1.15911
diff -u -b -r1.15910 -r1.15911
--- ChangeLog   8 Aug 2009 22:30:26 -0000       1.15910
+++ ChangeLog   9 Aug 2009 00:17:01 -0000       1.15911
@@ -1,3 +1,10 @@
+2009-08-09  Dmitry Dzhus  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-gud-context-call): Does not need to be
+       a macro.
+       (gdb-registers-handler-custom): Do not fail when register names
+       are unavailable.
+
 2009-08-08  Dmitry Dzhus  <address@hidden>
 
        * progmodes/gdb-mi.el (gdb-control-all-threads)

Index: progmodes/gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- progmodes/gdb-mi.el 8 Aug 2009 22:30:31 -0000       1.30
+++ progmodes/gdb-mi.el 9 Aug 2009 00:17:06 -0000       1.31
@@ -566,11 +566,11 @@
     command))
 
 ;; TODO Document this. We use noarg when not in gud-def
-(defmacro gdb-gud-context-call (cmd1 &optional cmd2 noall noarg)
-  `(gud-call
+(defun gdb-gud-context-call (cmd1 &optional cmd2 noall noarg)
+  (gud-call
     (concat
-     (gdb-gud-context-command ,cmd1 ,noall)
-     ,cmd2) ,(when (not noarg) 'arg)))
+    (gdb-gud-context-command cmd1 noall)
+    cmd2) (when (not noarg) 'arg)))
 
 ;;;###autoload
 (defun gdb (command-line)
@@ -3550,6 +3550,7 @@
              (value (gdb-get-field register 'value))
              (register-name (nth (string-to-number register-number) 
                                  gdb-register-names)))
+        (when register-name
         (gdb-table-add-row
          table
          (list
@@ -3559,7 +3560,7 @@
             value))
          `(mouse-face highlight
            help-echo "mouse-2: edit value"
-           gdb-register-name ,register-name))))
+           gdb-register-name ,register-name)))))
     (insert (gdb-table-string table " "))
     (setq mode-name
           (gdb-current-context-mode-name "Registers"))))