diff options
| author | Dave Love | 1998-08-25 13:16:35 +0000 |
|---|---|---|
| committer | Dave Love | 1998-08-25 13:16:35 +0000 |
| commit | ddff3d800e7820d6d2d71f270afa90e5cc29ac71 (patch) | |
| tree | 744b3e362dc428b79f16f74ed8182ae9ce74f430 | |
| parent | 1b23dc8205b4d9a6ad8d6f92f28adec6dff6f977 (diff) | |
| download | emacs-ddff3d800e7820d6d2d71f270afa90e5cc29ac71.tar.gz emacs-ddff3d800e7820d6d2d71f270afa90e5cc29ac71.zip | |
(browse-url-netscape): Fix format for hex escapes.
| -rw-r--r-- | lisp/browse-url.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/browse-url.el b/lisp/browse-url.el index 6521dfdef29..3be0331196b 100644 --- a/lisp/browse-url.el +++ b/lisp/browse-url.el | |||
| @@ -700,7 +700,7 @@ used instead of `browse-url-new-window-p'." | |||
| 700 | ;; include at least commas; presumably also close parens. | 700 | ;; include at least commas; presumably also close parens. |
| 701 | (while (string-match "[,)]" url) | 701 | (while (string-match "[,)]" url) |
| 702 | (setq url (replace-match | 702 | (setq url (replace-match |
| 703 | (format "%x" (string-to-char (match-string 0 url))) t t url))) | 703 | (format "%%%x" (string-to-char (match-string 0 url))) t t url))) |
| 704 | (let* ((process-environment (browse-url-process-environment)) | 704 | (let* ((process-environment (browse-url-process-environment)) |
| 705 | (process (apply 'start-process | 705 | (process (apply 'start-process |
| 706 | (concat "netscape " url) nil | 706 | (concat "netscape " url) nil |