Mercurial > emacs
comparison lisp/term/mac-win.el @ 70763:e5e83c1c6fa5
(mac-ae-open-documents): Escape file name on conversion to URL.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Sat, 20 May 2006 04:30:07 +0000 |
| parents | 3cbb04c6169f |
| children | e5af358ce93a c44562301a11 |
comparison
equal
deleted
inserted
replaced
| 70762:65f2c33d043f | 70763:e5e83c1c6fa5 |
|---|---|
| 1614 "Open the documents specified by the Apple event EVENT." | 1614 "Open the documents specified by the Apple event EVENT." |
| 1615 (interactive "e") | 1615 (interactive "e") |
| 1616 (let ((ae (mac-event-ae event))) | 1616 (let ((ae (mac-event-ae event))) |
| 1617 (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name)) | 1617 (dolist (file-name (mac-ae-list ae nil 'undecoded-file-name)) |
| 1618 (if file-name | 1618 (if file-name |
| 1619 (dnd-open-local-file (concat "file:" file-name) nil))) | 1619 (dnd-open-local-file |
| 1620 (concat "file://" | |
| 1621 (mapconcat 'url-hexify-string | |
| 1622 (split-string file-name "/") "/")) nil))) | |
| 1620 (let ((selection-range (mac-ae-selection-range ae)) | 1623 (let ((selection-range (mac-ae-selection-range ae)) |
| 1621 (search-text (mac-ae-text-for-search ae))) | 1624 (search-text (mac-ae-text-for-search ae))) |
| 1622 (cond (selection-range | 1625 (cond (selection-range |
| 1623 (let ((line (car selection-range)) | 1626 (let ((line (car selection-range)) |
| 1624 (start (cadr selection-range)) | 1627 (start (cadr selection-range)) |