X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e5566bd545c8557083a84f651b02a6090316dfed..94cc397c541f50af6b049af6c42806daa2be2709:/lisp/url/url-about.el diff --git a/lisp/url/url-about.el b/lisp/url/url-about.el index 00d0d59530..d8db9ea8a5 100644 --- a/lisp/url/url-about.el +++ b/lisp/url/url-about.el @@ -1,36 +1,36 @@ ;;; url-about.el --- Show internal URLs -;; Author: $Author: monnier $ -;; Created: $Date: 2004/04/04 01:21:46 $ -;; Version: $Revision: 1.1.1.1 $ + +;; Copyright (C) 2001, 2004, 2005, 2006, 2007, 2008 +;; Free Software Foundation, Inc. + ;; Keywords: comm, data, processes, hypermedia -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; Copyright (c) 2001 Free Software Foundation, Inc. -;;; -;;; This file is part of GNU Emacs. -;;; -;;; GNU Emacs is free software; you can redistribute it and/or modify -;;; it under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 2, or (at your option) -;;; any later version. -;;; -;;; GNU Emacs is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with GNU Emacs; see the file COPYING. If not, write to the -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;;; Boston, MA 02111-1307, USA. -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(eval-when-compile - (require 'cl)) +;; This file is part of GNU Emacs. +;; +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. +;; +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: + +;;; Code: + (require 'url-util) (require 'url-parse) (defun url-probe-protocols () - "Returns a list of all potential URL schemes." + "Return a list of all potential URL schemes." (or (get 'url-extension-protocols 'probed) (mapc (lambda (s) (url-scheme-get-property s 'name)) (or (get 'url-extension-protocols 'schemes) @@ -45,6 +45,8 @@ (put 'url-extension-protocols 'schemes schemes) schemes))))) +(defvar url-scheme-registry) + (defun url-about-protocols (url) (url-probe-protocols) (insert "\n" @@ -92,11 +94,12 @@ (if (fboundp func) (progn (set-buffer (generate-new-buffer " *about-data*")) - (insert "Content-type: text/html\n\n") + (insert "Content-type: text/plain\n\n") (funcall func url) (current-buffer)) (error "URL does not know about `%s'" item)))) (provide 'url-about) -;;; arch-tag: 65dd7fca-db3f-4cb1-8026-7dd37d4a460e +;; arch-tag: 65dd7fca-db3f-4cb1-8026-7dd37d4a460e +;;; url-about.el ends here