diff options
| author | Phillip Rulon <pjr@gnu.org> | 1999-09-24 14:06:13 +0000 |
|---|---|---|
| committer | Phillip Rulon <pjr@gnu.org> | 1999-09-24 14:06:13 +0000 |
| commit | c820ffeb34f8e143242ba749ac99355312602235 (patch) | |
| tree | 981466bb48fa4ee037ba2021e77490f2ee78762a /lisp/emacs-lisp/edebug.el | |
| parent | 9eb535910f1a840c4b21dcaf5b990b6eb6374501 (diff) | |
| download | emacs-c820ffeb34f8e143242ba749ac99355312602235.tar.gz emacs-c820ffeb34f8e143242ba749ac99355312602235.tar.bz2 emacs-c820ffeb34f8e143242ba749ac99355312602235.zip | |
(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.
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 517862358ce..4ec31b91853 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -2762,6 +2762,7 @@ MSG is printed after `::::} '." (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 @@ MSG is printed after `::::} '." (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 @@ MSG is printed after `::::} '." ;; 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 @@ MSG is printed after `::::} '." 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 @@ Return the result of the last expression." (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 @@ Return the result of the last expression." 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 @@ Print result in minibuffer." ((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)))) |