Mercurial > emacs

comparison lisp/term/mac-win.el @ 81393:279fdeaf242c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mac-dnd-drop-data): Remove redundant check.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 14 Jun 2007 00:12:32 +0000
parents 5e0f43a8e936
children b98604865ea0 9c01792a3ce8 3619e7770f2e
comparison
equal deleted inserted replaced
81392:f0107aee8e99 81393:279fdeaf242c
2250 (or action (setq action 'private)) 2250 (or action (setq action 'private))
2251 (let* ((type-info (assoc type mac-dnd-types-alist)) 2251 (let* ((type-info (assoc type mac-dnd-types-alist))
2252 (handler (cdr type-info)) 2252 (handler (cdr type-info))
2253 (w (posn-window (event-start event)))) 2253 (w (posn-window (event-start event))))
2254 (when handler 2254 (when handler
2255 (if (and (windowp w) (window-live-p w) 2255 (if (and (window-live-p w)
2256 (not (window-minibuffer-p w)) 2256 (not (window-minibuffer-p w))
2257 (not (window-dedicated-p w))) 2257 (not (window-dedicated-p w)))
2258 ;; If dropping in an ordinary window which we could use, 2258 ;; If dropping in an ordinary window which we could use,
2259 ;; let dnd-open-file-other-window specify what to do. 2259 ;; let dnd-open-file-other-window specify what to do.
2260 (progn 2260 (progn