emacs-pretest-bug
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Problems with help in the debugger.


From: Stefan Monnier
Subject: Re: Problems with help in the debugger.
Date: Wed, 23 Feb 2005 09:18:49 -0500
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)

> Even though some-fun is not visibly marked in any way (this seems a
> bug), I can still move the cursor on it and press enter to get a
> description of the function:

Not marking it is just a lack of feature, not a bug.  The fact that you can
click on any piece of text and Emacs will interpret it as
a function/variable name and describe it to you is a feature.

W.r.t the [back] button, does the patch below fix it for you?


        Stefan


*** orig/lisp/emacs-lisp/debug.el
--- mod/lisp/emacs-lisp/debug.el
***************
*** 723,741 ****
  (defun debugger-list-functions ()
    "Display a list of all the functions now set to debug on entry."
    (interactive)
!   (with-output-to-temp-buffer "*Help*"
!     (if (null debug-function-list)
!       (princ "No debug-on-entry functions now\n")
!       (princ "Functions set to debug on entry:\n\n")
!       (let ((list debug-function-list))
!       (while list
!         (prin1 (car list))
!         (terpri)
!         (setq list (cdr list))))
!       (princ "Note: if you have redefined a function, then it may no 
longer\n")
!       (princ "be set to debug on entry, even if it is in the list."))
      (with-current-buffer standard-output
!       (help-mode))))
  
  (provide 'debug)
  
--- 723,743 ----
  (defun debugger-list-functions ()
    "Display a list of all the functions now set to debug on entry."
    (interactive)
!   (require 'help-mode)
!   (help-setup-xref '(debugger-list-functions) (interactive-p))
!   (with-output-to-temp-buffer (help-buffer)
      (with-current-buffer standard-output
!       (if (null debug-function-list)
!         (princ "No debug-on-entry functions now\n")
!       (princ "Functions set to debug on entry:\n\n")
!       (dolist (fun debug-function-list)
!         (make-text-button (point) (progn (prin1 fun) (point))
!                           'type 'help-function
!                           'help-args (list fun))
!         (terpri))
!       (terpri)
!       (princ "Note: if you have redefined a function, then it may no 
longer\n")
!       (princ "be set to debug on entry, even if it is in the list.")))))
  
  (provide 'debug)
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]