From: Carsten Dominik <carsten.dominik@gmail.com>
To: James <i@nixeagle.org>
Cc: emacs-orgmode@gnu.org
Subject: Re: Bug: org-src-lang-modes maps lisp incorrectly [6.34trans (release_6.34c.107.geb521)]
Date: Thu, 25 Feb 2010 12:06:36 +0100 [thread overview]
Message-ID: <DCDDE7C4-6EED-4F35-B769-DD7E13DB3AB1@gmail.com> (raw)
In-Reply-To: <87d3zuysgy.fsf@nixeagle.org>
Hi James,
On Feb 25, 2010, at 3:11 AM, James wrote:
>
> 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).
This pair does not exist in the default value, at least not in the
current release. Maybe you have an old version? Or maybe you put
that there yourself?
HTH
- Carsten
>
> 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.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
prev parent reply other threads:[~2010-02-25 11:06 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-02-25 2:11 Bug: org-src-lang-modes maps lisp incorrectly [6.34trans (release_6.34c.107.geb521)] James
2010-02-25 11:06 ` Carsten Dominik [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=DCDDE7C4-6EED-4F35-B769-DD7E13DB3AB1@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=i@nixeagle.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).