X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/97d44922da3c22b3973f95892bfa2ee4afc0ceac..652b638b0f80fda2abc316f3d1b0f005c7d28e1a:/lisp/emacs-lisp/debug.el diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index ce5c7863c3..22a3f3935f 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -1,6 +1,6 @@ ;;; debug.el --- debuggers and related commands for Emacs -*- lexical-binding: t -*- -;; Copyright (C) 1985-1986, 1994, 2001-2015 Free Software Foundation, +;; Copyright (C) 1985-1986, 1994, 2001-2016 Free Software Foundation, ;; Inc. ;; Maintainer: emacs-devel@gnu.org @@ -54,7 +54,7 @@ the middle is discarded, and just the beginning and end are displayed." The value affects the behavior of operations on any window previously showing the debugger buffer. -`nil' means that if its window is not deleted when exiting the +nil means that if its window is not deleted when exiting the debugger, invoking `switch-to-prev-buffer' will usually show the debugger buffer again. @@ -731,14 +731,11 @@ Complete list of commands: (buffer-substring (line-beginning-position 0) (line-end-position 0))))) -(declare-function help-xref-interned "help-mode" (symbol)) - (defun debug-help-follow (&optional pos) "Follow cross-reference at POS, defaulting to point. 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. @@ -754,7 +751,7 @@ For the cross-reference format, see `help-make-xrefs'." (progn (skip-syntax-forward "w_") (point))))))) (when (or (boundp sym) (fboundp sym) (facep sym)) - (help-xref-interned sym))))) + (describe-symbol sym))))) ;; When you change this, you may also need to change the number of ;; frames that the debugger skips.