[Emacs-diffs] Changes to emacs/lisp/progmodes/gdb-ui.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.52 emacs/lisp/progmodes/gdb-ui.el:1.53
*** emacs/lisp/progmodes/gdb-ui.el:1.52 Mon Mar  7 01:55:18 2005
--- emacs/lisp/progmodes/gdb-ui.el      Wed Mar  9 23:20:07 2005
***************
*** 351,357 ****
                                  ,(nth 1 var) nil))))
            (setq gdb-var-changed t)))
        (if (re-search-forward "Undefined command" nil t)
!         (message "Watching expressions requires gdb 6.0 onwards")
        (message "No symbol %s in current context." expr)))))
  
  (defun gdb-var-evaluate-expression-handler (varnum changed)
--- 351,357 ----
                                  ,(nth 1 var) nil))))
            (setq gdb-var-changed t)))
        (if (re-search-forward "Undefined command" nil t)
!         (message-box "Watching expressions requires gdb 6.0 onwards")
        (message "No symbol %s in current context." expr)))))
  
  (defun gdb-var-evaluate-expression-handler (varnum changed)
***************
*** 2119,2131 ****
            (push (cons bptno (match-string 0)) gdb-location-list))
        (gdb-resync)
        (push (cons bptno "File not found") gdb-location-list)
!       (if (eq window-system 'x)
!         (x-popup-dialog
!          t '("Cannot find source file for breakpoint location.\n\
! Add directory to search path for source files using the GDB command, dir."
!              ("Ok" . nil)))
!       (message "Cannot find source file for breakpoint location.\n\
! Add directory to search path for source files using the GDB command, dir."))
        (throw 'file-not-found nil))
      (with-current-buffer
        (find-file-noselect (match-string 0))
--- 2119,2126 ----
            (push (cons bptno (match-string 0)) gdb-location-list))
        (gdb-resync)
        (push (cons bptno "File not found") gdb-location-list)
!       (message-box "Cannot find source file for breakpoint location.\n\
! Add directory to search path for source files using the GDB command, dir.")
        (throw 'file-not-found nil))
      (with-current-buffer
        (find-file-noselect (match-string 0))