.emacs-my
changeset 1647 e3ecb49df5d4
parent 1646 4003042c0420
child 1648 5da3c9313dc2
equal deleted inserted replaced
1646:4003042c0420 1647:e3ecb49df5d4
  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