comparison lisp/net/browse-url.el @ 86277:a8503aaf3a82

* frame.el (msdos-mouse-p): * files.el (msdos-long-file-names, w32-long-file-name) (msdos-long-file-names): * term/mac-win.el (mac-code-convert-string, mac-coerce-ae-data) (mac-resume-apple-event, mac-font-panel-mode) (mac-atsu-font-face-attributes, mac-ae-set-reply-parameter) (mac-clear-font-name-table): * term/pc-win.el (msdos-remember-default-colors) (w16-set-clipboard-data, w16-get-clipboard-data): * term/w32-win.el (w32-send-sys-command, w32-select-font) (set-message-beep): * net/browse-url.el (w32-shell-execute): * dos-fns.el (int86, msdos-long-file-names): * dos-w32.el (default-printer-name): Undo previous change.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 21 Nov 2007 08:37:31 +0000
parents 22dc0bc9daf8
children 8a7ed478f7bc
comparison
equal deleted inserted replaced
86276:b284b075c181 86277:a8503aaf3a82
823 ;; Browser-specific commands 823 ;; Browser-specific commands
824 824
825 ;; --- Default MS-Windows browser --- 825 ;; --- Default MS-Windows browser ---
826 826
827 (defvar dos-windows-version) 827 (defvar dos-windows-version)
828 (declare-function w32-shell-execute) ;; Defined in C.
829 828
830 (defun browse-url-default-windows-browser (url &optional new-window) 829 (defun browse-url-default-windows-browser (url &optional new-window)
831 (interactive (browse-url-interactive-arg "URL: ")) 830 (interactive (browse-url-interactive-arg "URL: "))
832 (if (eq system-type 'ms-dos) 831 (if (eq system-type 'ms-dos)
833 (if dos-windows-version 832 (if dos-windows-version