Commit 1b96c77f authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(edebug-pop-to-buffer, edebug-display): Remove redundant checks.

parent 011acd18
...@@ -369,7 +369,7 @@ Return the result of the last expression in BODY." ...@@ -369,7 +369,7 @@ Return the result of the last expression in BODY."
;; Otherwise, find a new window, possibly splitting one. ;; Otherwise, find a new window, possibly splitting one.
(setq window (setq window
(cond (cond
((and (windowp window) (edebug-window-live-p window) ((and (edebug-window-live-p window)
(eq (window-buffer window) buffer)) (eq (window-buffer window) buffer))
window) window)
((eq (window-buffer (selected-window)) buffer) ((eq (window-buffer (selected-window)) buffer)
...@@ -2739,7 +2739,7 @@ MSG is printed after `::::} '." ...@@ -2739,7 +2739,7 @@ MSG is printed after `::::} '."
;; Unrestore edebug-buffer's window-start, if displayed. ;; Unrestore edebug-buffer's window-start, if displayed.
(let ((window (car edebug-window-data))) (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)) (eq (window-buffer) edebug-buffer))
(progn (progn
(set-window-start window (cdr edebug-window-data) (set-window-start window (cdr edebug-window-data)
......
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