Bug: org-src-lang-modes maps lisp incorrectly [6.34trans (release_6.34c.107.geb521)]

* Bug: org-src-lang-modes maps lisp incorrectly [6.34trans (release_6.34c.107.geb521)]
@ 2010-02-25  2:11 James
  2010-02-25 11:06 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: James @ 2010-02-25  2:11 UTC (permalink / raw)
  To: emacs-orgmode

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.
------------------------------------------------------------------------
Trying to source blocks for common lisp (eg lisp-mode) produces an
error.

The fix is trivial:

replace the assoc pair '("lisp" . 'lisp-mode) in org-src-lang-modes with
'("lisp" . 'lisp).

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

^ permalink raw reply	[flat|nested] 2+ messages in thread