emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Errors with current version (git pull'ed at 10:30 CET)
@ 2011-06-28  8:46 Sebastien Vauban
  2011-06-28 13:02 ` Bastien
  0 siblings, 1 reply; 4+ messages in thread
From: Sebastien Vauban @ 2011-06-28  8:46 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

Hello,

Just want to report 2 errors I got with the latest version of Org-mode. I'm
sure (with 5 nine, ie 99.999%) that I did not change anything in my setup
which could explain this.

Both errors were generated after a fresh Emacs startup.

* First

I try to open the file Work.org in which I had an open clock, on task "TODO
Organize work" (misc for project organization, etc.).

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  looking-at(nil)
  (and (looking-at org-complex-heading-regexp) (match-string 4))
  (save-excursion (goto-char (cdr resume-clock)) (org-back-to-heading t) (and (looking-at org-complex-heading-regexp) (match-string 4)))
  (save-current-buffer (set-buffer (find-file ...)) (save-excursion (goto-char ...) (org-back-to-heading t) (and ... ...)))
  (with-current-buffer (find-file (car resume-clock)) (save-excursion (goto-char ...) (org-back-to-heading t) (and ... ...)))
  (concat "Resume clock (" (with-current-buffer (find-file ...) (save-excursion ... ... ...)) ") ")
  (y-or-n-p (concat "Resume clock (" (with-current-buffer ... ...) ") "))
  (or (not org-clock-persist-query-resume) (y-or-n-p (concat "Resume clock (" ... ") ")))
  (and resume-clock org-clock-persist (file-exists-p (car resume-clock)) (or (not org-clock-persist-query-resume) (y-or-n-p ...)))
  (if (and resume-clock org-clock-persist (file-exists-p ...) (or ... ...)) (progn (when ... ...)))
  (when (and resume-clock org-clock-persist (file-exists-p ...) (or ... ...)) (when (file-exists-p ...) (with-current-buffer ... ... ...)))
  (if (not (file-readable-p filename)) (message "Not restoring clock data; %s not found" org-clock-persist-file) (message "%s" "Restoring clock data") (setq org-clock-loaded t) (load-file filename) (when stored-clock-history (save-window-excursion ...)) (when (and resume-clock org-clock-persist ... ...) (when ... ...)))
  (let ((filename ...) (org-clock-in-resume ...) resume-clock stored-clock-history) (if (not ...) (message "Not restoring clock data; %s not found" org-clock-persist-file) (message "%s" "Restoring clock data") (setq org-clock-loaded t) (load-file filename) (when stored-clock-history ...) (when ... ...)))
  (progn (let (... ... resume-clock stored-clock-history) (if ... ... ... ... ... ... ...)))
  (if (and org-clock-persist (not org-clock-loaded)) (progn (let ... ...)))
  (when (and org-clock-persist (not org-clock-loaded)) (let (... ... resume-clock stored-clock-history) (if ... ... ... ... ... ... ...)))
  org-clock-load()
  run-hooks(text-mode-hook outline-mode-hook org-mode-hook)
  apply(run-hooks (text-mode-hook outline-mode-hook org-mode-hook))
  run-mode-hooks(org-mode-hook)
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer pfitools.org> "~/emacs/site-lisp/pfitools.org" nil nil "~/emacs/site-lisp/pfitools.org" ((2816 6 . 35967) (21669 . 36592)))
  find-file-noselect("~/emacs/site-lisp/pfitools.org" nil nil nil)
  ad-Orig-find-file("~/emacs/site-lisp/pfitools.org" nil)
  find-file("~/emacs/site-lisp/pfitools.org")
  (progn (find-file file))
  (if file (progn (find-file file)))
  (when file (find-file file))
  (save-window-excursion (when file (find-file file)) (setq to-be-removed (current-buffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
  (let* ((file file) (visited-p ...) (point ...) to-be-removed) (save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) (while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char point))
  (org-babel-map-src-blocks file (let* (... ...) (when source-name ...)))
  (let ((lob-ingest-count 0)) (org-babel-map-src-blocks file (let* ... ...)) (message "%d src block%s added to Library of Babel" lob-ingest-count (if ... "s" "")) lob-ingest-count)
  org-babel-lob-ingest("~/emacs/site-lisp/pfitools.org")
  (progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote (defadvice undo ... "Make point and context visible after an undo command in Org mode." ...)) (add-hook (quote org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ... ...)) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-link t) (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-completion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references (quote from)) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-frame-setup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (defface my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.") (defface my/org-started-kwd-face (quote ...) "Face used to display state STARTED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to display state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face (quote ...) "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face (quote ...) "Face used to display state CANCELED.") ...)
  eval((progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote (defadvice undo ... "Make point and context visible after an undo command in Org mode." ...)) (add-hook (quote org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ... ...)) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-link t) (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-completion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references (quote from)) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-frame-setup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (defface my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.") (defface my/org-started-kwd-face (quote ...) "Face used to display state STARTED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to display state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face (quote ...) "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face (quote ...) "Face used to display state CANCELED.") ...))
  mapc(eval ((progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when ... ... ...) (setq org-ellipsis ...) (setq org-return-follows-link t) (setq org-blank-before-new-entry ...) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface ...) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require ...) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references ...) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes ...) (defun org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." ... ... ...) (setq org-link-mailto-program ...) (setq org-link-frame-setup ...) (setq org-link-abbrev-alist ...) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-face ... "Face used to display state NEW.") (defface my/org-started-kwd-face ... "Face used to display state STARTED.") (defface my/org-waiting-kwd-face ... "Face used to display state WAITING.") (defface my/org-delegated-kwd-face ... "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  #[(a-l-element) "\b@;\205\x1d\0\b@	\306\x1a^[\x1c\307\x1d\310\f\v\n#,\205\x1d\0\311\312\bA\"\207" [a-l-element abs-file start string regexp inhibit-changing-match-data nil t string-match mapc eval] 4](("\\(\\`\\|/\\)org\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when ... ... ...) (setq org-ellipsis ...) (setq org-return-follows-link t) (setq org-blank-before-new-entry ...) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface ...) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require ...) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references ...) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes ...) (defun org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." ... ... ...) (setq org-link-mailto-program ...) (setq org-link-frame-setup ...) (setq org-link-abbrev-alist ...) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-face ... "Face used to display state NEW.") (defface my/org-started-kwd-face ... "Face used to display state STARTED.") (defface my/org-waiting-kwd-face ... "Face used to display state WAITING.") (defface my/org-delegated-kwd-face ... "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  mapc(#[(a-l-element) "\b@;\205\x1d\0\b@	\306\x1a^[\x1c\307\x1d\310\f\v\n#,\205\x1d\0\311\312\bA\"\207" [a-l-element abs-file start string regexp inhibit-changing-match-data nil t string-match mapc eval] 4] (("\\(\\`\\|/\\)session\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...)) ("\\(\\`\\|/\\)ecb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (defadvice ecb-method-clicked ... "Make hierarchy visible when jumping into location from ECB tree buffer." ...)) ("\\(\\`\\|/\\)bookmark\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (if ... ... ...)) ("\\(\\`\\|/\\)imenu\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ...)) ("\\(\\`\\|/\\)org-exp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-hook ... ...)) ("\\(\\`\\|/\\)calendar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)circe\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)htmlize\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...)) ("\\(\\`\\|/\\)saveplace\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...) (defadvice save-place-find-file-hook ... "Make the position visible." ...)) ("\\(\\`\\|/\\)bbdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)gnus\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...) (color-theme-leuven)) ("\\(\\`\\|/\\)org\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)dired\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)psvn\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ...)) ("\\(\\`\\|/\\)slime\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)flymake\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)cedet\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)boxquote\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)bibtex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (define-key bibtex-mode-map "\x03&" ...)) ("\\(\\`\\|/\\)latex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)desktop\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) (info (dolist ... ...)) (texinfo (TeX-modes-set ... TeX-modes t)) (tex-mode (TeX-modes-set ... TeX-modes t)) ("\\(\\`\\|/\\)uniquify\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)cedet-edebug\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...) (progn ... ... ...)) ("\\(\\`\\|/\\)semanticdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (require ...)) ("\\(\\`\\|/\\)ede-proj\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (require ...)) ("\\(\\`\\|/\\)speedbar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (speedbar-add-supported-extension ".by") (speedbar-add-supported-extension ".wy") (progn ... ... ... ... ... ...)) ("\\(\\`\\|/\\)sendmail\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`\\|/\\)ange-ftp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (when ... ...)) ("\\(\\`\\|/\\)vc\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" nil) ("\\(\\`\\|/\\)ffap\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)recentf\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)tramp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (when ... ... ...) (when ... ... ...) (dolist ... ...) (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)flyspell\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...) (progn ... ...)) ("\\(\\`\\|/\\)ispell\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)woman\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" ("/man/" "C:/cygwin/usr/man/" "C:/cygwin/usr/share/man" "C:/cygwin/usr/local/man")) ("\\(\\`\\|/\\)quail/Punct-b5\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule " " 12288 nil t)) ("\\(\\`\\|/\\)quail/Punct\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule " " 12288 nil t)) ("\\(\\`\\|/\\)quail/PY-b5\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule "ling2" 9675 nil t)) (CUA-mode (bad-package-check ...)) (semantic (bad-package-check ...))))
  do-after-load-evaluation("c:/home/sva/src/org-mode/lisp/org.el")
  load-with-code-conversion("c:/home/sva/src/org-mode/lisp/org.el" "c:/home/sva/src/org-mode/lisp/org.el" nil t)
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer Work.org> "~/Projects/Work.org" nil nil "~/Projects/Work.org" ((256 0 . 62252) (21669 . 36592)))
  find-file-noselect("~/Projects/Work.org" nil nil nil)
  ad-Orig-find-file("~/Projects/Work.org" nil)
  find-file("~/Projects/Work.org")
  my/open-timeclock()
  call-interactively(my/open-timeclock nil nil)
--8<---------------cut here---------------end--------------->8---


* Second

I try to write a mail -- this launches Org thanks to autoloads, here for
correctly highlighting code blocks in Gnus.

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcdr(nil "nil=table")
  (setf (cddr (nth variable-index vars)) (concat (symbol-name ...) "=" (cdr pair)))
  (prog1 (setf (cddr ...) (concat ... "=" ...)) (incf variable-index))
  (if name (setq vars (append ... ...)) (prog1 (setf ... ...) (incf variable-index)))
  (let ((name ...)) (if name (setq vars ...) (prog1 ... ...)))
  (cond ((eql ... ...) (let ... ...)) ((eql ... ...) (setq results ...)) ((eql ... ...) (when ... ... ... ...)) ((eql ... ...) (setq exports ...)) ((eql ... ...) (setq tangle ...)) ((eql ... ...) (setq noweb ...)) ((eql ... ...) (setq cache ...)) ((eql ... ...) (setq padline ...)) ((eql ... ...) (setq shebang ...)) ((eql ... ...) (setq comments ...)) (t (setq params ...)))
  (case (car pair) (:var (let ... ...)) (:results (setq results ...)) (:file (when ... ... ... ...)) (:exports (setq exports ...)) (:tangle (setq tangle ...)) (:noweb (setq noweb ...)) (:cache (setq cache ...)) (:padline (setq padline ...)) (:shebang (setq shebang ...)) (:comments (setq comments ...)) (t (setq params ...)))
  (lambda (pair) (case (car pair) (:var ...) (:results ...) (:file ...) (:exports ...) (:tangle ...) (:noweb ...) (:cache ...) (:padline ...) (:shebang ...) (:comments ...) (t ...)))((:var . "table"))
  mapc((lambda (pair) (case (car pair) (:var ...) (:results ...) (:file ...) (:exports ...) (:tangle ...) (:noweb ...) (:cache ...) (:padline ...) (:shebang ...) (:comments ...) (t ...))) ((:var . "table") (:var . "column") (:var . "type") (:var . "nullability")))
  (lambda (plist) (mapc (lambda ... ...) plist))(((:var . "table") (:var . "column") (:var . "type") (:var . "nullability")))
  mapc((lambda (plist) (mapc (lambda ... ...) plist)) (((:var . "table") (:var . "column") (:var . "type") (:var . "nullability")) ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "") (:exports . "both") (:results . "output replace") (:eval . "never") (:engine . "msosql") (:cmdline . "-S cauchy -U sa -P LpmdlP -d pfi-paiestag -n -w 700") (:padnewline . "yes") (:hlines . "no") (:session . "none"))))
  (progn (fset (quote e-merge) (function* ...)) (mapc (lambda ... ...) plists))
  (unwind-protect (progn (fset ... ...) (mapc ... plists)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...)))
  (letf ((... ...)) (mapc (lambda ... ...) plists))
  (letf* ((... ...)) (mapc (lambda ... ...) plists))
  (flet ((e-merge ... ...)) (mapc (lambda ... ...) plists))
  (let ((results-exclusive-groups ...) (exports-exclusive-groups ...) (variable-index 0) params results exports tangle noweb cache vars shebang comments padline) (flet (...) (mapc ... plists)) (setq vars (reverse vars)) (while vars (setq params ...)) (mapc (lambda ... ...) (quote ...)) params)
  org-babel-merge-params(((:var . "table") (:var . "column") (:var . "type") (:var . "nullability")) ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . "") (:exports . "both") (:results . "output replace") (:eval . "never") (:engine . "msosql") (:cmdline . "-S cauchy -U sa -P LpmdlP -d pfi-paiestag -n -w 700") (:padnewline . "yes") (:hlines . "no") (:session . "none")))
  (setcar (nthcdr 2 info) (org-babel-merge-params (mapcar ... ...) (nth 2 info)))
  (setf (nth 2 info) (org-babel-merge-params (mapcar ... ...) (nth 2 info)))
  (progn (setf (nth 2 info) (org-babel-merge-params ... ...)))
  (if (match-string 6) (progn (setf ... ...)))
  (when (match-string 6) (setf (nth 2 info) (org-babel-merge-params ... ...)))
  (progn (setq name (org-babel-clean-text-properties ...)) (when (match-string 6) (setf ... ...)))
  (if (looking-at org-babel-src-name-w-name-regexp) (progn (setq name ...) (when ... ...)))
  (when (looking-at org-babel-src-name-w-name-regexp) (setq name (org-babel-clean-text-properties ...)) (when (match-string 6) (setf ... ...)))
  (save-excursion (goto-char head) (setq info (org-babel-parse-src-block-match)) (setq indent (car ...)) (setq info (butlast info)) (while (and ... ...) (setf ... ...)) (when (looking-at org-babel-src-name-w-name-regexp) (setq name ...) (when ... ...)))
  (if (setq head (org-babel-where-is-src-block-head)) (save-excursion (goto-char head) (setq info ...) (setq indent ...) (setq info ...) (while ... ...) (when ... ... ...)) (when (save-excursion ... ...) (setq info ...)))
  (let ((case-fold-search t) head info name indent) (if (setq head ...) (save-excursion ... ... ... ... ... ...) (when ... ...)) (when (and info ...) (setf ... ...)) (when info (append info ...)))
  org-babel-get-src-block-info(light)
  (let* ((info ...) (source-name ...)) (when source-name (setq source-name ... org-babel-library-of-babel ... lob-ingest-count ...)))
  (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) (beg-lang ...) (end-lang ...) (switches ...) (beg-switches ...) (end-switches ...) (header-args ...) (beg-header-args ...) (end-header-args ...) (body ...) (beg-body ...) (end-body ...)) (let* (... ...) (when source-name ...)) (goto-char end-block))
  (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char (match-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (let* ... ...) (goto-char end-block)))
  (save-window-excursion (when file (find-file file)) (setq to-be-removed (current-buffer)) (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
  (let* ((file file) (visited-p ...) (point ...) to-be-removed) (save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) (while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char point))
  (org-babel-map-src-blocks file (let* (... ...) (when source-name ...)))
  (let ((lob-ingest-count 0)) (org-babel-map-src-blocks file (let* ... ...)) (message "%d src block%s added to Library of Babel" lob-ingest-count (if ... "s" "")) lob-ingest-count)
  org-babel-lob-ingest("~/emacs/site-lisp/pfitools.org")
  (progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote (defadvice undo ... "Make point and context visible after an undo command in Org mode." ...)) (add-hook (quote org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ... ...)) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-link t) (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-completion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references (quote from)) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-frame-setup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (defface my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.") (defface my/org-started-kwd-face (quote ...) "Face used to display state STARTED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to display state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face (quote ...) "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face (quote ...) "Face used to display state CANCELED.") ...)
  eval((progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote (defadvice undo ... "Make point and context visible after an undo command in Org mode." ...)) (add-hook (quote org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ... ...)) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-link t) (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-completion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references (quote from)) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-frame-setup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (defface my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.") (defface my/org-started-kwd-face (quote ...) "Face used to display state STARTED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to display state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face (quote ...) "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face (quote ...) "Face used to display state CANCELED.") ...))
  mapc(eval ((progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when ... ... ...) (setq org-ellipsis ...) (setq org-return-follows-link t) (setq org-blank-before-new-entry ...) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface ...) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require ...) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references ...) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes ...) (defun org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." ... ... ...) (setq org-link-mailto-program ...) (setq org-link-frame-setup ...) (setq org-link-abbrev-alist ...) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-face ... "Face used to display state NEW.") (defface my/org-started-kwd-face ... "Face used to display state STARTED.") (defface my/org-waiting-kwd-face ... "Face used to display state WAITING.") (defface my/org-delegated-kwd-face ... "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  #[(a-l-element) "\b@;\205\x1d\0\b@	\306\x1a^[\x1c\307\x1d\310\f\v\n#,\205\x1d\0\311\312\bA\"\207" [a-l-element abs-file start string regexp inhibit-changing-match-data nil t string-match mapc eval] 4](("\\(\\`\\|/\\)org\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-empty-file t) (when ... ... ...) (setq org-ellipsis ...) (setq org-return-follows-link t) (setq org-blank-before-new-entry ...) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-interface ...) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-require ...) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-references ...) (section "3.1 The (org)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes ...) (defun org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between descriptive and literal link styles." ... ... ...) (setq org-link-mailto-program ...) (setq org-link-frame-setup ...) (setq org-link-abbrev-alist ...) (section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-face ... "Face used to display state NEW.") (defface my/org-started-kwd-face ... "Face used to display state STARTED.") (defface my/org-waiting-kwd-face ... "Face used to display state WAITING.") (defface my/org-delegated-kwd-face ... "Face used to display state DELEGATED.") (defface my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  mapc(#[(a-l-element) "\b@;\205\x1d\0\b@	\306\x1a^[\x1c\307\x1d\310\f\v\n#,\205\x1d\0\311\312\bA\"\207" [a-l-element abs-file start string regexp inhibit-changing-match-data nil t string-match mapc eval] 4] (("\\(\\`\\|/\\)org-capture\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`\\|/\\)diary-lib\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (if ... nil ...)) ("\\(\\`\\|/\\)session\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...)) ("\\(\\`\\|/\\)ecb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (defadvice ecb-method-clicked ... "Make hierarchy visible when jumping into location from ECB tree buffer." ...)) ("\\(\\`\\|/\\)bookmark\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (if ... ... ...)) ("\\(\\`\\|/\\)imenu\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ...)) ("\\(\\`\\|/\\)org-exp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-hook ... ...)) ("\\(\\`\\|/\\)calendar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)message\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...)) ("\\(\\`\\|/\\)mailcap\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...) (add-to-list ... ...)) ("\\(\\`\\|/\\)w3m\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`\\|/\\)mm-decode\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)mm-uu\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)gnus-sum\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (define-key gnus-summary-goto-map "T" ...)) ("\\(\\`\\|/\\)circe\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)htmlize\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...)) ("\\(\\`\\|/\\)saveplace\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...) (defadvice save-place-find-file-hook ... "Make the position visible." ...)) ("\\(\\`\\|/\\)bbdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)gnus\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...) (color-theme-leuven)) ("\\(\\`\\|/\\)org\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)dired\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)psvn\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ...)) ("\\(\\`\\|/\\)slime\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)flymake\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)cedet\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)boxquote\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)bibtex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (define-key bibtex-mode-map "\x03&" ...)) ("\\(\\`\\|/\\)latex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)desktop\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) (info (dolist ... ...)) (texinfo (TeX-modes-set ... TeX-modes t)) (tex-mode (TeX-modes-set ... TeX-modes t)) ("\\(\\`\\|/\\)uniquify\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)cedet-edebug\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...) (progn ... ... ...)) ("\\(\\`\\|/\\)semanticdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (require ...)) ("\\(\\`\\|/\\)ede-proj\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (require ...)) ("\\(\\`\\|/\\)speedbar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (speedbar-add-supported-extension ".by") (speedbar-add-supported-extension ".wy") (progn ... ... ... ... ... ...)) ("\\(\\`\\|/\\)sendmail\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`\\|/\\)ange-ftp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (when ... ...)) ("\\(\\`\\|/\\)vc\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" nil) ("\\(\\`\\|/\\)ffap\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)recentf\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)tramp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (when ... ... ...) (when ... ... ...) (dolist ... ...) (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)flyspell\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...) (progn ... ...)) ("\\(\\`\\|/\\)ispell\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)woman\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" ("/man/" "C:/cygwin/usr/man/" "C:/cygwin/usr/share/man" "C:/cygwin/usr/local/man")) ("\\(\\`\\|/\\)quail/Punct-b5\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule " " 12288 nil t)) ("\\(\\`\\|/\\)quail/Punct\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule " " 12288 nil t)) ("\\(\\`\\|/\\)quail/PY-b5\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule "ling2" 9675 nil t)) (CUA-mode (bad-package-check ...)) ...))
  do-after-load-evaluation("c:/home/sva/src/org-mode/lisp/org.el")
  load-with-code-conversion("c:/home/sva/src/org-mode/lisp/org.el" "c:/home/sva/src/org-mode/lisp/org.el" nil t)
  orig-require(org nil nil)
  (let ((my/require-depth ...)) (orig-require feature filename noerror))
  (cond ((member feature features) (message "%sRequiring `%s' (already loaded)" ... feature)) (t (message "%sRequiring `%s'" ... feature) (let ... ...) (message "%sRequiring `%s'...done" ... feature)))
  require(org)
  eval-buffer(#<buffer  *load*> nil "c:/home/sva/src/org-mode/lisp/org-table.el" nil t)  ; Reading at buffer position 1520
  load-with-code-conversion("c:/home/sva/src/org-mode/lisp/org-table.el" "c:/home/sva/src/org-mode/lisp/org-table.el" nil t)
  (turn-on-orgtbl)
  (progn (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++))
  (if (locate-library "org.el") (progn (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++)))
  (when (locate-library "org.el") (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++))
  my/message-mode-hook()
  run-hooks(text-mode-hook message-mode-hook)
  apply(run-hooks (text-mode-hook message-mode-hook))
  run-mode-hooks(message-mode-hook)
  message-mode()
  message-pop-to-buffer("*posting on gmane.emacs.orgmode*")
  message-news("gmane.emacs.orgmode")
  gnus-post-news(post "nntp+gmane:gmane.emacs.orgmode")
  gnus-summary-post-news(nil)
  call-interactively(gnus-summary-post-news nil nil)
--8<---------------cut here---------------end--------------->8---

The above error is generated.

Workaround: explicitly call `C-c a a' before trying to post my message.

Best regards,
  Seb

-- 
Sebastien Vauban

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Errors with current version (git pull'ed at 10:30 CET)
  2011-06-28  8:46 Errors with current version (git pull'ed at 10:30 CET) Sebastien Vauban
@ 2011-06-28 13:02 ` Bastien
  2011-06-28 14:19   ` Darlan Cavalcante Moreira
  2011-06-28 14:26   ` Sebastien Vauban
  0 siblings, 2 replies; 4+ messages in thread
From: Bastien @ 2011-06-28 13:02 UTC (permalink / raw)
  To: Sebastien Vauban; +Cc: emacs-orgmode

Hi Sebastien,

"Sebastien Vauban" <wxhgmqzgwmuf@spammotel.com> writes:

> Just want to report 2 errors I got with the latest version of Org-mode. I'm
> sure (with 5 nine, ie 99.999%) that I did not change anything in my setup
> which could explain this.
>
> Both errors were generated after a fresh Emacs startup.
>
> * First
>
> I try to open the file Work.org in which I had an open clock, on task "TODO
> Organize work" (misc for project organization, etc.).

Can you send a minimal .org file to help reproduce the problem?  

> * Second
>
> I try to write a mail -- this launches Org thanks to autoloads, here for
> correctly highlighting code blocks in Gnus.

This looks like a problem with Babel -- can you help narrow down the
problem a bit more?

Thanks!

-- 
 Bastien

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Errors with current version (git pull'ed at 10:30 CET)
  2011-06-28 13:02 ` Bastien
@ 2011-06-28 14:19   ` Darlan Cavalcante Moreira
  2011-06-28 14:26   ` Sebastien Vauban
  1 sibling, 0 replies; 4+ messages in thread
From: Darlan Cavalcante Moreira @ 2011-06-28 14:19 UTC (permalink / raw)
  To: Bastien; +Cc: Sebastien Vauban, emacs-orgmode


I'm also having problems with recent changes (since yesterday, but it has
been a few days since my last update before that) that may be due to the
same cause.

It seems to be related to the library of babel.
I can reproduced with the following steps
--8<---------------cut here---------------start------------->8---
 1. Start Emacs with:
    : "Emacs -Q"
 2. Add the folder where I pulled org-mode (evaluate the code below in my
    case):
    : (let ((default-directory "~/Org-mode-dev/org-mode"))
    :   (normal-top-level-add-to-load-path '("."))
    :   (normal-top-level-add-subdirs-to-load-path)
    : )
 3. Put the code below in an org file, for instance
    "~/Muse/org/my_library_of_babel.org"
    : #+source: identity(var)
    : #+begin_src python
    :   return var
    : #+end_src
 4. Ingest this file in the library of babel with
    : (org-babel-lob-ingest "~/Muse/org/my_library_of_babel.org")
--8<---------------cut here---------------end--------------->8---

I get an error with the back-trace below 
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument consp nil)
  #[(pair) "\b@\306=\203]  mapc(#[(pair) "\b@\306=\203]  #[(plist) "\301\302\b\"\207" [plist mapc #[(pair) "\b@\306=\203]  mapc(#[(plist) "\301\302\b\"\207" [plist mapc #[(pair) "\b@\306=\203]  org-babel-merge-params(((:var . "var")) ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "code") (:results . "replace") (:padnewline . "yes") (:hlines . "no") (:session . "none")))
  org-babel-get-src-block-info(light)
  org-babel-lob-ingest("~/Muse/org/my_library_of_babel.org")
  eval((org-babel-lob-ingest "~/Muse/org/my_library_of_babel.org") nil)
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp nil nil)
--8<---------------cut here---------------end--------------->8---

--
Darlan Cavalcante

At Tue, 28 Jun 2011 15:02:01 +0200,
Bastien <bzg@altern.org> wrote:
> 
> Hi Sebastien,
> 
> "Sebastien Vauban" <wxhgmqzgwmuf@spammotel.com> writes:
> 
> > Just want to report 2 errors I got with the latest version of Org-mode. I'm
> > sure (with 5 nine, ie 99.999%) that I did not change anything in my setup
> > which could explain this.
> >
> > Both errors were generated after a fresh Emacs startup.
> >
> > * First
> >
> > I try to open the file Work.org in which I had an open clock, on task "TODO
> > Organize work" (misc for project organization, etc.).
> 
> Can you send a minimal .org file to help reproduce the problem?  
> 
> > * Second
> >
> > I try to write a mail -- this launches Org thanks to autoloads, here for
> > correctly highlighting code blocks in Gnus.
> 
> This looks like a problem with Babel -- can you help narrow down the
> problem a bit more?
> 
> Thanks!
> 
> -- 
>  Bastien
> 

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Errors with current version (git pull'ed at 10:30 CET)
  2011-06-28 13:02 ` Bastien
  2011-06-28 14:19   ` Darlan Cavalcante Moreira
@ 2011-06-28 14:26   ` Sebastien Vauban
  1 sibling, 0 replies; 4+ messages in thread
From: Sebastien Vauban @ 2011-06-28 14:26 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

Hi Bastien,

Bastien wrote:
> "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> writes:
>
>> Just want to report 2 errors I got with the latest version of Org-mode. I'm
>> sure (with 5 nine, ie 99.999%) that I did not change anything in my setup
>> which could explain this.
>>
>> Both errors were generated after a fresh Emacs startup.
>>
>> * First
>>
>> I try to open the file Work.org in which I had an open clock, on task "TODO
>> Organize work" (misc for project organization, etc.).
>
> Can you send a minimal .org file to help reproduce the problem?
>
>> * Second
>>
>> I try to write a mail -- this launches Org thanks to autoloads, here for
>> correctly highlighting code blocks in Gnus.
>
> This looks like a problem with Babel -- can you help narrow down the problem
> a bit more?

Very difficult to send an ECM -- otherwise, I'd have done it since this
morning -- as the errors I get are not always exactly the same.

Though, I now can tell that adding the following Org file to the list of
agenda files (and restarting Emacs) *does* make a difference, and is at least
the source of the second problem.

    Note -- This file is part of my agenda files for months, and has been
    unchanged for many, many weeks. Why it now is a problem is very obscure to
    me.

The disturbing file:

--8<---------------cut here---------------start------------->8---
#+TITLE:     Babel ECM
#+DATE:      2011-06-28
#+DESCRIPTION: 
#+KEYWORDS: 
#+LANGUAGE:  en_US

#+LaTeX_CLASS: mcreport
#+LaTeX_CLASS_OPTIONS: [final]

#+BABEL:     :eval never :engine msosql :cmdline -S cauchy -U sa -P LpmdlP -d pfi-paiestag -n -w 700 :results output :exports both :noweb yes

* Introduction

This library is an extensible *collection of* ready-made *code blocks* for
handling common tasks.

* "Generic" Transact-SQL

** Add a column into a table

#+srcname: add-column-in-table(table, column, type, nullability)
#+begin_src sql
-- add column `$column' (if column does not exist yet)
IF NOT EXISTS (SELECT *
               FROM INFORMATION_SCHEMA.COLUMNS
               WHERE TABLE_NAME = '$table'
               AND COLUMN_NAME = '$column')
BEGIN
    ALTER TABLE $table
    ADD $column $type $nullability
END
#+end_src

--8<---------------cut here---------------end--------------->8---

Having it in org-agenda-files causes troubles, such as this other error:

--8<---------------cut here---------------start------------->8---
if: Agenda file c:/home/sva/Personal/House.org is not in `org-mode'
--8<---------------cut here---------------end--------------->8---

This error message occurred a couple of times to me, over the last few weeks.
Today, I got it many times.

I now am aware that a couple of colleagues already saw it as well. Current
workaround: restart Emacs (and, often, the problem is "solved" by itself).
Very disturbing.

Can anyone confirm my observation by adding the above file in his org-agenda
ones, and restarting Emacs?  Thanks.

Best regards,
  Seb

-- 
Sebastien Vauban

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2011-06-28 14:26 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2011-06-28  8:46 Errors with current version (git pull'ed at 10:30 CET) Sebastien Vauban
2011-06-28 13:02 ` Bastien
2011-06-28 14:19   ` Darlan Cavalcante Moreira
2011-06-28 14:26   ` Sebastien Vauban

Code repositories for project(s) associated with this inbox:

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).