# HG changeset patch # User Juanma Barranquero # Date 1181779843 0 # Node ID 0842cee3ad3314e4589549d9b510e1001bae96e8 # Parent fe478726dca26fb4f710bb46b43cdd12854f5edb (edebug-pop-to-buffer, edebug-display): Remove redundant checks. diff -r fe478726dca2 -r 0842cee3ad33 lisp/emacs-lisp/edebug.el --- a/lisp/emacs-lisp/edebug.el Thu Jun 14 00:09:10 2007 +0000 +++ b/lisp/emacs-lisp/edebug.el Thu Jun 14 00:10:43 2007 +0000 @@ -369,7 +369,7 @@ ;; Otherwise, find a new window, possibly splitting one. (setq window (cond - ((and (windowp window) (edebug-window-live-p window) + ((and (edebug-window-live-p window) (eq (window-buffer window) buffer)) window) ((eq (window-buffer (selected-window)) buffer) @@ -2739,7 +2739,7 @@ ;; Unrestore edebug-buffer's window-start, if displayed. (let ((window (car edebug-window-data))) - (if (and window (edebug-window-live-p window) + (if (and (edebug-window-live-p window) (eq (window-buffer) edebug-buffer)) (progn (set-window-start window (cdr edebug-window-data)