X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/114f9c96795aff3b51b9060d7c9c1b77debcc99a..315f675857250c2204d024748e9eafa57c68410f:/lisp/net/webjump.el diff --git a/lisp/net/webjump.el b/lisp/net/webjump.el index 81e4e2c65f..232e5ca581 100644 --- a/lisp/net/webjump.el +++ b/lisp/net/webjump.el @@ -1,7 +1,6 @@ ;;; webjump.el --- programmable Web hotlist -;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 1996-1997, 2001-2012 Free Software Foundation, Inc. ;; Author: Neil W. Van Dyke ;; Created: 09-Aug-1996 @@ -236,7 +235,7 @@ "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") @@ -277,7 +276,7 @@ function and the `webjump-sites' variable.") (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 @@ -448,11 +447,11 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke (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) "")) @@ -480,5 +479,4 @@ Please submit bug reports and other feedback to the author, Neil W. Van Dyke (provide 'webjump) -;; arch-tag: f1d20156-0a6f-488b-bd91-f69ee8b6d5cc ;;; webjump.el ends here