From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stephan Schmitt Subject: Re: Org-mode version 6.32trans (release_6.32b.22.gfbe1); Symbol not found in org-src-switch-to-buffer Date: Thu, 29 Oct 2009 16:49:09 +0100 Message-ID: <4AE9B975.9030404@cs.tu-berlin.de> References: <874opite1h.fsf@dynapse.com> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1N3XNP-0006gB-8d for emacs-orgmode@gnu.org; Thu, 29 Oct 2009 11:57:27 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1N3XNK-0006ek-IF for emacs-orgmode@gnu.org; Thu, 29 Oct 2009 11:57:26 -0400 Received: from [199.232.76.173] (port=54496 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1N3XNK-0006eh-Fm for emacs-orgmode@gnu.org; Thu, 29 Oct 2009 11:57:22 -0400 Received: from mail.cs.tu-berlin.de ([130.149.17.13]:51556) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1N3XNJ-0004Z5-NO for emacs-orgmode@gnu.org; Thu, 29 Oct 2009 11:57:22 -0400 Received: from localhost (localhost [127.0.0.1]) by localhost-12225.cs.tu-berlin.de (Postfix) with ESMTP id AADBF326B1 for ; Thu, 29 Oct 2009 16:57:18 +0100 (MET) In-Reply-To: <874opite1h.fsf@dynapse.com> 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: "Gregory J. Grubbs" Cc: emacs-orgmode@gnu.org Hi, I noticed the same problem. However, the function org-src-switch-to-buffer (with the breaking case-form) runs without problems when it is not compiled. hth, Stephan Gregory J. Grubbs wrote: > When running C-c ' (org-edit-special) on the file attached to > [[gnus:gmane.emacs.orgmode#m2ws2fuppl.fsf@gmail.com][Email from Eric > Schulte: Re: {babel} Re: org-babel: Met]] > > I get the following backtrace > > --8<---------------cut here---------------start------------->8--- > Debugger entered--Lisp error: (invalid-function (quote current-window)) > (quote current-window)(#) > org-src-switch-to-buffer(# edit) > org-edit-src-code() > ad-Orig-org-edit-special() > org-edit-special() > call-interactively(org-edit-special nil nil) > --8<---------------cut here---------------end--------------->8--- > > The symbol 'current-window is being evaluated as a function ... don't understand why. > > I have org-src-window-setup set to 'reorganize-frame > > > > > Emacs : GNU Emacs 23.1.50.1 (i686-pc-linux-gnu, GTK+ Version 2.18.2) > of 2009-10-11 on maui > Package: Org-mode version 6.32trans (release_6.32b.22.gfbe1) > > current state: > ============== > (setq > org-clock-in-switch-to-state "STARTED" > org-todo-keyword-faces '(("TODO" :foreground "red" :weight bold) ("STARTED" :foreground "deep sky blue" :weight bold) > ("DONE" :foreground "forest green" :weight bold) > ("WAITING" :foreground "orange" :weight bold) ("SOMEDAY" :foreground "magenta" :weight bold) > ("CANCELLED" :foreground "forest green" :weight bold) > ("QUOTE" :foreground "red" :weight bold) ("QUOTED" :foreground "magenta" :weight bold) > ("APPROVED" :foreground "forest green" :weight bold) > ("EXPIRED" :foreground "forest green" :weight bold) > ("REJECTED" :foreground "forest green" :weight bold) > ("OPEN" :foreground "blue" :weight bold)) > org-special-ctrl-a/e t > org-agenda-clockreport-parameter-plist '(:link t :maxlevel 99) > org-agenda-custom-commands '(("P" "Projects" tags "Project" ((org-use-tag-inheritance nil))) > ("S" "Started Tasks" todo "STARTED" ((org-agenda-todo-ignore-with-date nil))) > ("w" "Tasks waiting on something" tags "WAITING" ((org-use-tag-inheritance nil))) > ("r" "Refile New Notes and Tasks" tags "REFILE" ((org-agenda-todo-ignore-with-date nil))) > ("n" "Notes" tags "NOTE" nil) > ("dc" "Clock report" agenda "" > ((org-agenda-ndays 1) (org-agenda-start-with-clockreport-mode t) > (org-agenda-time-grid nil) > (org-agenda-skip-function > (quote > (org-agenda-skip-entry-if (quote notscheduled) (quote deadline) (quote scheduled))) > ) > ) > ) > ("da" "GORT Agenda" ((agenda "") (todo "STARTED")))) > org-agenda-files '("~/hebrew-word-list.org" "~/projects/next-work.org" "~/projects/notes.org" > "~/work/carolsetters/carolsetters.org" "~/projects/reid.org" "~/work/rockthehill/rockthehill.org" > "~/projects/misc.org" "~/work/cglawfirm/cglawfirm.org" > "~gregj/work/nodepression/nd-archive-conversion.org" > "~gregj/work/northsummitventures/northsummitventures.org") > org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) > org-agenda-show-inherited-tags nil > org-agenda-window-setup 'other-window > org-agenda-exporter-settings '((ps-number-of-columns 1) (ps-landscape-mode t) (org-agenda-add-entry-text-maxlines 10) > (htmlize-output-type (quote css))) > org-completion-use-ido t > org-metaup-hook '(org-babel-load-in-session-maybe) > org-after-todo-state-change-hook '(org-clock-out-if-current) > org-read-date-prefer-future 'time > org-clock-history-length 12 > org-babel-interpreters '("sh" "emacs-lisp") > org-goto-interface 'outline-path-completion > org-todo-state-tags-triggers '(("CANCELLED" ("CANCELLED" . t)) ("WAITING" ("WAITING" . t) ("NEXT")) > ("SOMEDAY" ("WAITING" . t)) (done ("NEXT") ("WAITING")) > ("TODO" ("WAITING") ("CANCELLED")) ("STARTED" ("WAITING") ("NEXT" . t))) > org-agenda-restore-windows-after-quit t > org-stuck-projects '("Project|project/-DONE" nil ("NEXT") "") > org-export-preprocess-hook '(org-export-blocks-preprocess (lambda nil (org-dblock-update 2))) > org-tags-exclude-from-inheritance '("Project" "project") > org-tab-first-hook '(org-hide-block-toggle-maybe) > org-src-mode-hook '(org-src-mode-configure-edit-buffer) > org-confirm-shell-link-function 'yes-or-no-p > org-clock-sound "~/projects/c136.wav" > org-todo-keywords '((sequence "TODO(t)" "STARTED(s!)" "|" "DONE(d!/!)") > (sequence "PROPOSED(p)" "WAITING(w@/!)" "MAYBE(m!)" "OPEN(O@)" "|" "CANCELLED(c@/!)") > (sequence "QUOTE(q!)" "QUOTED(Q!)" "|" "APPROVED(A@)" "EXPIRED(E@)" "REJECTED(R@)")) > org-agenda-before-write-hook nil > org-default-notes-file "~/projects//inbox.org" > org-directory "~/projects/" > org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines > org-optimize-window-after-visibility-change) > org-refile-target-verify-function '(lambda nil (not (member "ARCHIVE" (org-get-tags)))) > org-mode-hook '((lambda nil (org-defkey org-mode-map [(control tab)] (quote org-next-link)) > (org-defkey org-mode-map [C-S-iso-lefttab] (quote org-previous-link)) > (org-defkey org-mode-map [home] (quote beginning-of-buffer)) > (org-defkey org-mode-map [end] (quote end-of-buffer))) > #[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 'current-window > org-cycle-include-plain-lists 'integrate > org-agenda-entry-text-maxlines 10 > org-agenda-ndays 1 > org-refile-targets '((org-agenda-files :maxlevel . 3)) > org-ctrl-c-ctrl-c-hook '(org-babel-lob-execute-maybe org-babel-execute-src-block-maybe) > org-cycle-separator-lines 1 > org-return-follows-link t > org-confirm-elisp-link-function 'yes-or-no-p > org-refile-use-outline-path 'file > org-log-into-drawer t > org-agenda-mode-hook '((lambda nil (hl-line-mode 1) (org-defkey org-agenda-mode-map "o" (quote org-agenda-show)))) > org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks)) > org-enforce-todo-dependencies t > org-reverse-note-order t > org-insert-heading-respect-content t > org-occur-hook '(org-first-headline-recenter) > org-yank-adjusted-subtrees t > org-outline-path-complete-in-steps nil > org-modules '(org-bbdb org-bibtex org-gnus org-info org-jsinfo org-irc org-mew org-mhe org-protocol org-rmail org-vm > org-wl org-w3m) > org-columns-default-format "%TODO %CATEGORY %60ITEM(Task)%5Effort(Estim){:} %5CLOCKSUM(Clock) %SCHEDULED(Time) %DEADLINE" > org-remember-templates '(("todo" 119 "* TODO %c\n\n%i\n %u" "~gregj/projects/notes.org" "Tasks") > ("bookmarks" 98 "* %c\n%i\n %u" "~gregj/projects/notes.org" "Bookmarks")) > org-metadown-hook '(org-babel-pop-to-session-maybe) > 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 > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode