123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150 |
- (defvar nxml-file-name-ignore-case
- (memq system-type '(windows-nt)))
- (defvar nxml-cached-file-name-auto-coding-regexp nil)
- (defvar nxml-cached-auto-mode-alist nil)
- (defun nxml-file-name-auto-coding-regexp ()
- "Return regexp for filenames for which XML auto-coding should be done."
- (if (eq auto-mode-alist nxml-cached-auto-mode-alist)
- nxml-cached-file-name-auto-coding-regexp
- (let ((alist auto-mode-alist)
- (case-fold-search nxml-file-name-ignore-case)
- regexps)
- (setq nxml-cached-auto-mode-alist alist)
- (while alist
- (when (eq (cdar alist) 'nxml-mode)
- (setq regexps (cons (caar alist) regexps)))
- (setq alist (cdr alist)))
- (setq nxml-cached-file-name-auto-coding-regexp
- (if (null (cdr regexps))
- (car regexps)
- (mapconcat (lambda (r)
- (concat "\\(?:" r "\\)"))
- regexps
- "\\|"))))))
- (defvar nxml-non-xml-set-auto-coding-function nil
- "The function that `set-auto-coding-function' should call for non-XML files.")
- (defun nxml-set-auto-coding (file-name size)
- (if (let ((case-fold-search nxml-file-name-ignore-case)
- (regexp (nxml-file-name-auto-coding-regexp)))
- (and regexp
- (string-match regexp file-name)))
- (nxml-set-xml-coding file-name size)
- (and nxml-non-xml-set-auto-coding-function
- (funcall nxml-non-xml-set-auto-coding-function file-name size))))
- (defun nxml-set-xml-coding (file-name size)
- "Function to use as `set-auto-coding-function' when file is known to be XML."
- (nxml-detect-coding-system (+ (point) (min size 1024))))
- (declare-function xmltok-get-declared-encoding-position "xmltok"
- (&optional limit))
- (defun nxml-detect-coding-system (limit)
- (if (< limit (+ (point) 2))
- (if (eq (char-after) 0) 'no-conversion 'utf-8)
- (let ((first-two-chars (list (char-after)
- (char-after (1+ (point))))))
- (cond ((equal first-two-chars '(#xFE #xFF))
- (and (coding-system-p 'utf-16-be) 'utf-16-be))
- ((equal first-two-chars '(#xFF #xFE))
- (and (coding-system-p 'utf-16-le) 'utf-16-le))
- ((memq 0 first-two-chars)
-
-
-
-
- 'no-conversion)
-
-
-
- (t
- (let ((enc-pos (xmltok-get-declared-encoding-position limit)))
- (cond ((consp enc-pos)
- (or (nxml-mime-charset-coding-system
- (buffer-substring-no-properties (car enc-pos)
- (cdr enc-pos)))
-
-
-
-
-
- 'raw-text))
- (enc-pos 'utf-8)
-
- (t nil))))))))
- (defun nxml-mime-charset-coding-system (charset)
- (let ((charset-sym (intern (downcase charset)))
- (coding-systems (coding-system-list t))
- coding-system ret)
- (while (and coding-systems (not ret))
- (setq coding-system (car coding-systems))
- (if (eq (coding-system-get coding-system 'mime-charset)
- charset-sym)
- (setq ret coding-system)
- (setq coding-systems (cdr coding-systems))))
- ret))
- (defun nxml-start-auto-coding ()
- "Do encoding auto-detection as specified in the XML standard.
- Applied to any files that `auto-mode-alist' says should be handled by
- `nxml-mode'."
- (interactive)
- (unless (eq set-auto-coding-function 'nxml-set-auto-coding)
- (let ((inhibit-quit t))
- (setq nxml-non-xml-set-auto-coding-function set-auto-coding-function)
- (setq set-auto-coding-function 'nxml-set-auto-coding))))
- (defun nxml-stop-auto-coding ()
- "Stop doing encoding auto-detection as specified in the XML standard."
- (interactive)
- (when (eq set-auto-coding-function 'nxml-set-auto-coding)
- (let ((inhibit-quit t))
- (setq set-auto-coding-function nxml-non-xml-set-auto-coding-function)
- (setq nxml-non-xml-set-auto-coding-function nil))))
- (unless (coding-system-get 'us-ascii 'mime-charset)
- (coding-system-put 'us-ascii 'mime-charset 'us-ascii))
- (provide 'nxml-enc)
|