From 011acd1803f5771dc08899ca65aa7418c5d5e0de Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 14 Jun 2007 00:09:10 +0000 Subject: [PATCH] (x-dnd-maybe-call-test-function, x-dnd-save-state, x-dnd-drop-data): Remove redundant checks. --- lisp/x-dnd.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el index c3a9e7910a6..a215faab85e 100644 --- a/lisp/x-dnd.el +++ b/lisp/x-dnd.el @@ -171,7 +171,7 @@ FRAME-OR-WINDOW is the frame or window that the mouse is over." WINDOW is the window the mouse is over. ACTION is the suggested action from the source. If nothing has changed, return the last action and type we got from `x-dnd-test-function'." - (let ((buffer (when (and (windowp window) (window-live-p window)) + (let ((buffer (when (window-live-p window) (window-buffer window))) (current-state (x-dnd-get-state-for-frame window))) (when (or (not (equal buffer (aref current-state 0))) @@ -206,9 +206,7 @@ EXTRA-DATA is data needed for a specific protocol." (when types (aset current-state 2 types)) (when extra-data (aset current-state 6 extra-data)) (aset current-state 1 window) - (aset current-state 0 (if (and (windowp window) - (window-live-p window)) - (window-buffer window) nil)) + (aset current-state 0 (and (window-live-p window) (window-buffer window))) (setcdr (x-dnd-get-state-cons-for-frame window) current-state))) @@ -319,7 +317,7 @@ nil if not." (action (aref state 5)) (w (posn-window (event-start event)))) (when handler - (if (and (windowp w) (window-live-p w) + (if (and (window-live-p w) (not (window-minibuffer-p w)) (not (window-dedicated-p w))) ;; If dropping in an ordinary window which we could use, -- 2.39.2