equal
deleted
inserted
replaced
1463 ) ) |
1463 ) ) |
1464 |
1464 |
1465 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1465 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1466 (message "browser") |
1466 (message "browser") |
1467 |
1467 |
|
1468 (defun my--browse-url-cygwin-firefox (url &optional _new-window) |
|
1469 (call-process "cygstart" nil nil nil "firefox" url)) |
|
1470 |
1468 (cond |
1471 (cond |
|
1472 ((eq system-type 'cygwin) |
|
1473 (setq browse-url-browser-function 'my--browse-url-cygwin-firefox)) |
1469 ((equal window-system 'w32) |
1474 ((equal window-system 'w32) |
1470 (setq browse-url-browser-function 'browse-url-default-windows-browser)) |
1475 (setq browse-url-browser-function 'browse-url-default-windows-browser)) |
1471 ((boundp 'debian-emacs-flavor) |
1476 ((boundp 'debian-emacs-flavor) |
1472 (setq browse-url-browser-function 'browse-url-firefox)) |
1477 (setq browse-url-browser-function 'browse-url-firefox)) |
1473 (t |
1478 (t |