Path: utzoo!utgpu!watmath!uunet!cs.utexas.edu!sun-barr!ames!uhccux!lupton
From: lupton@uhccux.uhcc.hawaii.edu (Robert Lupton)
Newsgroups: gnu.emacs
Subject: Patch to dbx.el
Keywords: dbx gnuemacs
Message-ID: <4584@uhccux.uhcc.hawaii.edu>
Date: 17 Aug 89 23:19:36 GMT
Organization: University of Hawaii
Lines: 58

Here's an official (i.e. author's) patch to dbx.el, relative to the
one I posted amonth or so ago. When using the \C-U\C-Cw (dbx-where
with prefix argument) to display a given line produced by the "where"
command I forgot to issue the corresponding "func" command. 

Here's the patch:

		Robert

*** Dbx.el	Tue Jul 25 10:37:22 1989
--- dbx.el	Tue Aug  8 15:01:07 1989
***************
*** 276,283
    (interactive "p")
    (if (= arg 1)				; just run where
        (dbx-command "where" 1 t)
!     (let ( (beg (save-excursion (beginning-of-line) (point))) )
!       (dbx-show-where (buffer-substring beg (point-max))))))
  
  (defun dbx-show-where (string)
    "Display dbx'ed program in other window and point out what you are

--- 276,291 -----
    (interactive "p")
    (if (= arg 1)				; just run where
        (dbx-command "where" 1 t)
!     (let ( (beg (save-excursion (beginning-of-line) (point)))
! 	   (func)
! 	   (string) )
!       (setq string (buffer-substring beg (point-max)))
!       (if (string-match "[^(]*" string)
! 	  (setq func (substring string (match-beginning 0) (match-end 0))))
!       (if func
! 	  (save-excursion
! 	    (dbx-command (concat "func " func) 1 t)))
!     (dbx-show-where string))))
  
  (defun dbx-show-where (string)
    "Display dbx'ed program in other window and point out what you are
***************
*** 323,329
  		  (or overlay-arrow-position 
  		      (setq overlay-arrow-position (make-marker)))
  		  (set-marker overlay-arrow-position (point) (current-buffer))
! 		  (if (not looking-at-file) (other-window 1)))))))))
  
  (defun dbx-stop-at ()
    "Set break point at current line."

--- 331,338 -----
  		  (or overlay-arrow-position 
  		      (setq overlay-arrow-position (make-marker)))
  		  (set-marker overlay-arrow-position (point) (current-buffer))
! 		  (if (not looking-at-file) (other-window 1)))
! 		))))))
  
  (defun dbx-stop-at ()
    "Set break point at current line."