[emacs-wiki-discuss] problems publishing pages

[William Henney]

Hi, 

I've recently downloaded emacs-wiki from sacha-stable.tar.gz, which
seems to be version 2.9.0 and have been having problems getting it to
work. 

The first problem I came across was that emacs-wiki-find-file didn't
work as advertised in the docs, however I found the solution to that in
the archives of this list. 

The second problem, for which I can't find a solution in the archives, 
is that neither emacs-wiki-publish nor emacs-wiki-publish-this-page are
working for me. I always get the error:

        wrong-type-argument(warning-level-p :warning)

The full lisp backtrace is included in an attachment below. Any idea
what the problem might be? I have checked that
emacs-wiki-publishing-directory does indeed exist. My setup is XEmacs
21.4.14 on FC1 - full system info is given in another attachment below. 

Thanks

Will Henney

  wrong-type-argument(warning-level-p :warning)
  display-warning(emacs-wiki "default/WelcomePage: Error evaluating (funcall 
emacs-wiki-menu-factory): (void-variable emacs-wiki-menu-factory)" :warning)
  (if (fboundp (quote display-warning)) (display-warning (quote emacs-wiki) 
(format "%s/%s: Error evaluating %s: %s" emacs-wiki-current-project ... form 
err) :warning) (message "%s/%s: Error evaluating %s: %s" 
emacs-wiki-current-project (emacs-wiki-page-name) form err))
  (condition-case err (let (...) (cond ... ... ... ... ...)) (error (if ... ... 
...) "<!--INVALID LISP CODE-->"))
  (progn (condition-case err (let ... ...) (error ... "<!--INVALID LISP 
CODE-->")))
  (unwind-protect (progn (condition-case err ... ...)) (store-match-data 
match-data))
  (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data 
match-data)))
  (save-match-data (condition-case err (let ... ...) (error ... "<!--INVALID 
LISP CODE-->")))
  emacs-wiki-eval-lisp("(funcall emacs-wiki-menu-factory)")
  (insert (emacs-wiki-eval-lisp (prog1 ... ...)))
  (save-excursion (insert (emacs-wiki-eval-lisp ...)))
  (if highlight-p (add-text-properties beg end (list ... t ... ... ... t)) 
(save-excursion (insert ...)))
  emacs-wiki-lisp-tag(2233 #<marker at 2233 in  *temp*<2> 0x9c45484> nil)
  apply(emacs-wiki-lisp-tag (2233 #<marker at 2233 in  *temp*<2> 0x9c45484> 
nil))
  (let ((args ...)) (if (nth 2 tag-info) (nconc args ...)) (if (nth 3 tag-info) 
(nconc args ...)) (apply (nth 4 tag-info) args))
  (progn (setq end (point-marker)) (unless highlight-p (delete-region start 
beg)) (goto-char (if highlight-p beg start)) (let (...) (if ... ...) (if ... 
...) (apply ... args)))
  (if tag-info (progn (setq end ...) (unless highlight-p ...) (goto-char ...) 
(let ... ... ... ...)))
  (when tag-info (setq end (point-marker)) (unless highlight-p (delete-region 
start beg)) (goto-char (if highlight-p beg start)) (let (...) (if ... ...) (if 
... ...) (apply ... args)))
  (let ((closed-tag ...) (start ...) (beg ...) end attrs) (when (nth 2 
tag-info) (let ... ...)) (if (and ... ...) (if ... ... ...)) (when tag-info 
(setq end ...) (unless highlight-p ...) (goto-char ...) (let ... ... ... ...)))
  (if (and tag-info (or ... ...)) (let (... ... ... end attrs) (when ... ...) 
(if ... ...) (when tag-info ... ... ... ...)))
  (when (and tag-info (or ... ...)) (let (... ... ... end attrs) (when ... ...) 
(if ... ...) (when tag-info ... ... ... ...)))
  (let ((tag-info ...)) (when (and tag-info ...) (let ... ... ... ...)))
  emacs-wiki-markup-custom-tags()
  funcall(emacs-wiki-markup-custom-tags)
  (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 ...) start 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 (... ... ... start 
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/wjh/Wiki/WelcomePage" 
"/home/wjh/WebWiki/WelcomePage.html")
  funcall(emacs-wiki-publish-current "/home/wjh/Wiki/WelcomePage" 
"/home/wjh/WebWiki/WelcomePage.html")

xemacs-sysinfo
Description: Text document