From mboxrd@z Thu Jan 1 00:00:00 1970 From: James Subject: Bug: org-src-lang-modes maps lisp incorrectly [6.34trans (release_6.34c.107.geb521)] Date: Thu, 25 Feb 2010 02:11:41 +0000 Message-ID: <87d3zuysgy.fsf@nixeagle.org> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NkTCo-0002u2-5G for emacs-orgmode@gnu.org; Wed, 24 Feb 2010 21:11:58 -0500 Received: from [140.186.70.92] (port=42745 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NkTCl-0002tE-HO for emacs-orgmode@gnu.org; Wed, 24 Feb 2010 21:11:57 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NkTCf-00022J-LX for emacs-orgmode@gnu.org; Wed, 24 Feb 2010 21:11:55 -0500 Received: from qw-out-1920.google.com ([74.125.92.144]:45998) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NkTCf-000225-H2 for emacs-orgmode@gnu.org; Wed, 24 Feb 2010 21:11:49 -0500 Received: by qw-out-1920.google.com with SMTP id 5so715407qwc.24 for ; Wed, 24 Feb 2010 18:11:47 -0800 (PST) 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: emacs-orgmode@gnu.org 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)) )