[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ELPA-diffs] ELPA branch, externals/w3, updated. 1ba24a1bb49e1d9be7e6539
From: |
Stefan Monnier |
Subject: |
[ELPA-diffs] ELPA branch, externals/w3, updated. 1ba24a1bb49e1d9be7e6539cf857c08566d58575 |
Date: |
Sun, 25 Aug 2013 03:49:34 +0000 |
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 <address@hidden>
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [ELPA-diffs] ELPA branch, externals/w3, updated. 1ba24a1bb49e1d9be7e6539cf857c08566d58575,
Stefan Monnier <=