lupton@uhccux.uhcc.hawaii.edu (Robert Lupton) (08/18/89)
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."