Commit dd513189 authored by Glenn Morris's avatar Glenn Morris
Browse files

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.
parent 05453c9d
...@@ -35,6 +35,12 @@ ...@@ -35,6 +35,12 @@
* obsolete/iso-acc.el: * obsolete/iso-acc.el:
* progmodes/vhdl-mode.el: Replace last-input-char with last-input-event. * progmodes/vhdl-mode.el: Replace last-input-char with last-input-event.
   
* emacs-lisp/edebug.el: 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.
2009-01-09 Dave Love <fx@gnu.org> 2009-01-09 Dave Love <fx@gnu.org>
   
* calendar/time-date.el: Require cl for `declare'. * calendar/time-date.el: Require cl for `declare'.
......
;;; edebug.el --- a source-level debugger for Emacs Lisp ;;; edebug.el --- a source-level debugger for Emacs Lisp
;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1999, ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 1999,
;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. ;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
;; Free Software Foundation, Inc.
;; Author: Daniel LaLiberte <liberte@holonexus.org> ;; Author: Daniel LaLiberte <liberte@holonexus.org>
;; Maintainer: FSF ;; Maintainer: FSF
...@@ -2813,10 +2814,8 @@ MSG is printed after `::::} '." ...@@ -2813,10 +2814,8 @@ MSG is printed after `::::} '."
(defvar edebug-outside-standard-output) (defvar edebug-outside-standard-output)
(defvar edebug-outside-standard-input) (defvar edebug-outside-standard-input)
(defvar edebug-outside-current-prefix-arg) (defvar edebug-outside-current-prefix-arg)
(defvar edebug-outside-last-command-char)
(defvar edebug-outside-last-command) (defvar edebug-outside-last-command)
(defvar edebug-outside-this-command) (defvar edebug-outside-this-command)
(defvar edebug-outside-last-input-char)
;; Note: here we have defvars for variables that are ;; Note: here we have defvars for variables that are
;; built-in in certain versions. ;; built-in in certain versions.
...@@ -2869,10 +2868,8 @@ MSG is printed after `::::} '." ...@@ -2869,10 +2868,8 @@ MSG is printed after `::::} '."
(edebug-outside-standard-input standard-input) (edebug-outside-standard-input standard-input)
(edebug-outside-defining-kbd-macro defining-kbd-macro) (edebug-outside-defining-kbd-macro defining-kbd-macro)
(edebug-outside-last-command-char last-command-char)
(edebug-outside-last-command last-command) (edebug-outside-last-command last-command)
(edebug-outside-this-command this-command) (edebug-outside-this-command this-command)
(edebug-outside-last-input-char last-input-char)
(edebug-outside-unread-command-char unread-command-char) (edebug-outside-unread-command-char unread-command-char)
(edebug-outside-current-prefix-arg current-prefix-arg) (edebug-outside-current-prefix-arg current-prefix-arg)
...@@ -2888,10 +2885,8 @@ MSG is printed after `::::} '." ...@@ -2888,10 +2885,8 @@ MSG is printed after `::::} '."
(let ( (let (
;; Declare global values local but using the same global value. ;; Declare global values local but using the same global value.
;; We could set these to the values for previous edebug call. ;; We could set these to the values for previous edebug call.
(last-command-char last-command-char)
(last-command last-command) (last-command last-command)
(this-command this-command) (this-command this-command)
(last-input-char last-input-char)
;; Assume no edebug command sets unread-command-char. ;; Assume no edebug command sets unread-command-char.
(unread-command-char -1) (unread-command-char -1)
...@@ -2955,13 +2950,11 @@ MSG is printed after `::::} '." ...@@ -2955,13 +2950,11 @@ MSG is printed after `::::} '."
;; Reset global vars to outside values, in case they have been changed. ;; Reset global vars to outside values, in case they have been changed.
(setq (setq
last-command-char edebug-outside-last-command-char
last-command-event edebug-outside-last-command-event last-command-event edebug-outside-last-command-event
last-command edebug-outside-last-command last-command edebug-outside-last-command
this-command edebug-outside-this-command this-command edebug-outside-this-command
unread-command-char edebug-outside-unread-command-char unread-command-char edebug-outside-unread-command-char
current-prefix-arg edebug-outside-current-prefix-arg 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-input-event edebug-outside-last-input-event
last-event-frame edebug-outside-last-event-frame last-event-frame edebug-outside-last-event-frame
last-nonmenu-event edebug-outside-last-nonmenu-event last-nonmenu-event edebug-outside-last-nonmenu-event
...@@ -3580,14 +3573,12 @@ Return the result of the last expression." ...@@ -3580,14 +3573,12 @@ Return the result of the last expression."
(set-match-data edebug-outside-match-data) (set-match-data edebug-outside-match-data)
;; Restore outside context. ;; Restore outside context.
(let (;; (edebug-inside-map (current-local-map)) ;; restore map?? (let (;; (edebug-inside-map (current-local-map)) ;; restore map??
(last-command-char edebug-outside-last-command-char)
(last-command-event edebug-outside-last-command-event) (last-command-event edebug-outside-last-command-event)
(last-command edebug-outside-last-command) (last-command edebug-outside-last-command)
(this-command edebug-outside-this-command) (this-command edebug-outside-this-command)
(unread-command-char edebug-outside-unread-command-char) (unread-command-char edebug-outside-unread-command-char)
(unread-command-events edebug-outside-unread-command-events) (unread-command-events edebug-outside-unread-command-events)
(current-prefix-arg edebug-outside-current-prefix-arg) (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-input-event edebug-outside-last-input-event)
(last-event-frame edebug-outside-last-event-frame) (last-event-frame edebug-outside-last-event-frame)
(last-nonmenu-event edebug-outside-last-nonmenu-event) (last-nonmenu-event edebug-outside-last-nonmenu-event)
...@@ -3623,14 +3614,12 @@ Return the result of the last expression." ...@@ -3623,14 +3614,12 @@ Return the result of the last expression."
;; Save values that may have been changed. ;; Save values that may have been changed.
(setq (setq
edebug-outside-last-command-char last-command-char
edebug-outside-last-command-event last-command-event edebug-outside-last-command-event last-command-event
edebug-outside-last-command last-command edebug-outside-last-command last-command
edebug-outside-this-command this-command edebug-outside-this-command this-command
edebug-outside-unread-command-char unread-command-char edebug-outside-unread-command-char unread-command-char
edebug-outside-unread-command-events unread-command-events edebug-outside-unread-command-events unread-command-events
edebug-outside-current-prefix-arg current-prefix-arg 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-input-event last-input-event
edebug-outside-last-event-frame last-event-frame edebug-outside-last-event-frame last-event-frame
edebug-outside-last-nonmenu-event last-nonmenu-event edebug-outside-last-nonmenu-event last-nonmenu-event
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment