This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "ELPA".
The branch, externals/w3 has been updated via 1ba24a1bb49e1d9be7e6539cf857c08566d58575 (commit) from efd1e1253639f07dd04ef8b84c14afc74c419cb5 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 1ba24a1bb49e1d9be7e6539cf857c08566d58575 Author: Stefan Monnier <monn...@iro.umontreal.ca> Date: Sat Aug 24 23:49:04 2013 -0400 Add copyright header to auxiliary Elisp files diff --git a/contrib/http-tunnel.el b/contrib/http-tunnel.el index b35b026..fcc975e 100644 --- a/contrib/http-tunnel.el +++ b/contrib/http-tunnel.el @@ -1,3 +1,24 @@ +;;; http-tunnel.el --- Tunneling a connection through http? + +;; Copyright (c) 2013 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>. + +;;; Code: + (defvar http-tunnel-host "firewallmachine") (defvar http-tunnel-port 80) @@ -14,8 +35,7 @@ host service emacs-major-version emacs-minor-version)) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer (while (and (memq (process-status proc) '(open run)) need-to-spin) (accept-process-output proc 3) (goto-char (point-min)) diff --git a/contrib/w3-imenu.el b/contrib/w3-imenu.el index 0040125..1516d8d 100644 --- a/contrib/w3-imenu.el +++ b/contrib/w3-imenu.el @@ -1,5 +1,24 @@ -;;;$Id: w3-imenu.el,v 1.1 1998/12/01 22:11:57 wmperry Exp $ -;;;Description: Build up navigation index for W3 documents: +;;; w3-imenu.el --- Build up navigation index for W3 documents + +;; Copyright (c) 2013 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>. + +;;; Code: + (require 'cl) (require 'imenu) ;;{{{ Tags to index @@ -46,7 +65,6 @@ Return nil and leave point at end of buffer if not found." (defun w3-imenu-create-index () "Returns an alist suitable for use by imenu" - (declare (special w3-imenu-index-html-elements)) (let ((index nil) (position nil) (marker nil)) @@ -67,13 +85,12 @@ Return nil and leave point at end of buffer if not found." ;;}}} ;;{{{ Tell W3 to start using it: -(declaim (special imenu-create-index-function)) +(defvar imenu-create-index-function) (add-hook 'w3-mode-hook - (function - (lambda () - (setq imenu-create-index-function 'w3-imenu-create-index) - (define-key w3-mode-map "j" 'imenu)))) + (lambda () + (setq imenu-create-index-function 'w3-imenu-create-index) + (define-key w3-mode-map "j" 'imenu))) ;;}}} (provide 'w3-imenu) diff --git a/tests/url-test.el b/tests/url-test.el index 7060172..c7516e3 100644 --- a/tests/url-test.el +++ b/tests/url-test.el @@ -1,6 +1,31 @@ +;;; url-test.el --- URL parsing test suite + +;; Copyright (c) 2013 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + ;; This test suite derived from: ;; http://www.ics.uci.edu/%7Efielding/url/test1.html +;; FIXME: This should be moved to emacs/test/automated. + +;;; Code: + (defun url-parsing-test-suite () (interactive) (let* ((base-url "http://a/b/c/d;p?q") ----------------------------------------------------------------------- Summary of changes: contrib/http-tunnel.el | 24 ++++++++++++++++++++++-- contrib/w3-imenu.el | 33 +++++++++++++++++++++++++-------- tests/url-test.el | 25 +++++++++++++++++++++++++ 3 files changed, 72 insertions(+), 10 deletions(-) hooks/post-receive -- ELPA