diff options
author | Jim Blandy <[email protected]> | 1992-08-04 04:15:43 +0000 |
---|---|---|
committer | Jim Blandy <[email protected]> | 1992-08-04 04:15:43 +0000 |
commit | e8a57935cbb4ccde7f621eeeca22141e5a5327b4 (patch) | |
tree | cb90c678fa9e79cf41c1b6a22d62b620aaf0e07f /lisp/gud.el | |
parent | 0b030df78b499fde5f8dd3f20dd24a2e002fe4ee (diff) |
entered into RCS
Diffstat (limited to 'lisp/gud.el')
-rw-r--r-- | lisp/gud.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index aadb3c10cc..ec07ce0e28 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -43,7 +43,7 @@ ;;; Code: (require 'comint) -(require 'tags) +(require 'etags) ;; ====================================================================== ;; the overloading mechanism @@ -196,9 +196,9 @@ and source-file directory for your debugger." "Run sdb on program FILE in buffer *gud-FILE*. The directory containing FILE becomes the initial working directory and source-file directory for your debugger." + (interactive "fRun sdb on file: ") (if (not (and (boundp 'tags-file-name) (file-exists-p tags-file-name))) (error "The sdb support requires a valid tags table to work.")) - (interactive "fRun sdb on file: ") (gud-overload-functions '((gud-debugger-startup . gud-sdb-debugger-startup) (gud-marker-filter . gud-sdb-marker-filter) (gud-visit-file . gud-sdb-visit-file) @@ -525,20 +525,20 @@ Obeying it means displaying in another window the specified file and line." (defun gud-read-address() "Return a string containing the core-address found in the buffer at point." (save-excursion - (let ((pt (dot)) found begin) - (setq found (if (search-backward "0x" (- pt 7) t)(dot))) + (let ((pt (point)) found begin) + (setq found (if (search-backward "0x" (- pt 7) t)(point))) (cond (found (forward-char 2) (setq result (buffer-substring found (progn (re-search-forward "[^0-9a-f]") (forward-char -1) - (dot))))) + (point))))) (t (setq begin (progn (re-search-backward "[^0-9]") (forward-char 1) - (dot))) + (point))) (forward-char 1) (re-search-forward "[^0-9]") (forward-char -1) - (buffer-substring begin (dot))))))) + (buffer-substring begin (point))))))) (defun send-gud-command (arg) @@ -559,7 +559,7 @@ member of gud-commands." (if (stringp comm) (format comm addr) (funcall comm addr)))) (t (setq comm addr))) (switch-to-buffer current-gud-buffer) - (goto-char (dot-max)) + (goto-char (point-max)) (insert-string comm))) ;;; gud.el ends here |