Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
238 (url-match (nth 2 href) 2))) 238 (url-match (nth 2 href) 2)))
239 (t 239 (t
240 (insert "<title>WAIS search</title>\n" 240 (insert "<title>WAIS search</title>\n"
241 "<h1>WAIS search of " (nth 2 href) "</h1>" 241 "<h1>WAIS search of " (nth 2 href) "</h1>"
242 "<hr>\n" 242 "<hr>\n"
243 "<form>\n" 243 (format "<form action=\"%s\" enctype=\"application/x-w3-wais\">\n" url)
244 "Enter search term: <input name=\"internal-wais\">\n" 244 "Enter search term: <input name=\"internal-wais\">\n"
245 "</form>\n" 245 "</form>\n"
246 "<hr>\n")))))) 246 "<hr>\n"))))))
247 247
248 (provide 'url-wais) 248 (provide 'url-wais)