Commit 488f4498 authored by Glenn Morris's avatar Glenn Morris
Browse files

Add 2007 to copyright years.

Switch license to standard GPLv3+ text.
(xsdre-gen-categories): Use mapc rather than mapcar.
parent 9499da38
2007-11-28 Glenn Morris <rgm@gnu.org>
* nxml/nxml-enc.el (xmltok-get-declared-encoding-position):
Declare as a function.
* nxml/nxml-maint.el (nxml-create-unicode-char-name-sets):
* nxml/nxml-mode.el (nxml-get-char-name, nxml-insert-named-char):
* nxml/xsd-regexp.el (xsdre-gen-categories): Use mapc rather than
mapcar.
* nxml/nxml-outln.el (nxml-token-start-tag-p)
(nxml-token-end-tag-p): Move definitions before use.
* nxml/nxml-rap.el (nxml-prolog-regions): Declare for compiler.
* nxml/nxml-uchnm.el (top-level)
(nxml-enable-unicode-char-name-sets-1): Use mapc rather than mapcar.
(nxml-enabled-unicode-blocks): Add custom group.
* nxml/xmltok.el (xmltok-scan-char-ref, xmltok-char-number):
Use string-to-number rather than string-to-int.
* dired-x.el (dired-omit-old-add-entry): Declare as function.
Move definition before use.
(dired-old-find-buffer-nocreate): Declare as function.
* emacs-lisp/check-declare.el (check-declare-locate): Reflow doc.
(check-declare-verify): Handle fset.
* emulation/edt.el (edt-user-emulation-setup): Test
edt-setup-user-bindings is bound before calling.
* emulation/tpu-edt.el: Don't require cl when compiling.
(tpu-emacs-search, tpu-emacs-rev-search): Declare as functions.
(tpu-edt-off): Use condition-case rather than ignore-errors.
Use with-no-warnings.
* eshell/esh-util.el (top-level): Use require rather than load for
ange-ftp.
* mail/supercite.el (sc-version): Redefine as an alias for
emacs-version.
(sc-help-address): Remove.
(sc-version): Use emacs-version rather than sc-version.
(sc-submit-bug-report): Redefine as an alias for report-emacs-bug.
* net/socks.el (socks-original-open-network-stream): Declare as
function. Move definition before use.
2007-11-28 Jay Belanger <jay.p.belanger@gmail.com> 2007-11-28 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-ext.el (math-sqrt-raw, math-map-vec) * calc/calc-ext.el (math-sqrt-raw, math-map-vec)
......
;;; xsd-regexp.el --- translate W3C XML Schema regexps to Emacs regexps ;;; xsd-regexp.el --- translate W3C XML Schema regexps to Emacs regexps
;; Copyright (C) 2003 Free Software Foundation, Inc. ;; Copyright (C) 2003, 2007 Free Software Foundation, Inc.
;; Author: James Clark ;; Author: James Clark
;; Keywords: XML, regexp ;; Keywords: XML, regexp
;; This program is free software; you can redistribute it and/or ;; This file is part of GNU Emacs.
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2 of
;; the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be ;; GNU Emacs is free software; you can redistribute it and/or modify
;; useful, but WITHOUT ANY WARRANTY; without even the implied ;; it under the terms of the GNU General Public License as published by
;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; the Free Software Foundation; either version 3, or (at your option)
;; PURPOSE. See the GNU General Public License for more details. ;; any later version.
;; You should have received a copy of the GNU General Public ;; GNU Emacs is distributed in the hope that it will be useful,
;; License along with this program; if not, write to the Free ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; MA 02111-1307 USA ;; 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: ;;; Commentary:
...@@ -713,7 +715,7 @@ Code is inserted into the current buffer." ...@@ -713,7 +715,7 @@ Code is inserted into the current buffer."
(save-excursion (save-excursion
(set-buffer (find-file-noselect file)) (set-buffer (find-file-noselect file))
(goto-char (point-min)) (goto-char (point-min))
(mapcar (lambda (x) (put x 'xsdre-ranges nil)) xsdre-gen-categories) (mapc (lambda (x) (put x 'xsdre-ranges nil)) xsdre-gen-categories)
(while (re-search-forward "^\\([0-9A-Fa-f]*\\);[^;]*;\\([A-Z][a-z]\\);" (while (re-search-forward "^\\([0-9A-Fa-f]*\\);[^;]*;\\([A-Z][a-z]\\);"
nil nil
t) t)
...@@ -742,31 +744,31 @@ Code is inserted into the current buffer." ...@@ -742,31 +744,31 @@ Code is inserted into the current buffer."
(cdr ranges)))) (cdr ranges))))
(t (t
(put sym 'xsdre-ranges (cons code ranges)))))) (put sym 'xsdre-ranges (cons code ranges))))))
(mapcar (lambda (x) (mapc (lambda (x)
(put x (put x
'xsdre-ranges 'xsdre-ranges
(nreverse (get x 'xsdre-ranges))) (nreverse (get x 'xsdre-ranges)))
nil) nil)
xsdre-gen-categories)) xsdre-gen-categories))
(mapcar (lambda (x) (mapc (lambda (x)
(let ((start (point))) (let ((start (point)))
(pp (list 'xsdre-def-primitive-category (pp (list 'xsdre-def-primitive-category
(list 'quote x) (list 'quote x)
(list 'quote (get x 'xsdre-ranges))) (list 'quote (get x 'xsdre-ranges)))
(current-buffer)) (current-buffer))
(save-excursion (save-excursion
(goto-char start) (goto-char start)
(down-list 2) (down-list 2)
(while (condition-case err (while (condition-case err
(progn (progn
(forward-sexp) (forward-sexp)
t) t)
(error nil)) (error nil))
(when (and (< 70 (current-column)) (when (and (< 70 (current-column))
(not (looking-at ")"))) (not (looking-at ")")))
(insert "\n") (insert "\n")
(lisp-indent-line)))))) (lisp-indent-line))))))
xsdre-gen-categories)) xsdre-gen-categories))
(defun xsdre-def-primitive-category (sym ranges) (defun xsdre-def-primitive-category (sym ranges)
(put sym 'xsdre-ranges ranges) (put sym 'xsdre-ranges ranges)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment