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

[Stephan Schmitt <drmabuse@cs.tu-berlin.de>]

(eval-when-compile
   (require 'cl))
did the trick

thx, too!
	Stephan

Gregory J. Grubbs wrote:
> I don't understand how ... but that solves it for me - thanks!
> 
> -Greg
> 
> Carsten Dominik <carsten.dominik@gmail.com> writes:
> 
>> 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
>>
>>
>>
>>
>>
>> _______________________________________________
>> 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