Mercurial > emacs
comparison lisp/term/w32-win.el @ 90428:a8190f7e546e
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 |