Re: 6.29c breaks my agenda weekly view

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

[-- Attachment #1: Type: text/plain, Size: 1446 bytes --]

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


[-- Attachment #2: Backtrace_for_agenda_error.txt --]
[-- Type: text/plain, Size: 6447 bytes --]

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)

[-- Attachment #3: .emacs --]
[-- Type: text/plain, Size: 17648 bytes --]

;
;; 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")))))


[-- Attachment #4: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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