Mercurial > emacs
changeset 60541:fbf903562871
(gdb-var-create-handler, gdb-get-location):
Use message-box.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Wed, 09 Mar 2005 23:20:07 +0000 |
| parents | ac6071543466 |
| children | 70d9e88990d5 |
| files | lisp/progmodes/gdb-ui.el |
| diffstat | 1 files changed, 3 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el Wed Mar 09 23:19:31 2005 +0000 +++ b/lisp/progmodes/gdb-ui.el Wed Mar 09 23:20:07 2005 +0000 @@ -351,7 +351,7 @@ ,(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-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,13 +2119,8 @@ (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.")) + (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))