Mercurial > emacs
comparison lisp/net/browse-url.el @ 41460:cdee72f7332b
(browse-url-galeon-new-window-is-tab): New var.
(browse-url-galeon): Use that variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 25 Nov 2001 00:04:41 +0000 |
| parents | c5d2c3683efb |
| children | 8ecfd38df30d |
comparison
equal
deleted
inserted
replaced
| 41459:36f463a17ea9 | 41460:cdee72f7332b |
|---|---|
| 333 Defaults to the value of `browse-url-galeon-arguments' at the time | 333 Defaults to the value of `browse-url-galeon-arguments' at the time |
| 334 `browse-url' is loaded." | 334 `browse-url' is loaded." |
| 335 :type '(repeat (string :tag "Argument")) | 335 :type '(repeat (string :tag "Argument")) |
| 336 :group 'browse-url) | 336 :group 'browse-url) |
| 337 | 337 |
| 338 (defcustom browse-url-galeon-new-window-is-tab nil | |
| 339 "Whether to open up new windows in a tab or a new window. | |
| 340 If non-nil, then open the URL in a new tab rather than a new window if | |
| 341 `browse-url-galeon' is asked to open it in a new window." | |
| 342 :type 'boolean | |
| 343 :group 'browse-url) | |
| 344 | |
| 338 ;;;###autoload | 345 ;;;###autoload |
| 339 (defcustom browse-url-new-window-flag nil | 346 (defcustom browse-url-new-window-flag nil |
| 340 "*If non-nil, always open a new browser window with appropriate browsers. | 347 "*If non-nil, always open a new browser window with appropriate browsers. |
| 341 Passing an interactive argument to \\[browse-url], or specific browser | 348 Passing an interactive argument to \\[browse-url], or specific browser |
| 342 commands reverses the effect of this variable. Requires Netscape version | 349 commands reverses the effect of this variable. Requires Netscape version |
| 891 (process (apply 'start-process | 898 (process (apply 'start-process |
| 892 (concat "galeon " url) nil | 899 (concat "galeon " url) nil |
| 893 browse-url-galeon-program | 900 browse-url-galeon-program |
| 894 (append | 901 (append |
| 895 browse-url-galeon-arguments | 902 browse-url-galeon-arguments |
| 896 (if new-window '("-w" "--noraise")) | 903 (if (browse-url-maybe-new-window new-window) |
| 904 (if browse-url-galeon-new-window-is-tab | |
| 905 '("--new-tab") | |
| 906 '("--new-window" "--no-raise"))) | |
| 897 (list "-x" url))))) | 907 (list "-x" url))))) |
| 898 (set-process-sentinel process | 908 (set-process-sentinel process |
| 899 `(lambda (process change) | 909 `(lambda (process change) |
| 900 (browse-url-galeon-sentinel process ,url))))) | 910 (browse-url-galeon-sentinel process ,url))))) |
| 901 | 911 |