Bug: emacs 24 org-mode-map does not exist [7.8.11]

[Mike Fitzgerald <mikef656@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 4091 bytes --]

Org Team,

I am experiencing the bug described at here:
http://comments.gmane.org/gmane.emacs.orgmode/55873

Does not seem to be a working disposition to this issue and what is
discussed
did not get the map back does not work for me.

I am fine on emacs 23.3 and 23.4, only 24.1 has the issue.

I attached my org setup with a comments around the center of the file
as to what I have tried to get it working (close to what is discussed
at the link above). The comment in the file is:
;This is what I have tried to get org-mode-map alive in emacs 24

I can load org and open org files, but not do anything like this.
(define-key org-mode-map "\C-cl" 'org-store-link)  ;errors!

Thanks
Mike


--text follows this line--

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------



Emacs  : GNU Emacs 24.1.1 (i386-mingw-nt6.0.6002)
 of 2012-06-10 on MARVIN
Package: Org-mode version 7.8.11

current state:
==============
(setq
 org-export-blocks '((src org-babel-exp-src-block nil)
             (export-comment org-export-blocks-format-comment t)
             (ditaa org-export-blocks-format-ditaa nil)
             (dot org-export-blocks-format-dot nil))
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
org-babel-execute-safely-maybe)
 org-export-preprocess-before-selecting-backend-code-hook
'(org-beamer-select-beamer-code)
 org-tab-first-hook '(org-hide-block-toggle-maybe
org-src-native-tab-command-maybe
              org-babel-hide-result-toggle-maybe)
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
          org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-speed-command-hook '(org-speed-command-default-hook
org-babel-speed-command-hook)
 org-babel-pre-tangle-hook '(save-buffer)
 org-occur-hook '(org-first-headline-recenter)
 org-export-interblocks '((src org-babel-exp-non-block-elements))
 org-log-done t
 org-refile-allow-creating-parent-nodes 'confirm
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-export-preprocess-before-normalizing-links-hook
'(org-remove-file-link-modifiers)
 org-refile-use-outline-path t
 org-outline-path-complete-in-steps nil
 org-tag-alist '((:startgroup) ("urgent" . 117) ("not_urgent" . 110)
(:endgroup)
         (:startgroup) ("important" . 105) ("not_important" . 111)
(:endgroup)
         ("opportunity" . 112))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-replace-disputed-keys t
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-mode-hook '(org-cua-dwim-turn-on-org-cua-mode-partial-support
         (lambda nil
          (org-add-hook (quote change-major-mode-hook)
           (quote org-show-block-all) (quote append) (quote local))
          )
         (lambda nil
          (org-add-hook (quote change-major-mode-hook)
           (quote org-babel-show-result-all) (quote append) (quote local))
          )
         org-babel-result-hide-spec org-babel-hide-all-hashes
turn-on-auto-fill)
 org-from-is-user-regexp nil
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc
                   org-beamer-auto-fragile-frames
                   org-beamer-place-default-actions-for-lists)
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-todo-keywords '((sequence "TODO" "STARTED" "DONE"))
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
             org-src-mode-configure-edit-buffer)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-confirm-shell-link-function 'yes-or-no-p
 )

[-- Attachment #1.2: Type: text/html, Size: 4750 bytes --]

[-- Attachment #2: my-org-setup.el --]
[-- Type: application/octet-stream, Size: 4885 bytes --]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
;; ;Org mode
; good Reference
; http://doc.norang.ca/org-mode.html#AgendaSetup
;
;MTF To update org mode download the zip to .emacs.d and extract there
;No compiling nocessary for basic operation
;To make sure all your variables work you should not use (require 'org). 
;Instead use the following setting:
;
;  (require 'org-install)
;(require 'org-install)
;From http://orgmode.org/worg/org-faq.html
;  You should also make sure that you do not require any other org-... files 
;  in your .emacs file before you have set your org variables, 
;  since these will also cause org.el to be loaded. 
;  To be safe, load org files after you have set your variables. (require 'org-install)
;
;Set this var early in the org setup file
(setq org-replace-disputed-keys t)


(setq org-tag-alist '(
                      (:startgroup . nil)
                      ("urgent" . ?u) ("not_urgent" . ?n)
                      (:endgroup . nil)
                      ;
                      (:startgroup . nil)
                      ("important" . ?i) ("not_important" . ?o)
                      (:endgroup . nil)
                      ("opportunity" . ?p) 
                      ))
; If the tag is only relevant to the file you are working on, then you
; can instead set the TAGS option line as:
;      #+TAGS: @work(w)  @home(h)  @tennisclub(t)  laptop(l)  pc(p)


;; flyspell mode for spell checking everywhere
; irritating 4 tech work (add-hook 'org-mode-hook 'flyspell-mode)
(add-hook 'org-mode-hook 'turn-on-auto-fill)



(add-to-list 'load-path (expand-file-name "~/.emacs.d/org-7.8.11/lisp"))
(add-to-list 'load-path (expand-file-name "~/.emacs.d/org-7.8.11/contrib/lisp"))

;; (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
(add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\)$" . org-mode))

(setq org-fontify-emphasized-text t)

;a bunch of defuns and modes related to org are loaded
(require 'org-install)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
;This is what I have tried to get org-mode-map alive in emacs 24
(require 'org)
(defvar org-mode-map)
(eval-after-load 'org
; don't let org steal this key
(define-key org-mode-map (kbd "C-'") nil))
;This is what I have tried to get org-mode-map alive in emacs 24
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  


;This may not be necessary
(require 'org-capture)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
;Machine Specific setup between work and home 4 org mode
;(require 'my-org-4-machine-setup)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  


(define-key org-mode-map "\C-cl" 'org-store-link)
(define-key org-mode-map "\C-ca" 'org-agenda)
(define-key org-mode-map "\C-ct" 'org-set-tags-command)


(setq org-log-done t)





;; Info directory
(add-to-list 'Info-default-directory-list
             (expand-file-name "~/.emacs.d/org-7.8.11/doc"))


;org-capture binding 
;(global-set-key "\C-c-c" 'org-capture)
(global-set-key [(control c) (c)] 'org-capture)


; Targets include this file and any file contributing to the agenda - up to 9 levels deep
(setq org-refile-targets (quote ((nil :maxlevel . 9)
                                 (org-agenda-files :maxlevel . 9))))


; Use full outline paths for refile targets - we file directly with IDO
(setq org-refile-use-outline-path t)


; Targets complete directly with IDO
 (setq org-outline-path-complete-in-steps nil)
;(setq org-outline-path-complete-in-steps 'file)


; Allow refile to create parent tasks with confirmation
(setq org-refile-allow-creating-parent-nodes (quote confirm))


;; (define-key org-mode-map [(meta h)] 'nil)
;; (define-key org-mode-map [(meta c)] 'nil)
;; (define-key org-mode-map [(meta n)] 'nil)
;; (define-key org-mode-map [(meta t)] 'nil)
;; (define-key org-mode-map [(meta e)] 'nil)
;; (define-key org-mode-map [(control tab )] 'nil)
;; (define-key org-mode-map [(control z )] 'nil)
 (define-key org-mode-map [(control , )] 'nil)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  
(add-to-list 'load-path "~/.emacs.d/org-cua-dwim/")
(require 'org-cua-dwim)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
(provide 'my-org-setup)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;