Re: 6.29c breaks my agenda weekly view

[Carsten Dominik <carsten.dominik@gmail.com>]

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