Mercurial > emacs
changeset 25812:edf16534a337
(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.
| author | Phillip Rulon <pjr@gnu.org> |
|---|---|
| date | Fri, 24 Sep 1999 14:06:13 +0000 |
| parents | c3cb1d841464 |
| children | bb0def506686 |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))))