Re: Org-mode version 6.32trans (release_6.32b.22.gfbe1); Symbol not found in org-src-switch-to-buffer

[Carsten Dominik <carsten.dominik@gmail.com>]

Can you guys please try to pull again?  I think this problem is solved
now - let me know if not.

- Carsten

On Oct 29, 2009, at 4:49 PM, Stephan Schmitt wrote:

> 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)(#<buffer *Org Src noweb-eval.org[ latex ]*>)
>>  org-src-switch-to-buffer(#<buffer *Org Src noweb- 
>> eval.org[ latex ]*> 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
>
>
> _______________________________________________
> 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

- Carsten