Mercurial > emacs
comparison lisp/net/browse-url.el @ 84398:f12fc8e7482c
(browse-url-galeon): Fix last change.
(top-level): Require cl when compiling.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 08 Sep 2007 09:53:10 +0000 |
| parents | c05c0eff3e11 |
| children | 6a870293225d |
comparison
equal
deleted
inserted
replaced
| 84397:08ae730da9c4 | 84398:f12fc8e7482c |
|---|---|
| 215 ;;; Code: | 215 ;;; Code: |
| 216 | 216 |
| 217 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 217 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 218 ;; Variables | 218 ;; Variables |
| 219 | 219 |
| 220 (eval-when-compile (require 'thingatpt) | 220 (eval-when-compile (require 'cl) |
| 221 (require 'thingatpt) | |
| 221 (require 'term) | 222 (require 'term) |
| 222 (require 'dired) | 223 (require 'dired) |
| 223 (require 'executable) | 224 (require 'executable) |
| 224 (require 'w3-auto nil t)) | 225 (require 'w3-auto nil t)) |
| 225 | 226 |
| 1086 new tab in an existing window instead. | 1087 new tab in an existing window instead. |
| 1087 | 1088 |
| 1088 When called non-interactively, optional second argument NEW-WINDOW is | 1089 When called non-interactively, optional second argument NEW-WINDOW is |
| 1089 used instead of `browse-url-new-window-flag'." | 1090 used instead of `browse-url-new-window-flag'." |
| 1090 (interactive (browse-url-interactive-arg "URL: ")) | 1091 (interactive (browse-url-interactive-arg "URL: ")) |
| 1091 (setq url (browse-url-encode-url)) | 1092 (setq url (browse-url-encode-url url)) |
| 1092 (let* ((process-environment (browse-url-process-environment)) | 1093 (let* ((process-environment (browse-url-process-environment)) |
| 1093 (process (apply 'start-process | 1094 (process (apply 'start-process |
| 1094 (concat "galeon " url) | 1095 (concat "galeon " url) |
| 1095 nil | 1096 nil |
| 1096 browse-url-galeon-program | 1097 browse-url-galeon-program |