Mercurial > emacs
changeset 66368:db684dc70440
(debugger-make-xrefs): Don't assume case-fold-search is nil.
(debug-help-follow): Use help-xref-interned directly.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 24 Oct 2005 03:52:35 +0000 |
| parents | a80af18dfc7e |
| children | c8731b29e81e |
| files | lisp/emacs-lisp/debug.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Mon Oct 24 03:51:05 2005 +0000 +++ b/lisp/emacs-lisp/debug.el Mon Oct 24 03:52:35 2005 +0000 @@ -353,9 +353,10 @@ (forward-line -1) (setq new-start (point))) (if (not (zerop - (compare-buffer-substrings - (current-buffer) old-start old-end - buffer new-start new-end))) + (let ((case-fold-search nil)) + (compare-buffer-substrings + (current-buffer) old-start old-end + buffer new-start new-end)))) (setq all-match nil)))) ;; Now new-end is the position of the start of the ;; unchanged part in the current buffer, and old-end is @@ -659,6 +660,9 @@ For the cross-reference format, see `help-make-xrefs'." (interactive "d") (require 'help-mode) + ;; Ideally we'd just do (call-interactively 'help-follow) except that this + ;; assumes we're already in a *Help* buffer and reuses it, so it ends up + ;; incorrectly "reusing" the *Backtrace* buffer to show the help info. (unless pos (setq pos (point))) (unless (push-button pos) @@ -671,8 +675,7 @@ (progn (skip-syntax-forward "w_") (point))))))) (when (or (boundp sym) (fboundp sym) (facep sym)) - (switch-to-buffer-other-window (generate-new-buffer "*Help*")) - (help-do-xref pos #'help-xref-interned (list sym)))))) + (help-xref-interned sym))))) ;; When you change this, you may also need to change the number of ;; frames that the debugger skips.