[Emacs-diffs] /srv/bzr/emacs/trunk r110005: * lisp/emacs-lisp/edebug.el (edebug-outside-unread-command-events):

[Stefan Monnier]

------------------------------------------------------------
revno: 110005
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-09-12 22:29:05 -0400
message:
  * lisp/emacs-lisp/edebug.el (edebug-outside-unread-command-events):
  Fix last change.
  (edebug-update-eval-list): Use `push'.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/edebug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-13 02:00:41 +0000
+++ b/lisp/ChangeLog    2012-09-13 02:29:05 +0000
@@ -1,5 +1,9 @@
 2012-09-13  Stefan Monnier  <address@hidden>
 
+       * emacs-lisp/edebug.el (edebug-outside-unread-command-events):
+       Fix last change.
+       (edebug-update-eval-list): Use `push'.
+
        * emacs-lisp/edebug.el: Use lexical-binding.
        Remove the "edebug-" prefix from non-dynamically-scoped variables.
        Mark unused args with underscore.

=== modified file 'lisp/emacs-lisp/edebug.el'
--- a/lisp/emacs-lisp/edebug.el 2012-09-13 02:00:41 +0000
+++ b/lisp/emacs-lisp/edebug.el 2012-09-13 02:29:05 +0000
@@ -2480,6 +2480,7 @@
 ;; Emacs 19 adds an arg to mark and mark-marker.
 (defalias 'edebug-mark-marker 'mark-marker)
 
+(defvar edebug-outside-unread-command-events)
 
 (defun edebug--display (value offset-index arg-mode)
   (unless (marker-position edebug-def-mark)
@@ -2763,7 +2764,6 @@
 
 ;; Emacs 19.
 (defvar edebug-outside-last-command-event)
-(defvar edebug-outside-unread-command-events)
 (defvar edebug-outside-last-input-event)
 (defvar edebug-outside-last-event-frame)
 (defvar edebug-outside-last-nonmenu-event)
@@ -3906,10 +3906,9 @@
     ))
 
 (defun edebug-create-eval-buffer ()
-  (if (not (and edebug-eval-buffer (buffer-name edebug-eval-buffer)))
-      (progn
-       (set-buffer (setq edebug-eval-buffer (get-buffer-create "*edebug*")))
-       (edebug-eval-mode))))
+  (unless (and edebug-eval-buffer (buffer-name edebug-eval-buffer))
+    (set-buffer (setq edebug-eval-buffer (get-buffer-create "*edebug*")))
+    (edebug-eval-mode)))
 
 ;; Should generalize this to be callable outside of edebug
 ;; with calls in user functions, e.g. (edebug-eval-display)
@@ -3947,7 +3946,7 @@
     (if (not (eobp))
        (progn
          (forward-sexp 1)
-         (setq new-list (cons (edebug-last-sexp) new-list))))
+         (push (edebug-last-sexp) new-list)))
 
     (while (re-search-forward "^;" nil t)
       (forward-line 1)
@@ -3956,7 +3955,7 @@
               (not (eobp)))
          (progn
            (forward-sexp 1)
-           (setq new-list (cons (edebug-last-sexp) new-list)))))
+           (push (edebug-last-sexp) new-list))))
 
     (setq edebug-eval-list (nreverse new-list))
     (edebug-eval-redisplay)