From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: Errors with current version (git pull'ed at 10:30 CET)
Date: Tue, 28 Jun 2011 10:46:31 +0200 [thread overview]
Message-ID: <80hb7apcm0.fsf@somewhere.org> (raw)
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
next reply other threads:[~2011-06-28 8:46 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-06-28 8:46 Sebastien Vauban [this message]
2011-06-28 13:02 ` Errors with current version (git pull'ed at 10:30 CET) Bastien
2011-06-28 14:19 ` Darlan Cavalcante Moreira
2011-06-28 14:26 ` Sebastien Vauban
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=80hb7apcm0.fsf@somewhere.org \
--to=wxhgmqzgwmuf-genee64ty+gs+fvcfc7uqw@public.gmane.org \
--cc=emacs-orgmode-mXXj517/zsQ@public.gmane.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public 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).