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 10:45:19 +0000 Message-ID: <4A829D3F.5000408@met.no> References: <4A828B7A.6020109@met.no> <57875844-E95F-43F0-B01E-CDE42AC4AFB2@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="------------020800030507070207000300" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MbBKj-0006Gi-Nd for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:45:29 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MbBKe-0006Bx-9d for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:45:28 -0400 Received: from [199.232.76.173] (port=52896 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MbBKe-0006Be-2P for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:45:24 -0400 Received: from smtp1.oslo.dnmi.no ([128.39.62.241]:58345) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MbBKc-00071y-FU for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:45:23 -0400 In-Reply-To: <57875844-E95F-43F0-B01E-CDE42AC4AFB2@gmail.com> 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 This is a multi-part message in MIME format. --------------020800030507070207000300 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit 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 --------------020800030507070207000300 Content-Type: text/plain; name="Backtrace_for_agenda_error.txt" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline; filename="Backtrace_for_agenda_error.txt" 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 .= =2E.) 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 :times= tamp) (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 ...) (set= q 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 ...) (c= ond ... ... ... ... ... ...))) (save-excursion (save-restriction (if org-agenda-restrict ... ...) (whi= le ... ...))) (let ((case-fold-search nil)) (save-excursion (save-restriction ... ...= ))) (save-current-buffer (set-buffer buffer) (unless (org-mode-p) (error "A= genda 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) (buf= fer ...) arg results rtn) (if (not buffer) (list ...) (with-current-buffe= r 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 :s= exp :timestamp)) (cond ((eq org-agenda-show-log ...) (setq rtn ...)) (org-agenda-show-lo= g (setq rtn ...)) (t (setq rtn ...))) (catch (quote nextfile) (org-check-agenda-file file) (cond (... ...) (o= rg-agenda-show-log ...) (t ...)) (setq rtnall (append rtnall rtn))) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agend= a-file file) (cond ... ... ...) (setq rtnall ...))) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-a= bsolute d) wd (calendar-day-of-week date) s (point)) (if (or ... ...) (se= tq 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 ... .= =2E. ... ... ... ... ... ... ...))) (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-num= bers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clo= cktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-set-local (quo= te 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-blo= cks (let* ... ... ...) (add-text-properties s ... ...)) (while (setq d ..= =2E) (setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles r= tnall nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)= ) (when (and org-agenda-clockreport-mode clocktable-start) (let ... ... .= =2E. ... ... ... ...)) (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-a= genda-custom-commands org-agenda-custom-commands-orig) (customize-variabl= e ...)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (ca= ll-interactively ...)) ((equal keys "t") (call-interactively ...)) ((equa= l keys "T") (org-call-with-arg ... ...)) ((equal keys "m") (call-interact= ively ...)) ((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-variabl= e ...)) (t (error "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig org-a= genda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn ..= =2E) entry key type match lprops ans) (unless org-agenda-overriding-restr= iction (put ... ... nil) (setq org-agenda-restrict nil) (move-marker org-= agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (pu= t (quote org-agenda-redo-command) (quote org-lprops) nil) (setq org-agend= a-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys = =2E.. restriction ...)) (when (and ... restriction) (put ... ... ...) (co= nd ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...) (..= =2E ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (...= ... ...) (... ...) (... ...) (... ...) (t ...))) (catch (quote exit) (let* (... ... ... ... ... entry key type match lpr= ops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put = =2E.. ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ..= =2E) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... .= =2E. ... ... ... ... ... ...))) org-agenda(nil) call-interactively(org-agenda) --------------020800030507070207000300 Content-Type: text/plain; name=".emacs" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline; filename=".emacs" ; ;; 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-th= e-fly ;; Options Menu Settings ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (cond ((and (string-match "XEmacs" emacs-version) (boundp 'emacs-major-version) (or (and (=3D emacs-major-version 19) (>=3D emacs-minor-version 14)) (=3D emacs-major-version 21)) (fboundp 'load-options-file)) (load-options-file "~/.xemacs-options"))) ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D ;; 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" =20 "#include \n" "#include \n\n" "using namespace std; \n\n\n" "int main(int argc, char** argv)\n"=20 "{\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"=20 "{\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-*-*-ISO885= 9-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 'fo= nt) '((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 yea= r)) (setq calendar-daylight-savings-ends '(calendar-nth-named-day -1 0 10 yea= r)) (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 =3D>'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/ca= lc"))) (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 ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ; ; 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 ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ; (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 ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ; ; 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)=20 (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]+=C3=A2=E2=80=A0=E2=80=99.*" 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 sav= e (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 indent= ed ;; (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=20 (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 o= rg-warning)) nil) ("c" todo #("DONE|DEFERRED|CANCELLED" 0 23 (face org-wa= rning)) nil) ("w" todo #("WAITING" 0 7 (face org-warning)) nil) ("W" "3-w= eek agenda" agenda "" ((org-agenda-ndays 21))) ("1" "Today's #A tasks" ag= enda "" ((org-agenda-skip-function (lambda nil (org-agenda-skip-entry-if = (quote notregexp) "\\=3D.*\\[#A\\]"))) (org-agenda-ndays 1) (org-agenda-o= verriding-header "Today's Priority #A tasks: "))) ("u" "Unscheduled TODO = entries" alltodo "" ((org-agenda-skip-function (lambda nil (org-agenda-sk= ip-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.I= P.org" "~/Admin/Org/MyOcean.org" "~/Admin/Org/NOOS.org" "~/Admin/Org/Euro= GOOS.org" "~/Admin/Org/SKS-LAT.org" "~/Admin/Org/Opera.org" "~/Admin/Org/= OOMM.org" "~/Admin/Org/TransHav.org" "~/Admin/Org/SFT-Tareskog.org" "~/Ad= min/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.o= rg" "Tasks") (110 "* %u %?" "~/Admin/Org/notes.org" "Notes")))) '(org-stuck-projects (quote ("+LEVEL=3D2/-DONE" ("TODO" "NEXT" "NEXTACTI= ON" "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 (f= ace 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 (fac= e 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)) = =2E 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" "LAT= ER/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" :inv= erse-video nil :box nil :strike-through nil :overline nil :underline nil = :slant normal :weight normal :height 147 :width normal :family "misc-fixe= d")))) '(cursor ((t (:background "darkred" :weight normal :width normal)))) '(fixed-pitch ((t (:family "fixed")))) '(font-lock-comment-face ((((class color) (min-colors 88) (background li= ght)) (: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"))))) --------------020800030507070207000300 Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ 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 --------------020800030507070207000300--