.emacs won't load Hohn Wiegleys script

["Graham Smith" <myotisone@gmail.com>]

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

 I have copied John Wiegley's script for task management into my
.emacs file, but get an error:

An error has occurred while loading `/home/graham/.emacs':

Symbol's value as variable is void:

To ensure normal operation, you should investigate and remove the
cause of the error in your initialization file.  Start Emacs with
the `--debug-init' option to view a complete error backtrace.

The backtrace gives:

Debugger entered--Lisp error: (void-variable 343\343)
  (eval-after-load "org" 343\343 (quote (progn ããããã ... ããããã ...
ããããã ... ããããã ... ããããã ... ããããã ... ããããã ... ããããã ... ããããã ...
ããããã ... ããããã ... ããããã ...)))
  eval-buffer(#<buffer  *load*> nil "/home/graham/.emacs" nil t)  ;
Reading at buffer position 1904
  load-with-code-conversion("/home/graham/.emacs" "/home/graham/.emacs" t t)
  load("~/.emacs" t t)
  #[nil " พ

The numbers haven't pasted in for some reason but they are 343
repeated (I've filled a couple in) except for the numbers after
#[nil.. which haven't pasted at all, I will repost with them filled in
if required.

My .emacs is posted below:

I have altered the paths where I think they need altered and I have
commented out the commands that seem duplicated. I also tried it
without commenting them out, but it was just the same.

As always, a pointer towards where I am being stupid would be appreciated.

Thanks,

Graham



;;;;;;;;; Basic Org-Mode;;;;;;;;;;

(setq load-path (cons "~/EmacsAddins/Orgmode/lisp" load-path))
(setq load-path (cons "~/EmacsAddins/Orgmode/contrib/lisp" load-path))
(require 'org-install)

;; The following lines are always needed. Choose your own keys.
(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-font-lock-mode 1)                    ; for all buffers
(add-hook 'org-mode-hook 'turn-on-font-lock) ; Org buffers only

;;;;;Basic Remember;;;;;;

(add-to-list 'load-path "~/EmacsAddins/remember")


;;;;;;Remember plus Org-Mode;;;;;;;

;(org-remember-insinuate)
;(setq org-directory "~/Emacs")
;(setq org-default-notes-file (concat org-directory "/notes.org"))
;(define-key global-map "\C-cr" 'org-remember)


;;;;;Wiegly Org-Mode code;;;;;;

(define-key mode-specific-map [?a] 'org-agenda)

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

(require 'remember)

(add-hook 'remember-mode-hook 'org-remember-apply-template)

(define-key global-map [(control meta ?r)] 'remember)

(custom-set-variables
 '(org-agenda-files (quote ("~/Emacs/todo.org")))
 '(org-default-notes-file "~/Emacs/notes.org")
 '(org-agenda-ndays 7)
 '(org-deadline-warning-days 14)
 '(org-agenda-show-all-dates t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-reverse-note-order t)
 '(org-fast-tag-selection-single-key (quote expert))
 '(org-agenda-custom-commands
   (quote (("d" todo "DELEGATED" nil)
       ("c" todo "DONE|DEFERRED|CANCELLED" nil)
       ("w" todo "WAITING" nil)
       ("W" agenda "" ((org-agenda-ndays 21)))
       ("A" 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" alltodo ""
        ((org-agenda-skip-function
          (lambda nil
        (org-agenda-skip-entry-if (quote scheduled) (quote deadline)
                      (quote regexp) "<[^>\n]+>")))
         (org-agenda-overriding-header "Unscheduled TODO entries: "))))))
 '(org-remember-store-without-prompt t)
 '(org-remember-templates
   (quote ((116 "* TODO %?\n  %u" "~/Emacs/todo.org" "Tasks")
       (110 "* %u %?" "~/Emacs/notes.org" "Notes"))))
 '(remember-annotation-functions (quote (org-remember-annotation)))
 '(remember-handler-functions (quote (org-remember-handler))))

[-- Attachment #2: 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