Mercurial > emacs

comparison lisp/term/mac-win.el @ 80384:7c4dd8e082ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mac-dnd-drop-data): Remove redundant check.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Sat, 29 Mar 2008 00:33:44 +0000
parents 9833887c464d
children 08cd8b1cca35
comparison
equal deleted inserted replaced
80383:112755bcbedd 80384:7c4dd8e082ee
2251 (or action (setq action 'private)) 2251 (or action (setq action 'private))
2252 (let* ((type-info (assoc type mac-dnd-types-alist)) 2252 (let* ((type-info (assoc type mac-dnd-types-alist))
2253 (handler (cdr type-info)) 2253 (handler (cdr type-info))
2254 (w (posn-window (event-start event)))) 2254 (w (posn-window (event-start event))))
2255 (when handler 2255 (when handler
2256 (if (and (windowp w) (window-live-p w) 2256 (if (and (window-live-p w)
2257 (not (window-minibuffer-p w)) 2257 (not (window-minibuffer-p w))
2258 (not (window-dedicated-p w))) 2258 (not (window-dedicated-p w)))
2259 ;; If dropping in an ordinary window which we could use, 2259 ;; If dropping in an ordinary window which we could use,
2260 ;; let dnd-open-file-other-window specify what to do. 2260 ;; let dnd-open-file-other-window specify what to do.
2261 (progn 2261 (progn