[emacs-wiki-discuss] emacs-wiki publish error under emacs22

[Li Daobing]

I am using Debian/Linux
emacs-wiki version is 2.67.1-2

There is no problem under emacs21

Following is the Debug info

Debugger entered--Lisp error: (wrong-type-argument charsetp (char-charset char))
  charset-plist((char-charset char))
  #[(charset) "ÁÂ!Ã\"‡" [charset plist-get charset-plist :short-name]
3 1632641]((char-charset char))
  (charset-short-name (char-charset char))
  (string= (charset-short-name (char-charset char)) "ASCII")
  (if (string= (charset-short-name ...) "ASCII") (setq len (length
code) str (replace-match ... nil nil str) pos (+ 3 len pos)) (cond
(... ...) (... ...) (... ...) (... ...) (t ...)))
  (while (and (setq pos ...) (setq char ...)) (setq code
(int-to-string ...)) (if (string= ... "ASCII") (setq len ... str ...
pos ...) (cond ... ... ... ... ...)))
  (progn (while (and ... ...) (setq code ...) (if ... ... ...)) str)
  (unwind-protect (progn (while ... ... ...) str) (set-match-data
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...
str) (set-match-data save-match-data-internal)))
  (save-match-data (while (and ... ...) (setq code ...) (if ... ... ...)) str)
  (let (pos code len char) (save-match-data (while ... ... ...) str))
  (progn (let (pos code len char) (save-match-data ... str)))
  (if str (progn (let ... ...)))
  (when str (let (pos code len char) (save-match-data ... str)))
  emacs-wiki-escape-html-string("Gaussian Inc.")
  (if (and url (string-match emacs-wiki-image-regexp url)) (format
"<img src=\"%s\" alt=\"%s\" />" url (emacs-wiki-escape-html-string
name)) (emacs-wiki-escape-html-string name))
  (if (string-match emacs-wiki-image-regexp name) (if (string-match
"^\\([^ ]+\\)\\s-+\\(.+\\)" name) (format "<img src=\"%s\" alt=\"%s\"
/>" ... ...) (concat "<img src=\"" name "\" />")) (if (and url ...)
(format "<img src=\"%s\" alt=\"%s\" />" url ...)
(emacs-wiki-escape-html-string name)))
  (setq name (if (string-match emacs-wiki-image-regexp name) (if ...
... ...) (if ... ... ...)))
  (progn (setq name (if ... ... ...)))
  (if name (progn (setq name ...)))
  (when name (setq name (if ... ... ...)))
  (let* (string (wiki-link ...) (url ...) (text ...) (name text))
(when (and url ...) (let ... ...)) (when (and name ...) (let ... ...))
(when name (setq name ...)) (setq string (if ... ... ...)) (when (>
... 0) (add-text-properties 0 ... ... string)) string)
  (progn (let* (string ... ... ... ...) (when ... ...) (when ... ...)
(when name ...) (setq string ...) (when ... ...) string))
  (if (and (not ...) (not ...)) (progn (let* ... ... ... ... ... ... string)))
  (when (and (not ...) (not ...)) (let* (string ... ... ... ...) (when
... ...) (when ... ...) (when name ...) (setq string ...) (when ...
...) string))
  (progn (when (and ... ...) (let* ... ... ... ... ... ... string)))
  (unwind-protect (progn (when ... ...)) (set-match-data
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal)))
  (save-match-data (when (and ... ...) (let* ... ... ... ... ... ... string)))
  emacs-wiki-markup-link()
  funcall(emacs-wiki-markup-link)
  (cond ((functionp replacement) (funcall replacement)) ((symbolp
replacement) (symbol-value replacement)) (t replacement))
  (let ((text ...)) (when text (condition-case nil ... ...)))
  (if (get-text-property (match-beginning group) (quote read-only))
nil (let (...) (when text ...)))
  (unless (get-text-property (match-beginning group) (quote
read-only)) (let (...) (when text ...)))
  (while (and regexp (setq pos ...)) (if verbose (message "Publishing
%s...%d%%" ... ...)) (unless (get-text-property ... ...) (let ...
...)) (if (and last-pos ...) (if ... ... ...)) (setq last-pos pos))
  (let ((regexp ...) (group ...) (replacement ...) last-pos pos) (if
(symbolp regexp) (setq regexp ...)) (if verbose (message "Publishing
%s...%d%%" ... ...)) (while (and regexp ...) (if verbose ...) (unless
... ...) (if ... ...) (setq last-pos pos)))
  (if (functionp (car rules)) (funcall (car rules)) (let (... ... ...
last-pos pos) (if ... ...) (if verbose ...) (while ... ... ... ...
...)))
  (while rules (goto-char (point-min)) (if (functionp ...) (funcall
...) (let ... ... ... ...)) (setq rules (cdr rules) base (+ base
...)))
  (let* ((emacs-wiki-meta-http-equiv emacs-wiki-meta-http-equiv)
(emacs-wiki-current-page-title title) emacs-wiki-current-page-date
(emacs-wiki-publishing-p t) (case-fold-search nil) (inhibit-read-only
t) (rules ...) (limit ...) (verbose ...) (base 0)
(emacs-wiki-meta-content ...)) (run-hooks (quote
emacs-wiki-before-markup-hook)) (while rules (goto-char ...) (if ...
... ...) (setq rules ... base ...)) (run-hooks (quote
emacs-wiki-after-markup-hook)) (if verbose (message "Publishing
%s...done" ...)))
  emacs-wiki-replace-markup()
  (if (string-match emacs-wiki-image-regexp (emacs-wiki-page-name))
nil (emacs-wiki-replace-markup))
  (unless (string-match emacs-wiki-image-regexp
(emacs-wiki-page-name)) (emacs-wiki-replace-markup))
  (let ((emacs-wiki-publishing-p t)) (insert-file-contents file t) (cd
(file-name-directory file)) (setq buffer-file-name file)
(emacs-wiki-maybe) (unless (string-match emacs-wiki-image-regexp ...)
(emacs-wiki-replace-markup)) (emacs-wiki-write-buffer output-path))
  (save-current-buffer (set-buffer temp-buffer) (let (...)
(insert-file-contents file t) (cd ...) (setq buffer-file-name file)
(emacs-wiki-maybe) (unless ... ...) (emacs-wiki-write-buffer
output-path)))
  (with-current-buffer temp-buffer (let (...) (insert-file-contents
file t) (cd ...) (setq buffer-file-name file) (emacs-wiki-maybe)
(unless ... ...) (emacs-wiki-write-buffer output-path)))
  (unwind-protect (with-current-buffer temp-buffer (let ... ... ...
... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer
temp-buffer ...) (and ... ...)))
  (with-temp-buffer (let (...) (insert-file-contents file t) (cd ...)
(setq buffer-file-name file) (emacs-wiki-maybe) (unless ... ...)
(emacs-wiki-write-buffer output-path)))
  emacs-wiki-publish-current("/home/nichloas/public_html/lab/wiki/Hirshfeld"
"/home/nichloas/public_html/lab/Hirshfeld.html")
  funcall(emacs-wiki-publish-current
"/home/nichloas/public_html/lab/wiki/Hirshfeld"
"/home/nichloas/public_html/lab/Hirshfeld.html")
  (save-current-buffer (set-buffer temp-buffer)
(emacs-wiki-change-project emacs-wiki-current-project) (funcall
emacs-wiki-publish-function file published))
  (with-current-buffer temp-buffer (emacs-wiki-change-project
emacs-wiki-current-project) (funcall emacs-wiki-publish-function file
published))
  (unwind-protect (with-current-buffer temp-buffer
(emacs-wiki-change-project emacs-wiki-current-project) (funcall
emacs-wiki-publish-function file published)) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer
temp-buffer ... ...) (and ... ...)))
  (with-temp-buffer (emacs-wiki-change-project
emacs-wiki-current-project) (funcall emacs-wiki-publish-function file
published))
  (with-emacs-wiki-project emacs-wiki-current-project (funcall
emacs-wiki-publish-function file published))
  (progn (with-emacs-wiki-project emacs-wiki-current-project (funcall
emacs-wiki-publish-function file published)) (run-hook-with-args
(quote emacs-wiki-after-file-publish-hook) file) (setq published-some
t))
  (if (and (not ...) (or force ...)) (progn (with-emacs-wiki-project
emacs-wiki-current-project ...) (run-hook-with-args ... file) (setq
published-some t)))
  (when (and (not ...) (or force ...)) (with-emacs-wiki-project
emacs-wiki-current-project (funcall emacs-wiki-publish-function file
published)) (run-hook-with-args (quote
emacs-wiki-after-file-publish-hook) file) (setq published-some t))
  (while files (setq file (car files) files (cdr files) page
(emacs-wiki-page-name file) published (emacs-wiki-published-file
page)) (let (...) (unless ... ... ...)) (when (and ... ...)
(with-emacs-wiki-project emacs-wiki-current-project ...)
(run-hook-with-args ... file) (setq published-some t)))
  (let ((emacs-wiki-publishing-p t) published-some file page
published) (while files (setq file ... files ... page ... published
...) (let ... ...) (when ... ... ... ...)) published-some)
  emacs-wiki-publish-files(("/home/nichloas/public_html/lab/wiki/Hirshfeld"
"/home/nichloas/public_html/lab/wiki/KVM"
"/home/nichloas/public_html/lab/wiki/itcc"
"/home/nichloas/public_html/lab/wiki/index") (4))
  (if (emacs-wiki-publish-files (cdr files) arg) (progn (run-hooks
...) (message "All Wiki pages%s have been published." ...)) (message
"No Wiki pages%s need publishing at this time." (if
emacs-wiki-current-project ... "")))
  (let* ((names ...) (files ...) (lfiles files) (text-mode-hook ...)
(emacs-wiki-mode-hook nil)) (while names (setcdr lfiles ...) (setq
lfiles ... names ...)) (if (emacs-wiki-publish-files ... arg) (progn
... ...) (message "No Wiki pages%s need publishing at this time."
...)))
  (let ((emacs-wiki-project emacs-wiki-current-project))
(emacs-wiki-refresh-file-alist) (let* (... ... ... ... ...) (while
names ... ...) (if ... ... ...)))
  emacs-wiki-publish((4))
  call-interactively(emacs-wiki-publish)