[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.96 emacs/lisp/emacs-lisp/debug.el:1.97
*** emacs/lisp/emacs-lisp/debug.el:1.96 Sat Sep 24 13:43:59 2005
--- emacs/lisp/emacs-lisp/debug.el      Mon Oct 24 03:52:35 2005
***************
*** 353,361 ****
                  (forward-line -1)
                  (setq new-start (point)))
                (if (not (zerop
!                         (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
--- 353,362 ----
                  (forward-line -1)
                  (setq new-start (point)))
                (if (not (zerop
!                           (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,664 ****
--- 660,668 ----
  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,678 ****
                                (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))))))
  
  ;; When you change this, you may also need to change the number of
  ;; frames that the debugger skips.
--- 675,681 ----
                                (progn (skip-syntax-forward "w_")
                                       (point)))))))
        (when (or (boundp sym) (fboundp sym) (facep sym))
!         (help-xref-interned sym)))))
  
  ;; When you change this, you may also need to change the number of
  ;; frames that the debugger skips.