From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik 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 Message-ID: References: <87d3zuysgy.fsf@nixeagle.org> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NkbYO-0004aB-Lh for emacs-orgmode@gnu.org; Thu, 25 Feb 2010 06:06:48 -0500 Received: from [140.186.70.92] (port=37923 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NkbYM-0004Ze-C9 for emacs-orgmode@gnu.org; Thu, 25 Feb 2010 06:06:47 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NkbYK-0005km-6B for emacs-orgmode@gnu.org; Thu, 25 Feb 2010 06:06:46 -0500 Received: from mail-ew0-f222.google.com ([209.85.219.222]:54648) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NkbYJ-0005kd-Qg for emacs-orgmode@gnu.org; Thu, 25 Feb 2010 06:06:44 -0500 Received: by ewy22 with SMTP id 22so1365023ewy.26 for ; Thu, 25 Feb 2010 03:06:42 -0800 (PST) In-Reply-To: <87d3zuysgy.fsf@nixeagle.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: James Cc: emacs-orgmode@gnu.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