Mercurial > emacs
changeset 96547:75ac143d2aa1
* net/browse-url.el (browse-url-default-browser): Fix argument list in lambda.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 08 Jul 2008 14:45:36 +0000 |
| parents | acb2b0117c96 |
| children | ca19ecf65364 |
| files | lisp/ChangeLog lisp/net/browse-url.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jul 08 11:54:10 2008 +0000 +++ b/lisp/ChangeLog Tue Jul 08 14:45:36 2008 +0000 @@ -1,3 +1,8 @@ +2008-07-08 Eduard Wiebe <usenet@pusto.de> (tiny change) + + * net/browse-url.el (browse-url-default-browser): + Fix argument list in lambda. + 2008-07-07 Ulf Jasper <ulf@web.de> * net/newst-backend.el (newsticker--get-news-by-url): Catch errors
--- a/lisp/net/browse-url.el Tue Jul 08 11:54:10 2008 +0000 +++ b/lisp/net/browse-url.el Tue Jul 08 14:45:36 2008 +0000 @@ -500,7 +500,7 @@ (defvar browse-url-temp-file-name nil) (make-variable-buffer-local 'browse-url-temp-file-name) - + (defcustom browse-url-xterm-program "xterm" "The name of the terminal emulator used by `browse-url-text-xterm'. This might, for instance, be a separate color version of xterm." @@ -886,7 +886,7 @@ ((executable-find browse-url-xterm-program) 'browse-url-text-xterm) ((locate-library "w3") 'browse-url-w3) (t - (lambda (&ignore args) (error "No usable browser found")))) + (lambda (&rest ignore) (error "No usable browser found")))) url args)) ;;;###autoload @@ -1322,7 +1322,7 @@ (defun browse-url-text-xterm (url &optional new-window) ;; new-window ignored "Ask a text browser to load URL. -URL defaults to the URL around or before point. +URL defaults to the URL around or before point. This runs the text browser specified by `browse-url-text-browser'. in an Xterm window using the Xterm program named by `browse-url-xterm-program' with possible additional arguments `browse-url-xterm-args'." @@ -1337,7 +1337,7 @@ ;;;###autoload (defun browse-url-text-emacs (url &optional new-buffer) "Ask a text browser to load URL. -URL defaults to the URL around or before point. +URL defaults to the URL around or before point. This runs the text browser specified by `browse-url-text-browser'. With a prefix argument, it runs a new browser process in a new buffer. @@ -1469,7 +1469,7 @@ (defun browse-url-elinks-new-window (url) "Ask the Elinks WWW browser to load URL in a new window." - (let ((process-environment (browse-url-process-environment))) + (let ((process-environment (browse-url-process-environment))) (apply #'start-process (append (list (concat "elinks:" url) nil)