Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 101015:0c2777fdd83f
Remove references to last-command-char and
last-input-char, since these have been identical to last-command-event
and last-input-event since at least Emacs 19.
(edebug-outside-last-command-char, edebug-outside-last-input-char):
Remove.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 05:16:23 +0000 |
| parents | a9dc0e7c3f2b |
| children | adbe0e36df45 |
comparison
equal
deleted
inserted
replaced
| 101014:49524a62e7d6 | 101015:0c2777fdd83f |
|---|---|
| 1 ;;; edebug.el --- a source-level debugger for Emacs Lisp | 1 ;;; edebug.el --- a source-level debugger for Emacs Lisp |
| 2 | 2 |
| 3 ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1999, | 3 ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1999, |
| 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. | 4 ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
| 5 ;; Free Software Foundation, Inc. | |
| 5 | 6 |
| 6 ;; Author: Daniel LaLiberte <liberte@holonexus.org> | 7 ;; Author: Daniel LaLiberte <liberte@holonexus.org> |
| 7 ;; Maintainer: FSF | 8 ;; Maintainer: FSF |
| 8 ;; Keywords: lisp, tools, maint | 9 ;; Keywords: lisp, tools, maint |
| 9 | 10 |
| 2811 | 2812 |
| 2812 (defvar edebug-outside-map) | 2813 (defvar edebug-outside-map) |
| 2813 (defvar edebug-outside-standard-output) | 2814 (defvar edebug-outside-standard-output) |
| 2814 (defvar edebug-outside-standard-input) | 2815 (defvar edebug-outside-standard-input) |
| 2815 (defvar edebug-outside-current-prefix-arg) | 2816 (defvar edebug-outside-current-prefix-arg) |
| 2816 (defvar edebug-outside-last-command-char) | |
| 2817 (defvar edebug-outside-last-command) | 2817 (defvar edebug-outside-last-command) |
| 2818 (defvar edebug-outside-this-command) | 2818 (defvar edebug-outside-this-command) |
| 2819 (defvar edebug-outside-last-input-char) | |
| 2820 | 2819 |
| 2821 ;; Note: here we have defvars for variables that are | 2820 ;; Note: here we have defvars for variables that are |
| 2822 ;; built-in in certain versions. | 2821 ;; built-in in certain versions. |
| 2823 ;; Each defvar makes a difference | 2822 ;; Each defvar makes a difference |
| 2824 ;; in versions where the variable is *not* built-in. | 2823 ;; in versions where the variable is *not* built-in. |
| 2867 | 2866 |
| 2868 (edebug-outside-standard-output standard-output) | 2867 (edebug-outside-standard-output standard-output) |
| 2869 (edebug-outside-standard-input standard-input) | 2868 (edebug-outside-standard-input standard-input) |
| 2870 (edebug-outside-defining-kbd-macro defining-kbd-macro) | 2869 (edebug-outside-defining-kbd-macro defining-kbd-macro) |
| 2871 | 2870 |
| 2872 (edebug-outside-last-command-char last-command-char) | |
| 2873 (edebug-outside-last-command last-command) | 2871 (edebug-outside-last-command last-command) |
| 2874 (edebug-outside-this-command this-command) | 2872 (edebug-outside-this-command this-command) |
| 2875 (edebug-outside-last-input-char last-input-char) | |
| 2876 | 2873 |
| 2877 (edebug-outside-unread-command-char unread-command-char) | 2874 (edebug-outside-unread-command-char unread-command-char) |
| 2878 (edebug-outside-current-prefix-arg current-prefix-arg) | 2875 (edebug-outside-current-prefix-arg current-prefix-arg) |
| 2879 | 2876 |
| 2880 (edebug-outside-last-input-event last-input-event) | 2877 (edebug-outside-last-input-event last-input-event) |
| 2886 | 2883 |
| 2887 (unwind-protect | 2884 (unwind-protect |
| 2888 (let ( | 2885 (let ( |
| 2889 ;; Declare global values local but using the same global value. | 2886 ;; Declare global values local but using the same global value. |
| 2890 ;; We could set these to the values for previous edebug call. | 2887 ;; We could set these to the values for previous edebug call. |
| 2891 (last-command-char last-command-char) | |
| 2892 (last-command last-command) | 2888 (last-command last-command) |
| 2893 (this-command this-command) | 2889 (this-command this-command) |
| 2894 (last-input-char last-input-char) | |
| 2895 | 2890 |
| 2896 ;; Assume no edebug command sets unread-command-char. | 2891 ;; Assume no edebug command sets unread-command-char. |
| 2897 (unread-command-char -1) | 2892 (unread-command-char -1) |
| 2898 (current-prefix-arg nil) | 2893 (current-prefix-arg nil) |
| 2899 | 2894 |
| 2953 (get-buffer-create " bogus edebug buffer")) | 2948 (get-buffer-create " bogus edebug buffer")) |
| 2954 ));; inner let | 2949 ));; inner let |
| 2955 | 2950 |
| 2956 ;; Reset global vars to outside values, in case they have been changed. | 2951 ;; Reset global vars to outside values, in case they have been changed. |
| 2957 (setq | 2952 (setq |
| 2958 last-command-char edebug-outside-last-command-char | |
| 2959 last-command-event edebug-outside-last-command-event | 2953 last-command-event edebug-outside-last-command-event |
| 2960 last-command edebug-outside-last-command | 2954 last-command edebug-outside-last-command |
| 2961 this-command edebug-outside-this-command | 2955 this-command edebug-outside-this-command |
| 2962 unread-command-char edebug-outside-unread-command-char | 2956 unread-command-char edebug-outside-unread-command-char |
| 2963 current-prefix-arg edebug-outside-current-prefix-arg | 2957 current-prefix-arg edebug-outside-current-prefix-arg |
| 2964 last-input-char edebug-outside-last-input-char | |
| 2965 last-input-event edebug-outside-last-input-event | 2958 last-input-event edebug-outside-last-input-event |
| 2966 last-event-frame edebug-outside-last-event-frame | 2959 last-event-frame edebug-outside-last-event-frame |
| 2967 last-nonmenu-event edebug-outside-last-nonmenu-event | 2960 last-nonmenu-event edebug-outside-last-nonmenu-event |
| 2968 track-mouse edebug-outside-track-mouse | 2961 track-mouse edebug-outside-track-mouse |
| 2969 | 2962 |
| 3578 (set-buffer edebug-buffer) ; why? | 3571 (set-buffer edebug-buffer) ; why? |
| 3579 ;; (use-local-map edebug-outside-map) | 3572 ;; (use-local-map edebug-outside-map) |
| 3580 (set-match-data edebug-outside-match-data) | 3573 (set-match-data edebug-outside-match-data) |
| 3581 ;; Restore outside context. | 3574 ;; Restore outside context. |
| 3582 (let (;; (edebug-inside-map (current-local-map)) ;; restore map?? | 3575 (let (;; (edebug-inside-map (current-local-map)) ;; restore map?? |
| 3583 (last-command-char edebug-outside-last-command-char) | |
| 3584 (last-command-event edebug-outside-last-command-event) | 3576 (last-command-event edebug-outside-last-command-event) |
| 3585 (last-command edebug-outside-last-command) | 3577 (last-command edebug-outside-last-command) |
| 3586 (this-command edebug-outside-this-command) | 3578 (this-command edebug-outside-this-command) |
| 3587 (unread-command-char edebug-outside-unread-command-char) | 3579 (unread-command-char edebug-outside-unread-command-char) |
| 3588 (unread-command-events edebug-outside-unread-command-events) | 3580 (unread-command-events edebug-outside-unread-command-events) |
| 3589 (current-prefix-arg edebug-outside-current-prefix-arg) | 3581 (current-prefix-arg edebug-outside-current-prefix-arg) |
| 3590 (last-input-char edebug-outside-last-input-char) | |
| 3591 (last-input-event edebug-outside-last-input-event) | 3582 (last-input-event edebug-outside-last-input-event) |
| 3592 (last-event-frame edebug-outside-last-event-frame) | 3583 (last-event-frame edebug-outside-last-event-frame) |
| 3593 (last-nonmenu-event edebug-outside-last-nonmenu-event) | 3584 (last-nonmenu-event edebug-outside-last-nonmenu-event) |
| 3594 (track-mouse edebug-outside-track-mouse) | 3585 (track-mouse edebug-outside-track-mouse) |
| 3595 (standard-output edebug-outside-standard-output) | 3586 (standard-output edebug-outside-standard-output) |
| 3621 ;; Restore inside windows. | 3612 ;; Restore inside windows. |
| 3622 (edebug-set-windows edebug-inside-windows)) | 3613 (edebug-set-windows edebug-inside-windows)) |
| 3623 | 3614 |
| 3624 ;; Save values that may have been changed. | 3615 ;; Save values that may have been changed. |
| 3625 (setq | 3616 (setq |
| 3626 edebug-outside-last-command-char last-command-char | |
| 3627 edebug-outside-last-command-event last-command-event | 3617 edebug-outside-last-command-event last-command-event |
| 3628 edebug-outside-last-command last-command | 3618 edebug-outside-last-command last-command |
| 3629 edebug-outside-this-command this-command | 3619 edebug-outside-this-command this-command |
| 3630 edebug-outside-unread-command-char unread-command-char | 3620 edebug-outside-unread-command-char unread-command-char |
| 3631 edebug-outside-unread-command-events unread-command-events | 3621 edebug-outside-unread-command-events unread-command-events |
| 3632 edebug-outside-current-prefix-arg current-prefix-arg | 3622 edebug-outside-current-prefix-arg current-prefix-arg |
| 3633 edebug-outside-last-input-char last-input-char | |
| 3634 edebug-outside-last-input-event last-input-event | 3623 edebug-outside-last-input-event last-input-event |
| 3635 edebug-outside-last-event-frame last-event-frame | 3624 edebug-outside-last-event-frame last-event-frame |
| 3636 edebug-outside-last-nonmenu-event last-nonmenu-event | 3625 edebug-outside-last-nonmenu-event last-nonmenu-event |
| 3637 edebug-outside-track-mouse track-mouse | 3626 edebug-outside-track-mouse track-mouse |
| 3638 edebug-outside-standard-output standard-output | 3627 edebug-outside-standard-output standard-output |