Mercurial > emacs
comparison lisp/w32-fns.el @ 24441:6643d1ccd5a1
(convert-standard-filename): Convert directory
separators to Windows format.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Fri, 05 Mar 1999 16:15:58 +0000 |
| parents | ae5eea3cc314 |
| children | 756058742361 |
comparison
equal
deleted
inserted
replaced
| 24440:faac941ad28d | 24441:6643d1ccd5a1 |
|---|---|
| 231 (setq start 2)) | 231 (setq start 2)) |
| 232 ;; destructively replace invalid filename characters with ! | 232 ;; destructively replace invalid filename characters with ! |
| 233 (while (string-match "[?*:<>|\"\000-\037]" name start) | 233 (while (string-match "[?*:<>|\"\000-\037]" name start) |
| 234 (aset name (match-beginning 0) ?!) | 234 (aset name (match-beginning 0) ?!) |
| 235 (setq start (match-end 0))) | 235 (setq start (match-end 0))) |
| 236 ;; convert directory separators to Windows format | |
| 237 (while (string-match "/" name start) | |
| 238 (aset name (match-beginning 0) ?\\) | |
| 239 (setq start (match-end 0))) | |
| 236 name)) | 240 name)) |
| 237 | 241 |
| 238 ;;; Fix interface to (X-specific) mouse.el | 242 ;;; Fix interface to (X-specific) mouse.el |
| 239 (defun x-set-selection (type data) | 243 (defun x-set-selection (type data) |
| 240 (or type (setq type 'PRIMARY)) | 244 (or type (setq type 'PRIMARY)) |