Mercurial > emacs

diff 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
line wrap: on
line diff
--- a/lisp/net/browse-url.el	Mon Jul 16 12:22:17 2001 +0000
+++ b/lisp/net/browse-url.el	Mon Jul 16 12:23:00 2001 +0000
@@ -1,4 +1,4 @@
-;;; browse-url.el --- Pass a URL to a WWW browser
+;;; browse-url.el --- pass a URL to a WWW browser
 
 ;; Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001
 ;;   Free Software Foundation, Inc.
@@ -1012,13 +1012,13 @@
 	  (switch-to-buffer buf)))
       (if (eq (following-char) ?_)
 	  (cond ((eq browse-url-lynx-input-field 'warn)
-		 (error "Please move out of the input field first."))
+		 (error "Please move out of the input field first"))
 		((eq browse-url-lynx-input-field 'avoid)
 		 (while (and (eq (following-char) ?_) (> n 0))
 		   (term-send-down) ; down arrow
 		   (sit-for browse-url-lynx-input-delay))
 		 (if (eq (following-char) ?_)
-		     (error "Cannot move out of the input field, sorry.")))))
+		     (error "Cannot move out of the input field, sorry")))))
       (term-send-string proc (concat "g" ; goto
 				     "\C-u" ; kill default url
 				     url