1:17 p.m.
Hi.
Every time I open a new planner page in XEmacs beta, I get a
warning/backtrace, and the buffer is not fontified. Forcing the buffer
to be re-fontified works though. It seems to be an XEmacs beta
specific problem, since It worked under XEmacs 21.4.17 I was using
before.
I'm using XEmacs 21.5 from CVS on an Ubuntu dapper system.
Thanks
Neilen
(1) (file-mode-spec/warning) Error in File mode specification: End of buffer
Backtrace follows:
# bind (buffer-read-only diary-modified mark)
# (unwind-protect ...)
# (unwind-protect ...)
# bind (d-file date-string diary-entries-list old-diary-syntax-table
# original-date number date)
list-diary-entries((5 28 2006) 1)
# (unwind-protect ...)
(unwind-protect (list-diary-entries date (or number 1)) (let
((d-buffer (find-buffer-visiting diary-file))) (when d-buffer
(set-buffer d-buffer) (subst-char-in-region (point-min) (point-max)
?\r ?\n t) (setq selective-display nil) (set-buffer-modified-p
diary-modified))))
# bind (diary-modified d-buffer diary-hook diary-display-hook
# list-diary-entries-hook diary-file)
(let* ((diary-file file) (list-diary-entries-hook (quote
(include-other-diary-files))) (diary-display-hook (quote ignore))
(diary-hook nil) (d-buffer (find-buffer-visiting diary-file))
(diary-modified (when d-buffer (set-buffer d-buffer)
(buffer-modified-p)))) (unwind-protect (list-diary-entries date (or
number 1)) (let ((d-buffer (find-buffer-visiting diary-file))) (when
d-buffer (set-buffer d-buffer) (subst-char-in-region (point-min)
(point-max) ?\r ?\n t) (setq selective-display nil)
(set-buffer-modified-p diary-modified)))))
# (unwind-protect ...)
(save-excursion (let* ((diary-file file) (list-diary-entries-hook
(quote (include-other-diary-files))) (diary-display-hook (quote
ignore)) (diary-hook nil) (d-buffer (find-buffer-visiting
diary-file)) (diary-modified (when d-buffer (set-buffer d-buffer)
(buffer-modified-p)))) (unwind-protect (list-diary-entries date (or
number 1)) (let ((d-buffer (find-buffer-visiting diary-file))) (when
d-buffer (set-buffer d-buffer) (subst-char-in-region (point-min)
(point-max) ?\r ?\n t) (setq selective-display nil)
(set-buffer-modified-p diary-modified))))))
(progn (save-excursion (let* ((diary-file file) (list-diary-entries-hook (quote
(include-other-diary-files))) (diary-display-hook (quote ignore)) (diary-hook nil)
(d-buffer (find-buffer-visiting diary-file)) (diary-modified (when d-buffer (set-buffer
d-buffer) (buffer-modified-p)))) (unwind-protect (list-diary-entries date (or number 1))
(let ((d-buffer (find-buffer-visiting diary-file))) (when d-buffer (set-buffer d-buffer)
(subst-char-in-region (point-min) (point-max) ?\r ?\n t) (setq selective-display nil)
(set-buffer-modified-p diary-modified)))))))
# (unwind-protect ...)
(unwind-protect (progn (save-excursion (let* ((diary-file file)
(list-diary-entries-hook (quote (include-other-diary-files)))
(diary-display-hook (quote ignore)) (diary-hook nil) (d-buffer
(find-buffer-visiting diary-file)) (diary-modified (when d-buffer
(set-buffer d-buffer) (buffer-modified-p)))) (unwind-protect
(list-diary-entries date (or number 1)) (let ((d-buffer
(find-buffer-visiting diary-file))) (when d-buffer (set-buffer
d-buffer) (subst-char-in-region (point-min) (point-max) ?\r ?\n t)
(setq selective-display nil) (set-buffer-modified-p
diary-modified))))))) (set-window-configuration G67421))
# bind (G67421)
(let ((G67421 (current-window-configuration))) (unwind-protect
(progn (save-excursion (let* ((diary-file file)
(list-diary-entries-hook (quote (include-other-diary-files)))
(diary-display-hook (quote ignore)) (diary-hook nil) (d-buffer
(find-buffer-visiting diary-file)) (diary-modified (when d-buffer
(set-buffer d-buffer) (buffer-modified-p)))) (unwind-protect
(list-diary-entries date (or number 1)) (let ((d-buffer
(find-buffer-visiting diary-file))) (when d-buffer (set-buffer
d-buffer) (subst-char-in-region (point-min) (point-max) ?\r ?\n t)
(setq selective-display nil) (set-buffer-modified-p
diary-modified))))))) (set-window-configuration G67421)))
(save-window-excursion (save-excursion (let* ((diary-file file) (list-diary-entries-hook
(quote (include-other-diary-files))) (diary-display-hook (quote ignore)) (diary-hook nil)
(d-buffer (find-buffer-visiting diary-file)) (diary-modified (when d-buffer (set-buffer
d-buffer) (buffer-modified-p)))) (unwind-protect (list-diary-entries date (or number 1))
(let ((d-buffer (find-buffer-visiting diary-file))) (when d-buffer (set-buffer d-buffer)
(subst-char-in-region (point-min) (point-max) ?\r ?\n t) (setq selective-display nil)
(set-buffer-modified-p diary-modified)))))))
# bind (number date file)
planner-list-diary-entries("~/lewe/planner/cyclic_tasks" (5 28 2006)
1)
(mapcar (lambda (item) (when (string-match "#[A-C].+" (elt item 1))
(match-string 0 (elt item 1)))) (planner-list-diary-entries planner-cyclic-diary-file date
1))
(delq nil (mapcar (lambda (item) (when (string-match "#[A-C].+" (elt
item 1)) (match-string 0 (elt item 1)))) (planner-list-diary-entries
planner-cyclic-diary-file date 1)))
# bind (date)
(let ((date (if (stringp date) (planner-filename-to-calendar-date
date) date))) (delq nil (mapcar (lambda (item) (when (string-match
"#[A-C].+" (elt item 1)) (match-string 0 (elt item 1))))
(planner-list-diary-entries planner-cyclic-diary-file date 1))))
# bind (no-of-days date)
planner-cyclic-get-cyclic-tasks("2006.05.28")
(mapcar (lambda (task-string) (when task-string
(planner-cyclic-create-task-maybe (planner-page-name) task-string)))
(planner-cyclic-get-cyclic-tasks (planner-page-name))) (if (and
(planner-derived-mode-p (quote planner-mode)) (planner-page-name)
(not muse-publishing-p) (string-match planner-date-regexp
(planner-page-name)) (or (string< (planner-today)
(planner-page-name)) (string= (planner-today) (planner-page-name))))
(mapcar (lambda (task-string) (when task-string
(planner-cyclic-create-task-maybe (planner-page-name) task-string)))
(planner-cyclic-get-cyclic-tasks (planner-page-name)))) (when (and
(planner-derived-mode-p (quote planner-mode)) (planner-page-name)
(not muse-publishing-p) (string-match planner-date-regexp
(planner-page-name)) (or (string< (planner-today)
(planner-page-name)) (string= (planner-today) (planner-page-name))))
(mapcar (lambda (task-string) (when task-string
(planner-cyclic-create-task-maybe (planner-page-name) task-string)))
(planner-cyclic-get-cyclic-tasks (planner-page-name))))
planner-cyclic-create-tasks-maybe() run-hooks(muse-mode-hook
planner-cyclic-create-tasks-maybe) apply(run-hooks (muse-mode-hook
planner-mode-hook))
# bind (hooks)
run-mode-hooks(planner-mode-hook)
(if (fboundp (quote run-mode-hooks)) (run-mode-hooks (quote
planner-mode-hook)) (run-hooks (quote planner-mode-hook)))
planner-mode()
funcall(planner-mode)
# bind (project)
(let ((project (muse-project-of-file))) (funcall (or (and project
(muse-get-keyword :major-mode (cadr project) t)) (quote
muse-mode)))) muse-mode-choose-mode()
# bind (alist mode name keep-going)
# (unwind-protect ...)
# bind (just-from-file-name)
set-auto-mode()
#<compiled-function nil "...(5)" [set-auto-mode t] 1>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function
(__call_trapping_errors_arg__) "...(17)"
[__call_trapping_errors_arg__ errstr error-message-string lwarn
file-mode-spec warning "Error in %s: %s\n\nBacktrace follows:\n\n%s"
"File mode specification"
backtrace-in-condition-handler-eliminating-handler] 8>
#<compiled-function nil "...(5)" [set-auto-mode t] 1>)
# (condition-case ... . ((error)))
# bind (find-file)
normal-mode(t)
# bind (nomodes after-find-file-from-revert-buffer noauto warn error)
after-find-file(nil t)
# (unwind-protect ...)
# bind (inhibit-read-only error number truename rawfile nowarn filename buf)
find-file-noselect-1(#<buffer "2006.05.28.muse">
"/home/brick/lewe/planner/2006.05.28.muse" nil nil
"/home/brick/lewe/planner/2006.05.28.muse" (2818400 2050))
byte-code("..." [number truename rawfile nowarn filename buf
set-buffer-major-mode find-file-noselect-1] 7)
# (condition-case ... . ((t (byte-code "Â!Ã ＠ A\"" [buf data
# kill-buffer signal] 3))))
# bind (number truename buf wildcards rawfile nowarn filename)
find-file-noselect("/home/brick/lewe/planner/2006.05.28.muse" nil nil nil)
# bind (wildcards codesys filename)
find-file-other-window("/home/brick/lewe/planner/2006.05.28.muse")
funcall(find-file-other-window "/home/brick/lewe/planner/2006.05.28.muse")
(if (cdr name) (funcall (or command (quote find-file)) (cdr name))
(error "There is no page %s in project %s." (car name)
project-name))
# bind (project-name)
(let ((project-name (car project))) (unless (interactive-p) (setq
project (muse-project project) name (cons name
(muse-project-page-file name project)))) (if (and (car name)
(save-match-data (or (string-match muse-file-regexp (car name))
(string-match muse-image-regexp (car name))))) (setcdr name (car
name)) (unless (cdr name) (let ((pats (cadr project))) (while (and
pats (null directory)) (if (symbolp (car pats)) (setq pats (cddr
pats)) (if (file-directory-p (car pats)) (setq directory (car pats)
pats nil) (setq pats (cdr pats)))))) (when directory (let ((filename
(expand-file-name (if (and muse-file-extension (not (string=
muse-file-extension ""))) (concat (car name) "."
muse-file-extension) (car name)) directory))) (unless (file-exists-p
directory) (make-directory directory t)) (setcdr name filename)))))
(if (cdr name) (funcall (or command (quote find-file)) (cdr name))
(error "There is no page %s in project %s." (car name)
project-name)))
# bind (directory command project name)
muse-project-find-file("2006.05.28" "leweplanner"
find-file-other-window nil)
# bind (directory command wiki)
planner-find-file("2006.05.28" find-file-other-window)
(progn (planner-find-file date (if planner-use-other-window (quote
find-file-other-window) (quote find-file))) (widen) (goto-char
(point-min)) (run-hooks (quote planner-goto-hook)) t) (if (or (not
just-show) (planner-page-exists-p date)) (progn (planner-find-file
date (if planner-use-other-window (quote find-file-other-window)
(quote find-file))) (widen) (goto-char (point-min)) (run-hooks
(quote planner-goto-hook)) t) (when (interactive-p) (message "No
planner file for %s." date)) nil)
# bind (just-show date)
planner-goto("2006.05.28")
planner-goto-today()
(progn (unless force-days (setq force-days (if (equal
planner-carry-tasks-forward t) 1 planner-carry-tasks-forward)))
(when (and (integerp force-days) (= force-days 0)) (setq force-days
t)) (planner-goto-today) (let* ((today (planner-today)) (names
(planner-get-day-pages nil (planner-yesterday))) (today-buffer
(current-buffer)) (planner-tasks-file-behavior (or
planner-tasks-file-behavior (quote save))) (planner-use-other-window
nil) (live-buffers (and (equal planner-tasks-file-behavior (quote
close)) (buffer-list)))) (when (and (integerp force-days) (> (length
names) force-days)) (setcdr (nthcdr (1- force-days) names) nil))
(when force-days (while names (find-file (cdar names)) (when (not
(equal today (planner-page-name))) (let
((planner-tasks-file-behavior nil)) (planner-copy-or-move-region
(point-min) (point-max) (planner-today) t)) (unless
(buffer-modified-p) (kill-buffer (current-buffer)))) (setq names
(cdr names)))) (if (or planner-carry-tasks-forward
(planner-page-file today) (null names)) (planner-goto-today)
(planner-goto (caar names))) (when planner-tasks-file-behavior
(planner-save-buffers live-buffers)))) (if planner-use-day-pages
(progn (unless force-days (setq force-days (if (equal
planner-carry-tasks-forward t) 1 planner-carry-tasks-forward)))
(when (and (integerp force-days) (= force-days 0)) (setq force-days
t)) (planner-goto-today) (let* ((today (planner-today)) (names
(planner-get-day-pages nil (planner-yesterday))) (today-buffer
(current-buffer)) (planner-tasks-file-behavior (or
planner-tasks-file-behavior (quote save))) (planner-use-other-window
nil) (live-buffers (and (equal planner-tasks-file-behavior (quote
close)) (buffer-list)))) (when (and (integerp force-days) (> (length
names) force-days)) (setcdr (nthcdr (1- force-days) names) nil))
(when force-days (while names (find-file (cdar names)) (when (not
(equal today (planner-page-name))) (let
((planner-tasks-file-behavior nil)) (planner-copy-or-move-region
(point-min) (point-max) (planner-today) t)) (unless
(buffer-modified-p) (kill-buffer (current-buffer)))) (setq names
(cdr names)))) (if (or planner-carry-tasks-forward
(planner-page-file today) (null names)) (planner-goto-today)
(planner-goto (caar names))) (when planner-tasks-file-behavior
(planner-save-buffers live-buffers)))) (planner-find-file (or
planner-default-page planner-initial-page)))
# bind (force-days)
plan()
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
(load-internal "[internal]")
load-internal("emacs-wiki-sy" nil nil nil binary)
# bind (path handler filename nosuffix nomessage noerror file)
load("emacs-wiki-sy")
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
# (unwind-protect ...)
(load-internal "[internal]")
load-internal("/home/brick/.xemacs/init.el" t t t binary)
# bind (path handler filename nosuffix nomessage noerror file)
load("/home/brick/.xemacs/init.el" t t t)
load-user-init-file()
#<compiled-function nil "...(10)" [init-file-had-error
load-user-init-file-p load-user-init-file nil] 2>()
# (unwind-protect ...)
call-with-condition-handler(#<compiled-function
(__load_init_file_arg__) "...(26)" [init-file-had-error
user-init-file __load_init_file_arg__ errstr error-message-string
message "Error in init file: %s" lwarn initialization error "An
error has occurred while loading %s:\n\n%s\n\nBacktrace
follows:\n\n%s\n\nTo ensure normal operation, you should investigate
the cause of the error\nin your initialization file and remove it.
Use the `-debug-init' option\nto XEmacs to enter the debugger when
the error occurs and investigate the\nexact problem."
backtrace-in-condition-handler-eliminating-handler t] 8>
#<compiled-function nil "...(10)" [init-file-had-error
load-user-init-file-p load-user-init-file nil] 2>)
# (condition-case ... . ((error)))
# bind (debug-on-error debug-on-error-from-init-file
# debug-on-error-should-be-set debug-on-error-initial)
load-init-file()
# bind (command-line-args-left)
command-line()
# (condition-case ... . ((t (byte-code " Â" [error-data data nil]
# 1))))
# bind (error-data)
normal-top-level()
# (condition-case ... . error)
# (catch top-level ...)
--
you know its kind of tragic
we live in the new world
but we've lost the magic
-- Battery 9 (www.battery9.co.za)