Mercurial > hg > xemacs-beta

diff lisp/url/url-wais.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
line wrap: on
line diff
--- a/lisp/url/url-wais.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/url/url-wais.el	Mon Aug 13 08:46:35 2007 +0200
@@ -240,7 +240,7 @@
 	(insert "<title>WAIS search</title>\n"
 		"<h1>WAIS search of " (nth 2 href) "</h1>"
 		"<hr>\n"
-		"<form>\n"
+		(format "<form action=\"%s\" enctype=\"application/x-w3-wais\">\n" url)
 		"Enter search term: <input name=\"internal-wais\">\n"
 		"</form>\n"
 		"<hr>\n"))))))