Mercurial > emacs

comparison lisp/nxml/nxml-enc.el @ 86535:5b3df8d4a15b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add 2007 to copyright years. Switch license to standard GPLv3+ text. (xmltok-get-declared-encoding-position): Declare as a function.
author Glenn Morris <rgm@gnu.org>
date Wed, 28 Nov 2007 04:06:40 +0000
parents 2ac1a9b70580
children b9e8ab94c460
comparison
equal deleted inserted replaced
86534:1863c4982b31 86535:5b3df8d4a15b
1 ;;; nxml-enc.el --- XML encoding auto-detection 1 ;;; nxml-enc.el --- XML encoding auto-detection
2 2
3 ;; Copyright (C) 2003 Free Software Foundation, Inc. 3 ;; Copyright (C) 2003, 2007 Free Software Foundation, Inc.
4 4
5 ;; Author: James Clark 5 ;; Author: James Clark
6 ;; Keywords: XML 6 ;; Keywords: XML
7 7
8 ;; This program is free software; you can redistribute it and/or 8 ;; This file is part of GNU Emacs.
9 ;; modify it under the terms of the GNU General Public License as
10 ;; published by the Free Software Foundation; either version 2 of
11 ;; the License, or (at your option) any later version.
12 9
13 ;; This program is distributed in the hope that it will be 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; useful, but WITHOUT ANY WARRANTY; without even the implied 11 ;; it under the terms of the GNU General Public License as published by
15 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 12 ;; the Free Software Foundation; either version 3, or (at your option)
16 ;; PURPOSE. See the GNU General Public License for more details. 13 ;; any later version.
17 14
18 ;; You should have received a copy of the GNU General Public 15 ;; GNU Emacs is distributed in the hope that it will be useful,
19 ;; License along with this program; if not, write to the Free 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; MA 02111-1307 USA 18 ;; GNU General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA.
22 24
23 ;;; Commentary: 25 ;;; Commentary:
24 26
25 ;; User entry points are nxml-start-auto-coding and 27 ;; User entry points are nxml-start-auto-coding and
26 ;; nxml-stop-auto-coding. This is separate from nxml-mode, because 28 ;; nxml-stop-auto-coding. This is separate from nxml-mode, because
69 (funcall nxml-non-xml-set-auto-coding-function file-name size)))) 71 (funcall nxml-non-xml-set-auto-coding-function file-name size))))
70 72
71 (defun nxml-set-xml-coding (file-name size) 73 (defun nxml-set-xml-coding (file-name size)
72 "Function to use as `set-auto-coding-function' when file is known to be XML." 74 "Function to use as `set-auto-coding-function' when file is known to be XML."
73 (nxml-detect-coding-system (+ (point) (min size 1024)))) 75 (nxml-detect-coding-system (+ (point) (min size 1024))))
76
77 (declare-function xmltok-get-declared-encoding-position "xmltok"
78 (&optional limit)) ; autoloaded
74 79
75 (defun nxml-detect-coding-system (limit) 80 (defun nxml-detect-coding-system (limit)
76 (if (< limit (+ (point) 2)) 81 (if (< limit (+ (point) 2))
77 (if (eq (char-after) 0) 'no-conversion 'utf-8) 82 (if (eq (char-after) 0) 'no-conversion 'utf-8)
78 (let ((first-two-chars (list (char-after) 83 (let ((first-two-chars (list (char-after)