From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bruce Hackett Subject: Re: 6.29c breaks my agenda weekly view Date: Wed, 12 Aug 2009 13:02:46 +0000 Message-ID: <4A82BD76.6020201@met.no> References: <4A828B7A.6020109@met.no> <57875844-E95F-43F0-B01E-CDE42AC4AFB2@gmail.com> <4A829D3F.5000408@met.no> Mime-Version: 1.0 Content-Type: text/plain; charset=windows-1252; format=flowed Content-Transfer-Encoding: 8bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MbDTl-0004nZ-4b for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 09:02:57 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MbDTe-0004lL-NF for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 09:02:56 -0400 Received: from [199.232.76.173] (port=39037 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MbDTe-0004kz-Ah for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 09:02:50 -0400 Received: from smtp1.oslo.dnmi.no ([128.39.62.241]:60728) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MbDTd-0002D6-56 for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 09:02:49 -0400 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: emacs-orgmode@gnu.org 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 \n" >> "#include \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 \n" >> "#include \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 ------------------------------------------------------------------------