Mercurial > emacs
comparison lisp/net/browse-url.el @ 104772:d04b8967407b
(browse-url-file-url): Use default-value rather than
default-enable-multibyte-characters.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 01 Sep 2009 03:17:03 +0000 |
| parents | 16c9c375ab15 |
| children | 0769a73f1d18 |
comparison
equal
deleted
inserted
replaced
| 104771:2c8224ca97e2 | 104772:d04b8967407b |
|---|---|
| 697 (run-hooks 'browse-url-of-file-hook)) | 697 (run-hooks 'browse-url-of-file-hook)) |
| 698 | 698 |
| 699 (defun browse-url-file-url (file) | 699 (defun browse-url-file-url (file) |
| 700 "Return the URL corresponding to FILE. | 700 "Return the URL corresponding to FILE. |
| 701 Use variable `browse-url-filename-alist' to map filenames to URLs." | 701 Use variable `browse-url-filename-alist' to map filenames to URLs." |
| 702 (let ((coding (and default-enable-multibyte-characters | 702 (let ((coding (and (default-value 'enable-multibyte-characters) |
| 703 (or file-name-coding-system | 703 (or file-name-coding-system |
| 704 default-file-name-coding-system)))) | 704 default-file-name-coding-system)))) |
| 705 (if coding (setq file (encode-coding-string file coding)))) | 705 (if coding (setq file (encode-coding-string file coding)))) |
| 706 (setq file (browse-url-url-encode-chars file "[*\"()',=;?% ]")) | 706 (setq file (browse-url-url-encode-chars file "[*\"()',=;?% ]")) |
| 707 (dolist (map browse-url-filename-alist) | 707 (dolist (map browse-url-filename-alist) |