[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [emacs-wiki-discuss] Re: emacs-wiki-journal-add-entry
From: |
Yamagata Yoriyuki |
Subject: |
Re: [emacs-wiki-discuss] Re: emacs-wiki-journal-add-entry |
Date: |
Wed, 24 Nov 2004 22:13:02 +0900 (JST) |
From: Michael Olson <address@hidden>
Subject: [emacs-wiki-discuss] Re: emacs-wiki-journal-add-entry
Date: Wed, 24 Nov 2004 02:51:27 -0500
> Can you update using Arch once more and see if it works properly now?
Unfortunately, I got the same error before. My arch is looking
http://www.mwolson.org/archives/2004. Is this a correct location?
Here are a backtrace.
Debugger entered--Lisp error: (wrong-type-argument stringp ("EmacsWiki" .
"/home/yori/Blog/EmacsWiki"))
string-match("^Category\\([A-Z][a-z]+\\)+$" ("EmacsWiki" .
"/home/yori/Blog/EmacsWiki"))
(if (string-match emacs-wiki-journal-category-regexp (car file)) (setq
category-alist (cons file category-alist)))
(lambda (file) (if (string-match emacs-wiki-journal-category-regexp ...)
(setq category-alist ...)))((("EmacsWiki" . "/home/yori/Blog/EmacsWiki")
("MyJournal1" . "/home/yori/Blog/MyJournal1") ("ComputerMemo" .
"/home/yori/Blog/ComputerMemo") ("CategoryMisc" .
"/home/yori/Blog/CategoryMisc") ("MyJournal" . "/home/yori/Blog/MyJournal")))
mapc((lambda (file) (if (string-match emacs-wiki-journal-category-regexp ...)
(setq category-alist ...))) ((("EmacsWiki" . "/home/yori/Blog/EmacsWiki")
("MyJournal1" . "/home/yori/Blog/MyJournal1") ("ComputerMemo" .
"/home/yori/Blog/ComputerMemo") ("CategoryMisc" .
"/home/yori/Blog/CategoryMisc") ("MyJournal" . "/home/yori/Blog/MyJournal"))
16803 27329))
(progn (mapc (lambda ... ...) file-alist))
(unwind-protect (progn (mapc ... file-alist)) (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 (mapc (lambda ... ...) file-alist))
(let ((file-alist ...) (category-alist nil)) (save-match-data (mapc ...
file-alist)) category-alist)
emacs-wiki-journal-category-alist()
(let* ((directory emacs-wiki-journal-directory) (file-alist ...)
(emacs-wiki-default-page emacs-wiki-journal-default-category))
(emacs-wiki-read-name file-alist "Category: "))
emacs-wiki-journal-prompt-for-category-wiki()
(let ((category ...) (heading ...)) (emacs-wiki-journal-prepare-journal)
(emacs-wiki-journal-add category heading))
emacs-wiki-journal-add-entry()
(let ((emacs-wiki-journal-use-other-window t)) (emacs-wiki-journal-add-entry))
emacs-wiki-journal-add-entry-other-window()
call-interactively(emacs-wiki-journal-add-entry-other-window)
--
Yamagata Yoriyuki