[emacs-wiki-discuss] Help resolving warning on publish

[Seth Falcon]

Hi all,

I've just updated to latest tla revisions for planner, emacs-wiki, and
remember and am seeing the following when I call
emacs-wiki-publish-this-file:

Warning (emacs-wiki):  *emacs-wiki-temp*: Error occurred:
(wrong-type-argument stringp nil)

I tried setting debug-on-error t and get a backtrace (below).  I think
I must have some outdated thing in my config causing problems.  I'd be
most appreciative of help pinpointing it.

Thanks,

+ seth


Here's the backtrace:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  file-name-nondirectory(nil)
  set-visited-file-name("/Users/seth/Notebook/web/Plans/TingAgenda.html" t)
  write-file("/Users/seth/Notebook/web/Plans/TingAgenda.html")
  (let ((backup-inhibited t) (buffer-file-coding-system ...) 
(find-file-literally t)) (when (eq buffer-file-coding-system ...) (setq 
buffer-file-coding-system emacs-wiki-coding-default)) (write-file output-path))
  emacs-wiki-write-buffer("/Users/seth/Notebook/web/Plans/TingAgenda.html")
  (let ((emacs-wiki-publishing-p t) (emacs-wiki-current-file file)) 
(insert-file-contents file) (cd (file-name-directory file)) (emacs-wiki-maybe) 
(setq emacs-wiki-current-file file) (setq buffer-file-name nil) (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) (cd ...) (emacs-wiki-maybe) (setq 
emacs-wiki-current-file file) (setq buffer-file-name nil) (unless ... ...) 
(emacs-wiki-write-buffer output-path)))
  (with-current-buffer temp-buffer (let (... ...) (insert-file-contents file) 
(cd ...) (emacs-wiki-maybe) (setq emacs-wiki-current-file file) (setq 
buffer-file-name nil) (unless ... ...) (emacs-wiki-write-buffer output-path)))
  (if debug-on-error (with-current-buffer temp-buffer (let ... ... ... ... ... 
... ... ...)) (condition-case err (with-current-buffer temp-buffer ...) (error 
...)))
  (unwind-protect (if debug-on-error (with-current-buffer temp-buffer ...) 
(condition-case err ... ...)) (when (buffer-live-p temp-buffer) 
(with-current-buffer temp-buffer ...) (unless debug-on-error ...)))
  (let ((temp-buffer ...)) (unwind-protect (if debug-on-error ... ...) (when 
... ... ...)))
  (emacs-wiki-with-temp-buffer (let (... ...) (insert-file-contents file) (cd 
...) (emacs-wiki-maybe) (setq emacs-wiki-current-file file) (setq 
buffer-file-name nil) (unless ... ...) (emacs-wiki-write-buffer output-path)))
  emacs-wiki-publish-current("/Users/seth/Notebook/wiki/Plans/TingAgenda" 
"/Users/seth/Notebook/web/Plans/TingAgenda.html")
  funcall(emacs-wiki-publish-current 
"/Users/seth/Notebook/wiki/Plans/TingAgenda" 
"/Users/seth/Notebook/web/Plans/TingAgenda.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))
  (if debug-on-error (with-current-buffer temp-buffer 
(emacs-wiki-change-project project) (funcall emacs-wiki-publish-function file 
published)) (condition-case err (with-current-buffer temp-buffer ... ...) 
(error ...)))
  (unwind-protect (if debug-on-error (with-current-buffer temp-buffer ... ...) 
(condition-case err ... ...)) (when (buffer-live-p temp-buffer) 
(with-current-buffer temp-buffer ...) (unless debug-on-error ...)))
  (let ((temp-buffer ...)) (unwind-protect (if debug-on-error ... ...) (when 
... ... ...)))
  (emacs-wiki-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)))
  (when (and (not ...) (or force ...)) (let (...) (with-emacs-wiki-project 
project ...)) (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 ... ...) (let ... ...) 
(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(("/Users/seth/Notebook/wiki/Plans/TingAgenda") t)
  emacs-wiki-publish-this-page()
  call-interactively(emacs-wiki-publish-this-page)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)