[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Errors with current version (git pull'ed at 10:30 CET)
From: |
Sebastien Vauban |
Subject: |
[O] Errors with current version (git pull'ed at 10:30 CET) |
Date: |
Tue, 28 Jun 2011 10:46:31 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (windows-nt) |
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) "@;\205 @ \306\307\310\f\n#,\205 \311\312A\"\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) "@;\205 @
\306\307\310\f\n#,\205 \311\312A\"\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 "&" ...))
("\\(\\`\\|/\\)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) "@;\205 @ \306\307\310\f\n#,\205 \311\312A\"\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) "@;\205 @
\306\307\310\f\n#,\205 \311\312A\"\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 "&" ...))
("\\(\\`\\|/\\)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
- [O] Errors with current version (git pull'ed at 10:30 CET),
Sebastien Vauban <=