Re: 6.29c breaks my agenda weekly view

[Bruce Hackett <Bruce.Hackett@met.no>]

Carsten Dominik wrote:
> I cannot reproduce this and believe that something must be wrong in 
> your setup.
> It seems that the variable org-deadline-time-regexp is not defined. 
> The only reason how this could be is that your ToDo.org file is *not* 
> in Org-mode.
>
> - Carsten
>
> On Aug 12, 2009, at 12:45 PM, Bruce Hackett wrote:
>
>> Carsten Dominik wrote:
>>>
>>> On Aug 12, 2009, at 11:29 AM, Bruce Hackett wrote:
>>>
>>>> I have just installed v 6.29c and find that the agenda weekly view 
>>>> (C-c a a) fails with the following message:
>>>>
>>>> Wrong type argument: stringp, nil
>>>>
>>>> If I revert to my previous version 6.28e, the agenda view works 
>>>> properly. I have not changed anything else. This indicates that the 
>>>> problem arose between 6.28e and 6.29c.
>>>>
>>>> I have looked through the gmane threads and the 6.29 release notes 
>>>> from Carsten, but I cannot find anything that would explain this (I 
>>>> may well have overlooked something). I guess this is a trivial 
>>>> problem, but it's beyond me.
>>>>
>>>> Thanks for any help,
>>>> Bruce Hackett
>>>
>>> Please make a backtrace, as explained in the manual.
>>>
>>> - Carsten
>>>
>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> Emacs-orgmode mailing list
>>>> Remember: use `Reply All' to send replies to the list.
>>>> Emacs-orgmode@gnu.org
>>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>>
>> Thanks for pointing the manual entry out to me. Here's the info
>>
>> Versions:
>> emacs 22.1.1
>> org 6.29c
>> Ubuntu 8.04
>>
>> What I did:
>> - Load my org files on startup of emacs
>> - C-u M-x org-reload RET
>> - Turn on Enter Debugger on Error
>> - Select a frame with an org file
>> - Hit C-c a a
>>
>> What happened:
>> - The Agenda frame popped up with a single line:
>> "Week-agenda (W33):"
>>
>> Backtrace:
>> See attached file
>>
>> My .emacs is attached
>>
>> Thanks again,
>> Bruce
>>
>> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>> re-search-forward(nil nil t)
>> (while (re-search-forward regexp nil t) (catch :skip 
>> (org-agenda-skip) (setq s ... txt nil pos ... d2 ... diff ... wdays 
>> ... dfrac ... upcomingp ...) (if ... ...)))
>> (let* ((props ...) (regexp org-deadline-time-regexp) (todayp ...) (d1 
>> ...) d2 diff dfrac wdays pos pos1 category tags ee txt head face s 
>> todo-state upcomingp donep timestr) (goto-char (point-min)) (while 
>> (re-search-forward regexp nil t) (catch :skip ... ... ...)) (nreverse 
>> ee))
>> org-agenda-get-deadlines()
>> (setq rtn (org-agenda-get-deadlines))
>> (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg 
>> :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq 
>> results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq 
>> arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed) 
>> (setq rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...) 
>> (setq results ...)))
>> (while (setq arg (pop args)) (cond (... ... ...) (... ... ... ... 
>> ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...)))
>> (save-restriction (if org-agenda-restrict (narrow-to-region 
>> org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while 
>> (setq arg ...) (cond ... ... ... ... ... ...)))
>> (save-excursion (save-restriction (if org-agenda-restrict ... ...) 
>> (while ... ...)))
>> (let ((case-fold-search nil)) (save-excursion (save-restriction ... 
>> ...)))
>> (save-current-buffer (set-buffer buffer) (unless (org-mode-p) (error 
>> "Agenda file %s is not in `org-mode'" file)) (let (...) 
>> (save-excursion ...)) results)
>> (with-current-buffer buffer (unless (org-mode-p) (error "Agenda file 
>> %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) 
>> results)
>> (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file 
>> %s" file)) (with-current-buffer buffer (unless ... ...) (let ... ...) 
>> results))
>> (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) 
>> (buffer ...) arg results rtn) (if (not buffer) (list ...) 
>> (with-current-buffer buffer ... ... results)))
>> org-agenda-get-day-entries("~/Admin/Org/ToDo.org" (8 10 2009) 
>> :deadline :scheduled :sexp :timestamp)
>> (setq rtn (org-agenda-get-day-entries file date :deadline :scheduled 
>> :sexp :timestamp))
>> (cond ((eq org-agenda-show-log ...) (setq rtn ...)) 
>> (org-agenda-show-log (setq rtn ...)) (t (setq rtn ...)))
>> (catch (quote nextfile) (org-check-agenda-file file) (cond (... ...) 
>> (org-agenda-show-log ...) (t ...)) (setq rtnall (append rtnall rtn)))
>> (while (setq file (pop files)) (catch (quote nextfile) 
>> (org-check-agenda-file file) (cond ... ... ...) (setq rtnall ...)))
>> (while (setq d (pop day-numbers)) (setq date 
>> (calendar-gregorian-from-absolute d) wd (calendar-day-of-week date) s 
>> (point)) (if (or ... ...) (setq start-pos ...) (if ... ...)) (setq 
>> files thefiles rtnall nil) (while (setq file ...) (catch ... ... ... 
>> ...)) (if org-agenda-include-diary (let ... ... ... ...)) (if (or 
>> rtnall org-agenda-show-all-dates) (progn ... ... ... ... ... ... ... 
>> ... ...)))
>> (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files 
>> thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 
>> 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos 
>> end-pos todayp nd wd clocktable-start clocktable-end) (setq 
>> org-agenda-redo-command (list ... ... start-day ndays)) (setq ndays 
>> (or ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ... 
>> day-numbers) (setq ndays ...)) (setq day-numbers (nreverse 
>> day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end 
>> (1+ ...)) (org-prepare-agenda "Day/Week") (org-set-local (quote 
>> org-starting-day) (car day-numbers)) (org-set-local (quote 
>> org-include-all-loc) include-all) (org-set-local (quote 
>> org-agenda-span) (org-agenda-ndays-to-span nd)) (when (and ... ...) 
>> (setq files thefiles rtnall nil) (while ... ...) (when rtnall ... ... 
>> ...)) (unless org-agenda-compact-blocks (let* ... ... ...) 
>> (add-text-properties s ... ...)) (while (setq d ...) (setq date ... 
>> wd ... s ...) (if ... ... ...) (setq files thefiles rtnall nil) 
>> (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (when 
>> (and org-agenda-clockreport-mode clocktable-start) (let ... ... ... 
>> ... ... ... ...)) (goto-char (point-min)) (or org-agenda-multi 
>> (org-fit-agenda-window)) (unless (and ... ...) (goto-char ...) 
>> (recenter -1) (if ... ...)) (goto-char (or start-pos 1)) 
>> (add-text-properties (point-min) (point-max) (quote ...)) 
>> (org-finalize-agenda) (setq buffer-read-only t) (message ""))
>> org-agenda-list(nil)
>> call-interactively(org-agenda-list)
>> (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq 
>> org-agenda-custom-commands org-agenda-custom-commands-orig) 
>> (customize-variable ...)) ((equal keys "a") (call-interactively ...)) 
>> ((equal keys "s") (call-interactively ...)) ((equal keys "t") 
>> (call-interactively ...)) ((equal keys "T") (org-call-with-arg ... 
>> ...)) ((equal keys "m") (call-interactively ...)) ((equal keys "M") 
>> (org-call-with-arg ... ...)) ((equal keys "e") (call-interactively 
>> ...)) ((equal keys "L") (unless ... ...) (unless restriction ... 
>> ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") 
>> (call-interactively ...)) ((equal keys "!") (customize-variable ...)) 
>> (t (error "Invalid agenda key")))
>> (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig 
>> org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf 
>> ...) (bfn ...) entry key type match lprops ans) (unless 
>> org-agenda-overriding-restriction (put ... ... nil) (setq 
>> org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) 
>> (move-marker org-agenda-restrict-end nil)) (put (quote 
>> org-agenda-redo-command) (quote org-lprops) nil) (setq 
>> org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq 
>> ans ... keys ... restriction ...)) (when (and ... restriction) (put 
>> ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... 
>> ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) 
>> (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t 
>> ...)))
>> (catch (quote exit) (let* (... ... ... ... ... entry key type match 
>> lprops ans) (unless org-agenda-overriding-restriction ... ... ... 
>> ...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) 
>> (unless keys ...) (when ... ... ...) (require ...) (cond ... ... ... 
>> ... ... ... ... ... ... ... ... ... ... ...)))
>> org-agenda(nil)
>> call-interactively(org-agenda)
>> ;
>> ;; INTERNALS
>> ;
>>
>> (set-time-zone-rule "GMT-1")
>>
>>
>> ;; Put local lisp code in load path
>> (add-to-list 'load-path "/home/bruceh/Tools/gnu/emacs/site-lisp/")
>>
>> (remove-hook 'text-mode-hook 'flyspell-mode) ; Turn off spell check 
>> on-the-fly
>>
>>
>>
>>
>> ;; Options Menu Settings
>> ;; =====================
>> (cond
>> ((and (string-match "XEmacs" emacs-version)
>> (boundp 'emacs-major-version)
>> (or (and
>> (= emacs-major-version 19)
>> (>= emacs-minor-version 14))
>> (= emacs-major-version 21))
>> (fboundp 'load-options-file))
>> (load-options-file "~/.xemacs-options")))
>> ;; ============================
>> ;; End of Options Menu Settings
>>
>>
>>
>> ; AUTOINSERTS
>> (require 'autoinsert)
>> (add-hook 'find-file-hooks 'auto-insert)
>>
>> ; C++ AUTOINSERT
>> (setq auto-insert-alist
>> (cons '(latex-mode
>> ;; should try to offer completing read for these
>> "options, RET: "
>> "\\documentclass[" str & ?\] | -1
>> ?{ (read-string "class: ") "}\n"
>> ("package, %s: "
>> "\\usepackage[" (read-string "options, RET: ")
>> & ?\] | -1 ?{ str "}\n")
>> _ "\n\\begin{document}\n" _
>> "\n\\end{document}")
>> auto-insert-alist))
>>
>> (push '(("\\.cc\\'" . "C / C++ header")
>> "\n\n\n"
>>
>> "#include <fstream>\n"
>> "#include <iostream>\n\n"
>> "using namespace std; \n\n\n"
>> "int main(int argc, char** argv)\n"
>> "{\n\n\n\n"
>> " return 0;\n};")
>> auto-insert-alist)
>>
>> (push '(("\\.c\\'" . "C / C++ header")
>> "\n\n\n"
>> "#include <stdlib.h>\n"
>> "#include <stdio.h>\n\n"
>> "int main(int argc, char** argv)\n"
>> "{\n\n\n\n"
>> " return 0;\n};")
>> auto-insert-alist)
>>
>>
>>
>>
>> ; FAVOURITE FONT SETTING
>> ;;bh-reinstall(add-spec-list-to-specifier (face-property 'default 
>> 'font) '((global (nil . 
>> "-*-Lucidatypewriter-Medium-R-*-*-*-140-75-75-*-*-ISO8859-1"))))
>> ;;bh-reinstall(add-spec-list-to-specifier (face-property 'bold 'font) 
>> '((global (nil . 
>> "-*-Lucidatypewriter-Bold-R-*-*-*-140-75-75-*-*-ISO8859-1"))))
>> ;;bh-reinstall(add-spec-list-to-specifier (face-property 'italic 
>> 'font) '((global (nil . 
>> "-*-courier-medium-i-*-*-*-140-75-75-*-*-iso8859-1"))))
>> ;;bh-reinstall(add-spec-list-to-specifier (face-property 'bold-italic 
>> 'font) '((global (nil . 
>> "-*-courier-bold-i-*-*-*-140-75-75-*-*-iso8859-1"))))
>>
>>
>> ; AUC-TeX
>> ;;bh-reinstall(require 'tex-site)
>>
>>
>> ; FILLING
>> ;;bh-reinstall(require 'filladapt)
>> ;;bh-reinstall(autoload 'turn-on-auto-fill "auto-fill"
>> ;;bh-reinstall "Unconditionally turn on auto-fill mode")
>> ;;bh-reinstall(add-hook 'text-mode-hook 'turn-on-filladapt-mode)
>> ;;bh-reinstall(add-hook 'text-mode-hook 'turn-on-auto-fill)
>> ;;bh-reinstall(add-hook 'message-mode-hook 'turn-on-filladapt-mode)
>> ;;bh-reinstall(add-hook 'message-mode-hook 'turn-on-auto-fill)
>> ;;bh-reinstall(add-hook 'mail-mode-hook 'turn-on-filladapt-mode)
>> ;;bh-reinstall(add-hook 'mail-mode-hook 'turn-on-auto-fill)
>> ;;bh-reinstall(add-hook 'LaTeX-mode-hook 'turn-on-filladapt-mode)
>> ;;bh-reinstall(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
>>
>>
>> ; FONT-LOCK-MODE
>> (require 'font-lock)
>> (autoload 'turn-on-font-lock "font-lock"
>> "Unconditionally turn on Font Lock mode.")
>> (add-hook 'mail-mode-hook 'turn-on-font-lock)
>>
>>
>> ;
>> ;; INTERNET/MAIL
>> ;
>> ; W3
>> (setq w3-default-homepage "http://cyclone.oslo.dnmi.no:8001/")
>> (setq url-keep-history t)
>>
>> ; VM
>> (setq user-mail-address "Bruce.Hackett@met.no")
>> (setq mail-archive-file-name "~/Mail/VM/archive/outbox")
>> (setq query-user-mail-address nil)
>>
>> ;
>> ;; KEYS
>> ;
>>
>> (global-set-key [f1] 'find-file)
>> (global-set-key [f2] 'undo)
>> (global-set-key [f3] 'save-buffer)
>> (global-set-key [f4] 'save-buffers-kill-emacs)
>>
>> (global-set-key [f5] 're-search-backward)
>> (global-set-key [f6] 're-search-forward)
>> (global-set-key [f8] 'query-replace-regexp)
>>
>> (global-set-key [f9] 'goto-line)
>> (global-set-key [f10] 'replace-regexp)
>> (global-set-key [f11] 'end-of-buffer)
>> (global-set-key [f12] 'auto-fill-mode)
>>
>> (global-unset-key "\M-[")
>> (global-unset-key "\C-h")
>> (global-unset-key "\e\e") ; unbinds ESC ESC
>> (global-set-key "\b" 'delete-backward-char)
>>
>> ;
>> ;; CALENDAR & DIARY
>> ;
>> (setq calendar-latitude 60.0)
>> (setq calendar-longitude 11.0)
>> (setq calendar-location-name "Oslo")
>> (setq calendar-time-zone +60)
>> (setq calendar-standard-time-zone-name "CET")
>> (setq calendar-daylight-time-zone-name "CET+1")
>> (setq calendar-daylight-savings-starts '(calendar-nth-named-day 1 0 4 
>> year))
>> (setq calendar-daylight-savings-ends '(calendar-nth-named-day -1 0 10 
>> year))
>> (setq european-calendar-style t)
>> (setq all-christian-calendar-holidays t)
>> ; Fancy diary view
>> (diary)
>> (setq view-diary-entries-initially t
>> mark-diary-entries-in-calendar t
>> number-of-diary-entries 7)
>> (add-hook 'diary-display-hook 'fancy-diary-display)
>> (add-hook 'today-visible-calendar-hook 'calendar-mark-today)
>>
>> ;
>> ;;; Commands added by calc-private-autoloads on Tue Jul 20 10:33:18 
>> 1999.
>> ;
>> (autoload 'calc-dispatch "calc" "Calculator Options" t)
>> (autoload 'full-calc "calc" "Full-screen Calculator" t)
>> (autoload 'full-calc-keypad "calc" "Full-screen X Calculator" t)
>> (autoload 'calc-eval "calc" "Use Calculator from Lisp")
>> (autoload 'defmath "calc" nil t t)
>> (autoload 'calc "calc" "Calculator Mode" t)
>> (autoload 'quick-calc "calc" "Quick Calculator" t)
>> (autoload 'calc-keypad "calc" "X windows Calculator" t)
>> (autoload 'calc-embedded "calc" "Use Calc inside any buffer" t)
>> (autoload 'calc-embedded-activate "calc" "Activate =>'s in buffer" t)
>> (autoload 'calc-grab-region "calc" "Grab region of Calc data" t)
>> (autoload 'calc-grab-rectangle "calc" "Grab rectangle of data" t)
>> ;; (setq load-path (nconc load-path (list 
>> "~/Tools/gnu/emacs/site-lisp/calc")))
>> (global-set-key "\e#" 'calc-dispatch)
>> ;;; End of Calc autoloads.
>>
>> ;; BBDB
>> ;;bh-reinstall(setq bbdb-north-american-phone-numbers-p nil)
>> ;;bh-reinstall(require 'bbdb)
>> ;;bh-reinstall(bbdb-initialize)
>>
>> ;
>> ;; APPEARANCE
>> ;; =====================
>> ;
>>
>> ; COMMENTS ( HAEBFIX )
>>
>> ;;(add-spec-list-to-specifier
>> ;; (face-property 'font-lock-comment-face 'font)
>> ;; '((global
>> ;; (nil . "-*-haebfix-*-*-*-*-*-*-*-*-*-*-*-*"))))
>>
>> ;;(add-spec-list-to-specifier
>> ;; (face-property 'font-lock-comment-face 'foreground)
>> ;; '((global
>> ;; ((color). "red"))))
>>
>>
>> ;
>> ;; MISCELLANEOUS
>> ;; =====================
>> ;
>> (setq standard-display-european t)
>> ; always display line and column numbers
>> (setq line-number-mode t)
>> (setq-default column-number-mode 1)
>> ;; put clock in emacs bar
>> (display-time)
>> (setq display-time-24hr-format t)
>>
>> (setq fortran-continuation-string "&")
>> (put 'narrow-to-region 'disabled nil)
>> (setq delete-key-deletes-forward t)
>> (setq sentence-end-double-space t)
>> (setq scroll-step 1)
>> (setq-default next-line-add-newlines t)
>> (setq-default case-replace t)
>> (setq-default case-fold-search t)
>> (setq initial-scratch-message nil)
>>
>> (setq minibuffer-max-depth nil)
>>
>> ; Prepare filesets
>> (filesets-init)
>>
>> ;;bh-reinstall(set-specifier modeline-shadow-thickness 2)
>>
>>
>>
>> ;
>> ;; MODES
>> ;; =====================
>> ;
>> ; allout outlining minor mode
>> (require 'allout)
>> (setq outline-init t)
>>
>> ; use cperl-mode for perl and scripts (doesn't work)
>> (add-to-list 'auto-mode-alist '("\\.pl\\'" . cperl-mode))
>>
>> ; org-mode (a GTD organizer)
>> (require 'org-install)
>> (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
>> (global-set-key "\C-cl" 'org-store-link)
>> (global-set-key "\C-ca" 'org-agenda)
>> (global-set-key "\C-cb" 'org-iswitchb)
>> ;; (global-set-key "\M-S-left" 'org-promote-subtree)
>> ;; (global-set-key "\M-S-right" 'org-demote-subtree)
>> (add-hook 'org-mode-hook 'turn-on-font-lock) ; org-mode buffers only
>> ;; (eval-after-load "org"
>> ;; '(progn
>> ;; (define-prefix-command 'org-todo-state-map)
>> ;; (define-key org-mode-map "\C-cx" 'org-todo-state-map)
>> ;; (define-key org-todo-state-map "x"
>> ;; #'(lambda nil (interactive) (org-todo "CANCELLED")))
>> ;; (define-key org-todo-state-map "d"
>> ;; #'(lambda nil (interactive) (org-todo "DONE")))
>> ;; (define-key org-todo-state-map "f"
>> ;; #'(lambda nil (interactive) (org-todo "DEFERRED")))
>> ;; (define-key org-todo-state-map "l"
>> ;; #'(lambda nil (interactive) (org-todo "DELEGATED")))
>> ;; (define-key org-todo-state-map "s"
>> ;; #'(lambda nil (interactive) (org-todo "STARTED")))
>> ;; (define-key org-todo-state-map "w"
>> ;; #'(lambda nil (interactive) (org-todo "WAITING")))
>> ;; (define-key org-agenda-mode-map "\C-n" 'next-line)
>> ;; (define-key org-agenda-keymap "\C-n" 'next-line)
>> ;; (define-key org-agenda-mode-map "\C-p" 'previous-line)
>> ;; (define-key org-agenda-keymap "\C-p" 'previous-line)))
>> (setq org-todo-keyword-faces
>> '(("DEFERRED" . org-done)
>> ("CANCELLED" . org-done)))
>> (font-lock-add-keywords 'org-mode
>> '(("^\\([ \t]*[-*+]\\|^\\*+\\)[ \t]+→.*"
>> 0 font-lock-warning-face prepend)))
>>
>> ; include diary items in org agenda
>> (setq org-agenda-include-diary t)
>>
>> ; make htmlize available for publishing
>> (require 'htmlize)
>>
>> ; user contrib function regenerates html versions of org file at each 
>> save
>> (defun wicked/org-publish-files-maybe ()
>> "Publish this file if it contains the #+PUBLISH: keyword"
>> (save-excursion
>> (save-restriction
>> (widen)
>> (goto-char (point-min))
>> (when (re-search-forward
>> "^#?[ \t]*\\+\\(PUBLISH\\)"
>> nil t)
>> (org-export-as-html-batch)
>> nil))))
>>
>> (add-hook 'org-mode-hook
>> (lambda ()
>> (add-hook (make-local-variable 'write-file-functions)
>> 'wicked/org-publish-files-maybe)))
>>
>> ; remember (a good companion of org-mode)
>> (require 'remember)
>> (setq remember-annotation-functions '(org-remember-annotation))
>> (setq remember-handler-functions '(org-remember-handler))
>> (add-hook 'remember-mode-hook 'org-remember-apply-template)
>> (define-key global-map "\C-cr" 'org-remember)
>>
>> ;; Matlab-mode functions
>> ;; (autoload 'matlab-mode "matlab-mode" "Enter Matlab mode." t)
>> ;; (setq auto-mode-alist (cons '("\\.m$" . matlab-mode) 
>> auto-mode-alist))
>> ;; (defun my-matlab-mode-hook ()
>> ;; (setq matlab-function-indent t) ; if you want function bodies 
>> indented
>> ;; (setq fill-column 76) ; where auto-fill should wrap
>> ;; (turn-on-auto-fill))
>> ;; (setq matlab-mode-hook 'my-matlab-mode-hook)
>> ;; Matlab.el functions (newer version of same)
>> (autoload 'matlab-mode "matlab" "Enter Matlab mode." t)
>> (autoload 'matlab-shell "matlab" "Interactive Matlab mode." t)
>> ;;
>> ;; User Level customizations (You need not use them all):
>> (setq matlab-indent-function t) ; if you want function bodies indented
>> (setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-alist))
>> (setq matlab-verify-on-save-flag nil) ; turn off auto-verify on save
>> (defun my-matlab-mode-hook ()
>> (setq fill-column 76)) ; where auto-fill should wrap
>> (add-hook 'matlab-mode-hook 'my-matlab-mode-hook)
>> (defun my-matlab-shell-mode-hook ()
>> '())
>> (add-hook 'matlab-shell-mode-hook 'my-matlab-shell-mode-hook)
>>
>> ;; Set the default major mode
>> (setq default-major-mode 'text-mode)
>>
>> ;; Add file types to be recognized
>> (setq auto-mode-alist
>> (cons '("\\.oct\\'" . matlab-mode) auto-mode-alist))
>> (setq auto-mode-alist
>> (cons '("\\.h\\'" . c++-mode) auto-mode-alist))
>> (setq auto-mode-alist
>> (cons '("\\.\\(lex\\|y\\)\\'" . c++-mode) auto-mode-alist))
>> (setq auto-mode-alist
>> (cons '("\\.sh\\'" . shell-script-mode) auto-mode-alist))
>> (setq auto-mode-alist
>> (cons '("\\.make\\'" . makefile-mode) auto-mode-alist))
>>
>> (setq auto-mode-alist
>> (cons '("\\.eps\\'" . postscript-mode) auto-mode-alist))
>> (setq auto-mode-alist
>> (cons '("\\.epsi\\'" . postscript-mode) auto-mode-alist))
>>
>> ;; Start in abbrev mode
>> ; (setq-default abbrev-mode t)
>> ;; Abbreviation parameters
>> (quietly-read-abbrev-file "~/.abbrev_defs")
>>
>>
>> (setq fast-lock-cache-directories '("~/.emacs-flc"))
>>
>>
>> ; crypt
>> ;;tobeinstalled(setq crypt-encryption-type 'pgp
>> ;;tobeinstalled crypt-confirm-password t
>> ;;tobeinstalled crypt-never-ever-decrypt t)
>> ;;tobeinstalled(require 'crypt)
>>
>> (custom-set-variables
>> ;; custom-set-variables was added by Custom.
>> ;; If you edit it by hand, you could mess it up, so be careful.
>> ;; Your init file should contain only one such instance.
>> ;; If there is more than one, they won't work right.
>> '(Info-additional-directory-list (quote 
>> ("/home/bruceh/Tools/gnu/info")))
>> '(diary-file "~/diary")
>> '(dired-listing-switches "-alrt")
>> '(filesets-data (quote (("My Org" (:pattern "~/Admin/Org/" 
>> "^.+\\\\.org$") (:open filesets-find-file)) ("Configuration files" 
>> (:files "~/.bashrc" "~/.bash_profile" "~/.emacs" "~/.aliases")))))
>> '(inhibit-splash-screen t)
>> '(inhibit-startup-buffer-menu t)
>> '(inhibit-startup-screen t)
>> '(list-directory-verbose-switches "-lrt")
>> '(org-agenda-custom-commands (quote (("d" todo #("DELEGATED" 0 9 
>> (face org-warning)) nil) ("c" todo #("DONE|DEFERRED|CANCELLED" 0 23 
>> (face org-warning)) nil) ("w" todo #("WAITING" 0 7 (face 
>> org-warning)) nil) ("W" "3-week agenda" agenda "" ((org-agenda-ndays 
>> 21))) ("1" "Today's #A tasks" agenda "" ((org-agenda-skip-function 
>> (lambda nil (org-agenda-skip-entry-if (quote notregexp) 
>> "\\=.*\\[#A\\]"))) (org-agenda-ndays 1) (org-agenda-overriding-header 
>> "Today's Priority #A tasks: "))) ("u" "Unscheduled TODO entries" 
>> alltodo "" ((org-agenda-skip-function (lambda nil 
>> (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote 
>> regexp) "<[^>]+>"))) (org-agenda-overriding-header "Unscheduled TODO 
>> entries: "))))))
>> '(org-agenda-dim-blocked-tasks t)
>> '(org-agenda-files (quote ("~/Admin/Org/ToDo.org" 
>> "~/Admin/Org/Job.org" "~/Admin/Org/InterRisk.org" 
>> "~/Admin/Org/ECOOP.org" "~/Admin/Org/Mersea.IP.org" 
>> "~/Admin/Org/MyOcean.org" "~/Admin/Org/NOOS.org" 
>> "~/Admin/Org/EuroGOOS.org" "~/Admin/Org/SKS-LAT.org" 
>> "~/Admin/Org/Opera.org" "~/Admin/Org/OOMM.org" 
>> "~/Admin/Org/TransHav.org" "~/Admin/Org/SFT-Tareskog.org" 
>> "~/Admin/Org/CIENS.org" "~/Admin/Org/MONBASE.org" 
>> "~/Admin/Org/Forsvar.org" "~/Admin/Org/Private.org")))
>> '(org-agenda-skip-scheduled-if-done t)
>> '(org-combined-agenda-icalendar-file "~/Admin/Org/org.ics")
>> '(org-deadline-warning-days 14)
>> '(org-default-notes-file "~/Admin/Org/notes.org")
>> '(org-directory "~/Admin/Org")
>> '(org-enforce-todo-checkbox-dependencies t)
>> '(org-enforce-todo-dependencies t)
>> '(org-icalendar-include-todo (quote all))
>> '(org-icalendar-store-UID t)
>> '(org-log-done (quote note))
>> '(org-remember-store-without-prompt t)
>> '(org-remember-templates (quote ((116 "* TODO %? %u" 
>> "~/Admin/Org/ToDo.org" "Tasks") (110 "* %u %?" 
>> "~/Admin/Org/notes.org" "Notes"))))
>> '(org-stuck-projects (quote ("+LEVEL=2/-DONE" ("TODO" "NEXT" 
>> "NEXTACTION" "STARTED" "DELEGATED" "WAITING") nil)))
>> '(org-tag-alist (quote ((#("@office" 0 7 (face nil)) . 111) 
>> (#("@home" 0 5 (face nil)) . 104) (#("@online" 0 7 (face nil)) . 119) 
>> (#("@computer" 0 9 (face nil)) . 99) (#("phone" 0 5 (face nil)) . 
>> 112) (#("email" 0 5 (face nil)) . 101) (#("errand" 0 6 (face nil)) . 
>> 114) (#("larspr" 0 6 (face nil)) . 76) (#("goranb" 0 6 (face nil)) . 
>> 71) (#("haralde" 0 7 (face nil)) . 72) (#("jonal" 0 5 (face nil)) . 
>> 74) (#("anac" 0 4 (face nil)) . 67) (#("yvonneg" 0 7 (face nil)) . 
>> 89) (#("annks" 0 5 (face nil)) . 75) (#("arnem" 0 5 (face nil)) . 77) 
>> (#("ingunnb" 0 7 (face nil)) . 73) (#("jensd" 0 5 (face nil)) . 68) 
>> (#("larsab" 0 6 (face nil)) . 66) (#("oyvinds" 0 7 (face nil)) . 79) 
>> (#("oyvindb" 0 7 (face nil)) . 2264) (#("antone" 0 6 (face nil)) . 
>> 49) (#("oysteinh" 0 8 (face nil)) . 50) (#("roars" 0 5 (face nil)) . 
>> 51) (#("jenss" 0 5 (face nil)) . 52) (#("IT" 0 2 (face nil)) . 105) 
>> (#("@Klover2" 0 8 (face nil)) . 107) (#("@MonaLisa" 0 9 (face nil)) . 
>> 109) (#("Anne" 0 4 (face nil)) . 65) (#("Stian" 0 5 (face nil)) . 83) 
>> (#("Eivind" 0 6 (face nil)) . 69) (#("Peg" 0 3 (face nil)) . 80))))
>> '(org-tags-column -79)
>> '(org-todo-interpretation (quote type))
>> '(org-todo-keywords (quote ((sequence "TODO" "NEXTACTION" "STARTED" 
>> "LATER/MAYBE" "WAITING" "DELEGATED" "|" "DEFERRED" "CANCELLED" 
>> "DONE"))))
>> '(pr-txt-printer-alist (quote ((default "lpr" nil "fou3p1d") (fou3 
>> "lpr" nil "fou3p1d") (color "lpr" nil "fou3p3fd"))))
>> '(remember-annotation-functions (quote (org-remember-annotation)))
>> '(remember-data-file "~/Admin/Org/remember.notes")
>> '(remember-handler-functions (quote (org-remember-handler)))
>> '(scroll-bar-mode (quote right))
>> '(tool-bar-mode t)
>> '(transient-mark-mode t)
>> '(utf-translate-cjk-mode nil))
>> (custom-set-faces
>> ;; custom-set-faces was added by Custom.
>> ;; If you edit it by hand, you could mess it up, so be careful.
>> ;; Your init file should contain only one such instance.
>> ;; If there is more than one, they won't work right.
>> '(default ((t (:stipple nil :background "white" :foreground "black" 
>> :inverse-video nil :box nil :strike-through nil :overline nil 
>> :underline nil :slant normal :weight normal :height 147 :width normal 
>> :family "misc-fixed"))))
>> '(cursor ((t (:background "darkred" :weight normal :width normal))))
>> '(fixed-pitch ((t (:family "fixed"))))
>> '(font-lock-comment-face ((((class color) (min-colors 88) (background 
>> light)) (:foreground "cornflowerblue"))))
>> '(italic ((((supports :underline t)) (:underline t))))
>> '(menu ((((type x-toolkit)) (:height 1.0))))
>> '(mouse ((t (:background "#000000"))))
>> '(org-scheduled-today ((((class color) (min-colors 88) (background 
>> light)) (:foreground "DarkGreen")))))
>>
>
Dear Carsten,

Solved. You were on the right track. There were some offending "#+..." 
lines in ToDo.org. Actually, I copped that file from one of the 
tutorials some time ago as a place to quickly deposit new tasks; I never 
looked closely at all the other fancy stuff in it. After all, it worked 
fine up to v 6.29c. I'm not sure exactly what caused the problem, but 
removing all the unneeded "#+..." lines solved it.

Thanks for your help! It's a wonderful application.
Bruce

-- 
------------------------------------------------------------------------
   Bruce Hackett                         Senior Scientist
   Norwegian Meteorological Institute (met.no), R & D Div.
   P.O. Box 43 - Blindern                e-mail: Bruce.Hackett@met.no
   N-0313 Oslo                           Phone:  +47 22 96 33 39
   NORWAY                                Fax:    +47 22 96 33 80
                                         Mob:    +47 48 048 958
   URL:  http://met.no/english/r_and_d_activities/people/bruceh.html
------------------------------------------------------------------------