* lisp/emacs-lisp/edebug.el (edebug-instrument-function): Check a marker is

still valid before using it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 28f0b8d0befa8b2f7214dc3a5f2519f543af1d35..dd33dda4382e6b5dfdf7e00e2f4863adb796b2b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-02-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * emacs-lisp/edebug.el (edebug-instrument-function): Check a marker is
+       still valid before using it.
+
        * progmodes/grep.el (grep-mode-font-lock-keywords): Adjust to
        `message' -> `compilation-message' rename (bug#8004).
 

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index f281521841ca4dd719b6327335ec7eb4cb6ce165..70a7983dbea468d26e566f5cbb60df7ef82acf01 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -3394,7 +3394,7 @@ go to the end of the last sexp, or if that is the same point, then step."
   ;; Return the function symbol, or nil if not instrumented.
   (let ((func-marker (get func 'edebug)))
     (cond
-     ((markerp func-marker)
+     ((and (markerp func-marker) (marker-buffer func-marker))
       ;; It is uninstrumented, so instrument it.
       (with-current-buffer (marker-buffer func-marker)
        (goto-char func-marker)