Re: [emacs-wiki-discuss] Re: Planner Publish

[Neilen Marais]

Hi Michael

On Thu, 2005-06-30 at 13:12 -0500, Michael Olson wrote:
> Neilen Marais <address@hidden> writes:

> I've been trying to actively improve the XEmacs compatibility of
> emacs-wiki.

That's great news, thanks!

> Could you take a look at the latest development tarball at
> http://www.mwolson.org/static/dist/emacs-wiki-latest.tar.gz and tell
> me if it works any better for you?

I tried that file, dated 29-Jun-2005, and it shows the same behaviour.
Additionally, no font-locking is happening at all.

> If you're still getting a UTF-8 error or something that causes
> publishing to fail, please take a look at
> http://www.mwolson.org/projects/ReportingEmacsLispBugs.html and try to
> mail me a backtrace according to the directions.

`emacs-version' is a variable declared in Lisp.
  -- loaded from "/build/buildd/xemacs21-21.4.17/lisp/version.el"

Value: "21.4 (patch 17) \"Jumbo Shrimp\" XEmacs Lucid"

`emacs-wiki-version' is a variable declared in Lisp.
  -- loaded from "emacs-wiki"

Value: "2.69.91 (RC2)"

The attached file is my emacs-wiki related config.

Here is the backtrace (it's quite long!):

Signaling: (error "No such coding system" utf-8)
  encode-coding-region(1 18 utf-8)
  encode-coding-string("NeilenMarais.html" utf-8)
  (if (fboundp (quote encode-coding-string)) (encode-coding-string str (or 
coding emacs-wiki-publish-url-coding-system ...)) str)
  (append (if (fboundp ...) (encode-coding-string str ...) str) nil)
  (mapcar (lambda (ch) (cond ... ... ... ... ... ... ...)) (append (if ... ... 
str) nil))
  (apply (function concat) (mapcar (lambda ... ...) (append ... nil)))
  (progn (apply (function concat) (mapcar ... ...)))
  (unwind-protect (progn (apply ... ...)) (store-match-data match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data 
match-data)))
  (save-match-data (apply (function concat) (mapcar ... ...)))
  emacs-wiki-escape-url("NeilenMarais.html")
  (if (string-match "#" link) (concat (emacs-wiki-escape-url ...) "#" 
(substring link ...)) (emacs-wiki-escape-url (emacs-wiki-published-name link 
...)))
  (cond ((emacs-wiki-wiki-url-p link) (emacs-wiki-escape-url link)) ((or ... 
...) link) ((assoc ... ...) (if ... ... ...)))
  (progn (cond (... ...) (... link) (... ...)))
  (unwind-protect (progn (cond ... ... ...)) (store-match-data match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data 
match-data)))
  (save-match-data (cond (... ...) (... link) (... ...)))
  (let ((link ...)) (save-match-data (cond ... ... ...)))
  emacs-wiki-link-url("NeilenMarais")
  (concat emacs-wiki-project-server-prefix (emacs-wiki-link-url 
(emacs-wiki-page-name tag)))
  (file-name-directory (concat emacs-wiki-project-server-prefix 
(emacs-wiki-link-url ...)))
  (let* ((tag ...) (page-publishing-directory ...) (url ...)) (cond (... "") 
(...) (...)))
  (if emacs-wiki-publishing-p (let* (... ... ...) (cond ... ... ...)) (or 
(emacs-wiki-page-file ...) tag))
  (save-current-buffer (set-buffer temp-buffer) (emacs-wiki-change-project 
project) (if emacs-wiki-publishing-p (let* ... ...) (or ... tag)))
  (with-current-buffer temp-buffer (emacs-wiki-change-project project) (if 
emacs-wiki-publishing-p (let* ... ...) (or ... tag)))
  (unwind-protect (with-current-buffer temp-buffer (emacs-wiki-change-project 
project) (if emacs-wiki-publishing-p ... ...)) (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 project) (if 
emacs-wiki-publishing-p (let* ... ...) (or ... tag)))
  (with-emacs-wiki-project project (if emacs-wiki-publishing-p (let* ... ...) 
(or ... tag)))
  emacs-wiki-project-interwiki-link("LeweWiki" "NeilenMarais")
  (lambda (tag) (emacs-wiki-project-interwiki-link "LeweWiki" 
tag))("NeilenMarais")
  funcall((lambda (tag) (emacs-wiki-project-interwiki-link "LeweWiki" tag)) 
"NeilenMarais")
  (if (stringp target) (concat target tag) (funcall target tag))
  (setq name (if (stringp target) (concat target tag) (funcall target tag)))
  (let ((tag ...) (target ...)) (setq name (if ... ... ...)))
  (if (and emacs-wiki-interwiki-names (string-match 
"\\`\\([^#]+\\)\\(#\\(.+\\)\\)?\\'" name) (setq lookup ...)) (let (... ...) 
(setq name ...)) (if (eq ... ?\#) (setq name ...)))
  (if (or (not ...) (emacs-wiki-page-file name)) nil (if (and 
emacs-wiki-interwiki-names ... ...) (let ... ...) (if ... ...)))
  (unless (or (not ...) (emacs-wiki-page-file name)) (if (and 
emacs-wiki-interwiki-names ... ...) (let ... ...) (if ... ...)))
  (let ((name wiki-name) lookup) (if (string-match "^\\[\\[\\([^]]+\\)\\]" 
name) (setq name ...)) (unless (or ... ...) (if ... ... ...)) 
(emacs-wiki-link-unescape name))
  (progn (let (... lookup) (if ... ...) (unless ... ...) 
(emacs-wiki-link-unescape name)))
  (unwind-protect (progn (let ... ... ... ...)) (store-match-data match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data 
match-data)))
  (save-match-data (let (... lookup) (if ... ...) (unless ... ...) 
(emacs-wiki-link-unescape name)))
  emacs-wiki-wiki-link-target("[[LeweWiki#NeilenMarais][I]]")
  (let ((link ...)) (save-match-data (cond ... ... ...)))
  emacs-wiki-link-url("[[LeweWiki#NeilenMarais][I]]")
  (let* (string (wiki-link ...) (url ...) (text ...) (name text)) (when (and 
url ...) (let ... ...)) (when (and name ...) (let ... ...)) (when name (setq 
name ...)) (setq string (if ... ... ...)) (when (not ...) (let ... ... ...)) "")
  (if (and (not ...) (not ...)) (let* (string ... ... ... ...) (when ... ...) 
(when ... ...) (when name ...) (setq string ...) (when ... ...) ""))
  (when (and (not ...) (not ...)) (let* (string ... ... ... ...) (when ... ...) 
(when ... ...) (when name ...) (setq string ...) (when ... ...) ""))
  (progn (when (and ... ...) (let* ... ... ... ... ... ... "")))
  (unwind-protect (progn (when ... ...)) (store-match-data match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data 
match-data)))
  (save-match-data (when (and ... ...) (let* ... ... ... ... ... ... "")))
  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 emacs-wiki-current-file 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 emacs-wiki-current-file file) 
