# HG changeset patch
# User Phillip Rulon <pjr@gnu.org>
# Date 938181973 0
# Node ID edf16534a337a840b0380ed91d661017bc9256b4
# Parent  c3cb1d8414647c03993cd7da3822951d8c4ae12b
(edebug-outside-current-prefix-arg):
New variable.
(edebug-recursive-edit): Save current-prefix-arg there,
bind it, and set it back at the end.
(edebug-outside-excursion): Restore and update the outside
value of current-prefix-arg.
(edebug-emacs-version-specific): Delete support for Epoch.

diff -r c3cb1d841464 -r edf16534a337 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Fri Sep 24 13:58:46 1999 +0000
+++ b/lisp/emacs-lisp/edebug.el	Fri Sep 24 14:06:13 1999 +0000
@@ -2762,6 +2762,7 @@
 (defvar edebug-outside-map)
 (defvar edebug-outside-standard-output)
 (defvar edebug-outside-standard-input)
+(defvar edebug-outside-current-prefix-arg)
 (defvar edebug-outside-last-command-char)
 (defvar edebug-outside-last-command)
 (defvar edebug-outside-this-command)
@@ -2831,6 +2832,7 @@
 	(edebug-outside-last-input-char last-input-char)
 
 	(edebug-outside-unread-command-char unread-command-char)
+	(edebug-outside-current-prefix-arg current-prefix-arg)
 
 	(edebug-outside-last-input-event last-input-event)
 	(edebug-outside-last-command-event last-command-event)
@@ -2852,6 +2854,7 @@
 
 	      ;; Assume no edebug command sets unread-command-char.
 	      (unread-command-char -1)
+	      (current-prefix-arg nil)
 
 	      ;; More for Emacs 19
 	      (last-input-event nil)
@@ -2921,6 +2924,7 @@
        unread-command-char edebug-outside-unread-command-char
        unread-command-event edebug-outside-unread-command-event
        unread-command-events edebug-outside-unread-command-events
+       current-prefix-arg edebug-outside-current-prefix-arg
        last-input-char edebug-outside-last-input-char
        last-input-event edebug-outside-last-input-event
        last-event-frame edebug-outside-last-event-frame
@@ -3565,6 +3569,7 @@
 	     (unread-command-char edebug-outside-unread-command-char)
 	     (unread-command-event edebug-outside-unread-command-event)
 	     (unread-command-events edebug-outside-unread-command-events)
+	     (current-prefix-arg edebug-outside-current-prefix-arg)
 	     (last-input-char edebug-outside-last-input-char)
 	     (last-input-event edebug-outside-last-input-event)
 	     (last-event-frame edebug-outside-last-event-frame)
@@ -3606,6 +3611,7 @@
 	    edebug-outside-unread-command-char unread-command-char
 	    edebug-outside-unread-command-event unread-command-event
 	    edebug-outside-unread-command-events unread-command-events
+	    edebug-outside-current-prefix-arg current-prefix-arg
 	    edebug-outside-last-input-char last-input-char
 	    edebug-outside-last-input-event last-input-event
 	    edebug-outside-last-event-frame last-event-frame
@@ -4422,9 +4428,6 @@
    ((string-match "Lucid" emacs-version);; Lucid Emacs
     (edebug-lemacs-specific))
 
-   ((and (boundp 'epoch::version) epoch::version)
-    (require 'edebug-epoch))
-
    ((not (string-match "^18" emacs-version))
     (edebug-emacs-19-specific))))