# HG changeset patch # User Stefan Monnier # Date 1130125955 0 # Node ID db684dc70440dbef17707c0d4994cbdb548e2c5f # Parent a80af18dfc7ea4fc411e160b071475ffca0eb0f4 (debugger-make-xrefs): Don't assume case-fold-search is nil. (debug-help-follow): Use help-xref-interned directly. diff -r a80af18dfc7e -r db684dc70440 lisp/emacs-lisp/debug.el --- 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.