From: Stefan Monnier Date: Thu, 10 Feb 2011 19:21:07 +0000 (-0500) Subject: * lisp/emacs-lisp/edebug.el (edebug-instrument-function): Check a marker is X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~940 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49ffc0786e71f1659f87a9ea9cc321d83b1a1d68;p=emacs.git * 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 28f0b8d0bef..dd33dda4382 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-02-10 Stefan Monnier + * 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 f281521841c..70a7983dbea 100644 --- 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)