Mercurial > emacs

comparison lisp/net/browse-url.el @ 38436:b174db545cfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Some fixes to follow coding conventions.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 16 Jul 2001 12:23:00 +0000
parents bb01ee99b910
children c5d2c3683efb
comparison
equal deleted inserted replaced
38435:a9102b5472f0 38436:b174db545cfd
1 ;;; browse-url.el --- Pass a URL to a WWW browser 1 ;;; browse-url.el --- pass a URL to a WWW browser
2 2
3 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 3 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Denis Howe <dbh@doc.ic.ac.uk> 6 ;; Author: Denis Howe <dbh@doc.ic.ac.uk>
1010 (if win 1010 (if win
1011 (select-window win) 1011 (select-window win)
1012 (switch-to-buffer buf))) 1012 (switch-to-buffer buf)))
1013 (if (eq (following-char) ?_) 1013 (if (eq (following-char) ?_)
1014 (cond ((eq browse-url-lynx-input-field 'warn) 1014 (cond ((eq browse-url-lynx-input-field 'warn)
1015 (error "Please move out of the input field first.")) 1015 (error "Please move out of the input field first"))
1016 ((eq browse-url-lynx-input-field 'avoid) 1016 ((eq browse-url-lynx-input-field 'avoid)
1017 (while (and (eq (following-char) ?_) (> n 0)) 1017 (while (and (eq (following-char) ?_) (> n 0))
1018 (term-send-down) ; down arrow 1018 (term-send-down) ; down arrow
1019 (sit-for browse-url-lynx-input-delay)) 1019 (sit-for browse-url-lynx-input-delay))
1020 (if (eq (following-char) ?_) 1020 (if (eq (following-char) ?_)
1021 (error "Cannot move out of the input field, sorry."))))) 1021 (error "Cannot move out of the input field, sorry")))))
1022 (term-send-string proc (concat "g" ; goto 1022 (term-send-string proc (concat "g" ; goto
1023 "\C-u" ; kill default url 1023 "\C-u" ; kill default url
1024 url 1024 url
1025 "\r"))))) 1025 "\r")))))
1026 1026