Re: .emacs won't load Hohn Wiegleys script

From: Carsten Dominik <dominik@science.uva.nl>
To: Graham Smith <myotisone@gmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: .emacs won't load Hohn Wiegleys script
Date: Sun, 19 Oct 2008 18:43:09 +0200	[thread overview]
Message-ID: <DB5CB5EB-BC81-46BB-866C-E9FC509D3537@uva.nl> (raw)
In-Reply-To: <2c75873c0810190904g4d7f0e4etde57975ea274548b@mail.gmail.com>

The text contains special non-ascii characters as leading spaces in  
many places, in my Emacs 23 this shows immediately. I don't know from  
where you copied it, directly from the webpage?  You need to remove  
all initial whitespace in all lines from John, ad the problem will  
likely go away.

- Carsten

On Oct 19, 2008, at 6:04 PM, Graham Smith wrote:

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