We have to do this because `org-edit-src-code' wants to play smart and
append -mode to whatever symbol is in that alist. In case this is not
enough follows is a reproducable test-case.
Put any buffer into org-mode, and put the following in
,----
| #+BEGIN_SRC lisp
|
| #+END_SRC
`----
Put point somewhere in that block and do:
M-x org-edit-src-code RET
We get an error about not able to find the mode "lisp-mode-mode". Of
course the proposed fix is simply replacing 'lisp-mode with 'lisp.
Emacs : GNU Emacs 23.1.92.1 (x86_64-pc-linux-gnu, GTK+ Version
2.18.6)
of 2010-02-09 on elegiac, modified by Debian
Package: Org-mode version 6.34trans (release_6.34c.107.geb521)
current state:
==============
(setq
org-export-html-final-hook '(org-inlinetask-remove-terminator)
org-empty-line-terminates-plain-lists t
org-log-done 'time
org-toc-default-depth 2
org-export-author-info nil
org-agenda-skip-scheduled-if-deadline-is-shown t
org-archive-default-command 'org-archive-set-tag
org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-
vars)
org-hide-block-startup t
org-special-ctrl-a/e t
org-startup-align-all-tables t
org-agenda-clockreport-parameter-plist '(:link t :maxlevel 4)
org-default-priority 67
org-agenda-files '("~/lisp/nisp/irc-bot/tree-funcallable-class.org"
"~/lisp/nisp/emacs/org/nisp-org-util.org"
"~/org/todo-triage.org")
org-blocker-hook '(org-block-todo-from-checkboxes
org-block-todo-from-children-or-siblings-or-parent)
org-tag-faces '(("gitapi" :foreground "purple"))
org-src-window-setup 'other-window
org-publish-timestamp-directory "~/org/.org-timestamps/"
org-export-ascii-final-hook '(org-inlinetask-remove-terminator)
org-agenda-window-setup 'other-frame
org-hide-leading-stars t
org-checklist-export-function 'org-export-as-ascii
org-completion-use-ido t
org-metaup-hook '(org-babel-load-in-session-maybe)
org-archive-save-context-info '(time file category todo priority
itags olpath
ltags)
org-after-todo-state-change-hook '(org-checklist org-clock-out-if-
current
nisp-org-todo-updates-notify-erc)
org-babel-interpreters '("sh" "emacs-lisp")
org-goto-interface 'outline-path-completion
org-odd-levels-only t
org-agenda-start-with-log-mode t
org-remember-clock-out-on-exit t
org-special-ctrl-k t
org-export-copy-to-kill-ring nil
org-todo-setup-filter-hook '(org-choose-setup-filter)
org-export-latex-format-toc-function 'org-export-latex-format-toc-
default
org-agenda-time-grid '((daily weekly today require-timed)
"----------------"
(800 1000 1200 1400 1600 1800 2000))
org-export-time-stamp-file nil
org-log-redeadline 'time
org-src-lang-modes '(("ocaml" . tuareg) ("elisp" . emacs-lisp)
("ditaa" . artist)
("asymptote" . asy) ("dot" . fundamental)
("lisp" . lisp-mode))
org-trigger-hook '(org-choose-keep-sensible)
org-export-preprocess-hook '(org-eval-replace-snippts org-export-
blocks-preprocess)
org-agenda-diary-file "~/org/diary.org"
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-hide-block-toggle-maybe)
org-src-mode-hook '(org-src-mode-configure-edit-buffer)
org-make-link-description-function 'nisp-org-make-link-description
org-confirm-shell-link-function 'y-or-n-p
org-export-first-hook '(org-beamer-initialize-open-trackers)
org-clock-persist t
org-plain-list-ordered-item-terminator 41
org-todo-keywords '((sequence "TODO(t)" "DONE(d!)")
(sequence "QUESTION(q!)" "ANSWERED(d!)"))
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-default-notes-file "~/org/notes.org"
org-use-property-inheritance '("VERSION")
org-directory "~/org/"
org-imenu-depth 4
org-log-reschedule 'time
org-registry-file "/home/james/.emacs.d/config/org-registry.el"
org-export-html-use-infojs t
org-blank-before-new-entry '((heading . auto) (plain-list-item))
org-todo-get-default-hook '(org-choose-get-default-mark)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-
drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-export-preprocess-before-normalizing-links-hook '(org-remove-
file-link-modifiers)
org-agenda-mouse-1-follows-link t
org-mode-hook '((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
auto-fill-on
(lambda nil
(setq org-mouse-context-menu-function
(quote org-mouse-context-menu))
(when (memq (quote context-menu) org-mouse-features)
(define-key org-mouse-map
(if (featurep (quote xemacs)) [button3]
[mouse-3]) nil)
(define-key org-mode-map [mouse-3]
(quote org-mouse-show-context-menu))
)
(define-key org-mode-map [down-mouse-1]
(quote org-mouse-down-mouse))
(when (memq (quote context-menu) org-mouse-features)
(define-key org-mouse-map [C-drag-mouse-1]
(quote org-mouse-move-tree))
(define-key org-mouse-map [C-down-mouse-1]
(quote org-mouse-move-tree-start))
)
(when (memq (quote yank-link) org-mouse-features)
(define-key org-mode-map [S-mouse-2] (quote org-
mouse-yank-link))
(define-key org-mode-map [drag-mouse-3]
(quote org-mouse-yank-link))
)
(when (memq (quote move-tree) org-mouse-features)
(define-key org-mouse-map [drag-mouse-3]
(quote org-mouse-move-tree))
(define-key org-mouse-map [down-mouse-3]
(quote org-mouse-move-tree-start))
)
(when (memq (quote activate-stars) org-mouse-
features)
(font-lock-add-keywords nil
(\`
(((\, outline-regexp) 0
(\`
(face org-link mouse-face highlight keymap
(\, org-mouse-map))
)
(quote prepend))
)
)
t)
)
(when (memq (quote activate-bullets) org-mouse-
features)
(font-lock-add-keywords nil
(\`
(("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +"
(1
(\`
(face org-link keymap (\, org-mouse-map)
mouse-face
highlight)
)
(quote prepend))
)
)
)
t)
)
(when (memq (quote activate-checkboxes) org-mouse-
features)
(font-lock-add-keywords nil
(\`
(("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\
\)"
(2
(\`
(face bold keymap (\, org-mouse-map) mouse-
face highlight))
t)
)
)
)
t)
)
(defadvice org-open-at-point
(around org-mouse-open-at-point activate)
(let ((context (org-context)))
(cond ((assq :headline-stars context) (org-cycle))
((assq :checkbox context) (org-toggle-checkbox))
((assq :item-bullet context)
(let ((org-cycle-include-plain-lists t)) (org-
cycle)))
(t ad-do-it))
)
)
)
#[nil "\300\301\302\303\304$\207"
[org-add-hook change-major-mode-hook org-show-
block-all append
local]
5]
)
org-indirect-buffer-display 'dedicated-frame
org-font-lock-hook '(org-eval-handle-snippets org-inlinetask-fontify)
org-export-creator-info nil
org-global-properties '(("Effort_ALL" .
"0 0:15 0:30 1:00 2:00 3:00 4:00 6:00 8:00")
)
org-refile-targets '((nil :tag . "TASKS"))
org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe org-babel-hash-
at-point
org-babel-execute-src-block-maybe)
org-agenda-start-with-clockreport-mode t
org-confirm-elisp-link-function 'y-or-n-p
org-refile-use-outline-path 'file
org-log-into-drawer t
org-sort-agenda-noeffort-is-high nil
org-agenda-mode-hook '((lambda nil
(setq org-mouse-context-menu-function
(quote org-mouse-agenda-context-menu))
(define-key org-agenda-mode-map
(if (featurep (quote xemacs)) [button3]
[mouse-3])
(quote org-mouse-show-context-menu))
(define-key org-agenda-mode-map [down-mouse-3]
(quote org-mouse-move-tree-start))
(define-key org-agenda-mode-map
(if (featurep (quote xemacs)) [(control
mouse-4)]
[C-mouse-4])
(quote org-agenda-earlier))
(define-key org-agenda-mode-map
(if (featurep (quote xemacs)) [(control
mouse-5)]
[C-mouse-5])
(quote org-agenda-later))
(define-key org-agenda-mode-map [drag-mouse-3]
(quote
(lambda (event) (interactive "e")
(case (org-mouse-get-gesture event)
(:left (org-agenda-earlier 1))
(:right (org-agenda-later 1)))
)
)
)
)
)
org-export-interblocks '((lob org-babel-exp-lob-one-liners)
(src org-babel-exp-inline-src-blocks))
org-enforce-todo-dependencies t
org-tags-sort-function 'string<
org-agenda-add-entry-text-maxlines 5
org-occur-hook '(org-first-headline-recenter)
org-yank-adjusted-subtrees t
org-outline-path-complete-in-steps nil
org-treat-insert-todo-heading-as-state-change t
org-eval-interpreters '("lisp" "perl")
org-drawers '("PROPERTIES" "CLOCK" "LOGBOOK" "FEEDSTATUS")
org-export-preprocess-before-selecting-backend-code-hook '(org-
beamer-select-beamer-code)
org-tags-column 0
org-modules '(org-bbdb org-bibtex org-crypt org-gnus org-id org-info
org-jsinfo
org-habit org-inlinetask org-irc org-mew org-mhe org-
protocol
org-rmail org-vm org-wl org-w3m org-mouse org-annotate-
file
org-bookmark org-checklist org-choose org-collector
org-eval
org-expiry org-learn org-man org-registry org-screen
orgtbl-sqlinsert org-toc)
org-remember-templates '(("Log" 108 "* %^{headline} %^{VERSION}p%^g\n
%?\n\n"
nisp-org-log-hook date-tree nil)
("Journal" 106 "* %^{topic} %^g\n%?" "~/org/
diary.org"
date-tree nil)
("Todo" 116 "* TODO %^{thing todo} %^g\n%?"
"~/org/todo-triage.org" bottom nil)
)
org-export-preprocess-after-tree-selection-hook '(org-inlinetask-
export-handler)
org-remember-backup-directory "~/org/remember-backups/"
org-export-docbook-final-hook '(org-inlinetask-remove-terminator)
org-export-latex-final-hook '(org-inlinetask-remove-terminator
org-beamer-amend-header org-beamer-fix-
toc
org-beamer-auto-fragile-frames
org-beamer-place-default-actions-for-
lists)
org-enforce-todo-checkbox-dependencies t
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-expiry-handler-function 'org-toggle-archive-tag
org-link-abbrev-alist '(("screen" . "elisp:(org-screen-goto \"%s\")")
("google" . "http://google.com/search?q=";)
("en" . "http://en.wikipedia.org/wiki/";)
("emacswiki" . "http://www.emacswiki.org/emacs/
")
("customize-group" .
"elisp:(customize-group-other-window '%s)")
("customize-option" .
"elisp:(customize-option-other-window '%s)")
("elisp-func" . "elisp:(describe-function
'%s)")
("cl-net-darcs-web" .
nisp-org-cl-net-darcs-web-format-link)
("ansi" . nisp-org-ansi-format-link))
org-export-blocks '((src org-babel-exp-src-blocks nil)
(comment org-export-blocks-format-comment t)
(ditaa org-export-blocks-format-ditaa nil)
(dot org-export-blocks-format-dot nil))
)
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode