Mercurial > emacs

comparison lisp/term/w32-win.el @ 90428:a8190f7e546e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 285-296) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: admin/FOR-RELEASE: Update refcard section. * gnus--rel--5.10 (patch 102-104) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-64
author Miles Bader <miles@gnu.org>
date Wed, 07 Jun 2006 18:05:10 +0000
parents e3bacb89536a 0cfc01cbdd73
children 7eeafaaa9eab
comparison
equal deleted inserted replaced
90427:ddb25860d044 90428:a8190f7e546e
110 (x (car coords)) 110 (x (car coords))
111 (y (cdr coords))) 111 (y (cdr coords)))
112 (if (and (> x 0) (> y 0)) 112 (if (and (> x 0) (> y 0))
113 (set-frame-selected-window nil window)) 113 (set-frame-selected-window nil window))
114 (mapcar (lambda (file-name) 114 (mapcar (lambda (file-name)
115 (let ((f (subst-char-in-string ?\\ ?/ file-name))
116 (coding (or file-name-coding-system
117 default-file-name-coding-system)))
118 (setq file-name
119 (mapconcat 'url-hexify-string
120 (split-string (encode-coding-string f coding)
121 "/")
122 "/")))
115 (dnd-handle-one-url window 'private 123 (dnd-handle-one-url window 'private
116 (concat "file:" file-name))) 124 (concat "file:" file-name)))
117 (car (cdr (cdr event))))) 125 (car (cdr (cdr event)))))
118 (raise-frame))) 126 (raise-frame)))
119 127