Changeset 4091 for trunk/lisp/net/browse-url.el

Timestamp:

05/27/06 10:35:24 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/net/browse-url.el (modified) (1 diff)

trunk/lisp/net/browse-url.el

@@ -681 +681 @@
-  "Return the URL corresponding to FILE.
-Use variable `browse-url-filename-alist' to map filenames to URLs."
+  (let ((coding (and default-enable-multibyte-characters
+                     (or file-name-coding-system
+                         default-file-name-coding-system))))
+    (if coding (setq file (encode-coding-string file coding))))
-  ;; URL-encode special chars, do % first
-  (let ((s 0))