(emacs-wiki-maybe) (unless ... ...) (emacs-wiki-write-buffer output-path)))
  (with-current-buffer temp-buffer (let (...) (insert-file-contents file t) (cd 
...) (setq emacs-wiki-current-file 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 
emacs-wiki-current-file file) (emacs-wiki-maybe) (unless ... ...) 
(emacs-wiki-write-buffer output-path)))
  emacs-wiki-publish-current("/home/brick/akademie/wiki/PhD" 
"/home/brick/public_html/akademi/PhD.html")
  funcall(emacs-wiki-publish-current "/home/brick/akademie/wiki/PhD" 
"/home/brick/public_html/akademi/PhD.html")
  (save-current-buffer (set-buffer temp-buffer) (emacs-wiki-change-project 
project) (funcall emacs-wiki-publish-function file published))
  (with-current-buffer temp-buffer (emacs-wiki-change-project project) (funcall 
emacs-wiki-publish-function file published))
  (unwind-protect (with-current-buffer temp-buffer (emacs-wiki-change-project 
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 project) (funcall 
emacs-wiki-publish-function file published))
  (with-emacs-wiki-project project (funcall emacs-wiki-publish-function file 
published))
  (let ((project emacs-wiki-current-project)) (with-emacs-wiki-project project 
(funcall emacs-wiki-publish-function file published)))
  (progn (let (...) (with-emacs-wiki-project project ...)) (run-hook-with-args 
(quote emacs-wiki-after-file-publish-hook) file) (setq published-some t))
  (if (and (not ...) (or force ...)) (progn (let ... ...) (run-hook-with-args 
... file) (setq published-some t)))

For what it's worth, I'm running Ununtu Hoary, and everything is set up
to use UTF-8. Also, I found that uncommenting these lines:

;(setq emacs-wiki-default-coding 'iso-8859-1)
;(setq emacs-wiki-coding-default 'iso-8859-1)
;(setq emacs-wiki-charset-default "iso-8859-1")

does not make any difference.

Thanks
Neilen

> 
> _______________________________________________
> emacs-wiki-discuss mailing list
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss

emacs-wiki-sy.el
Description: Text Data