;;; webjump.el --- programmable Web hotlist
-;; Copyright (C) 1996-1997, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1996-1997, 2001-2012 Free Software Foundation, Inc.
;; Author: Neil W. Van Dyke <nwv@acm.org>
;; Created: 09-Aug-1996
"www.faqs.org/faqs/")
("RTFM Usenet FAQs by Group" .
"ftp://rtfm.mit.edu/pub/usenet-by-group/")
- ("RTFM Usenet FAQs by Hierachy" .
+ ("RTFM Usenet FAQs by Hierarchy" .
"ftp://rtfm.mit.edu/pub/usenet-by-hierarchy/")
("X Consortium Archive" . "ftp.x.org")
(defvar webjump-sites
webjump-sample-sites
- "*Hotlist for WebJump.
+ "Hotlist for WebJump.
The hotlist is represented as an association list, with the CAR of each cell
being the name of the Web site, and the CDR being the definition for the URL of
(or (null str) (string-match "^[ \t]*$" str)))
(defun webjump-url-encode (str)
- (mapconcat '(lambda (c)
- (let ((s (char-to-string c)))
- (cond ((string= s " ") "+")
- ((string-match "[a-zA-Z_.-/]" s) s)
- (t (upcase (format "%%%02x" c))))))
+ (mapconcat (lambda (c)
+ (let ((s (char-to-string c)))
+ (cond ((string= s " ") "+")
+ ((string-match "[a-zA-Z_.-/]" s) s)
+ (t (upcase (format "%%%02x" c))))))
(encode-coding-string str 'utf-8)
""))