Re: [bug] export corruption bug and 3 more bugs

[Samuel Wales <samologist@gmail.com>]

Minimal .emacs and test case for export corruption bug.

In the process, I found 2 Emacs 22 incompatibilities (fixed in the
minimal .emacs -- I had already fixed them) and 1 args out of range
error (not fixed -- can somebody find this bug?).  There is no stack
trace.

The args out of range error occurs when you do c-c c-e A on the lowest
level headline.

The corruption bug occurs when you export the top level of the test case.

I wanted to post my blog today, but I don't know which org version to
roll back to to make sure it will work, and for health reasons can't
afford the typing for git bisect.

Thanks.

Samuel

===

* something
hi there

more
*** still more
more

more
***** org
try exporting the above for one bug and the below for the
other.

use c-c c-e A .
******* Confusion and conflation
#bug!
Some definitions using the same name /exclude/ people who
have serious disease.  Can you predict the results?
******* test

===

;;;
;;;alpha-org-testcase.el
;;;
;;;minimal testcase for org
;;;
;;;how to use:
;;;
;;;1) put this file in your shell's current directory.
;;;2) put any testcase org files in your shell's current directory.
;;;3) comment out the set-frame-font line if you don't have that font.
;;;4) call like this.
;;;
;;;   delorgsrc=your-org-src-dir emacs22 -Q -l alpha-org-testcase.el
;;;

(require 'cl)

;;my org files use these
(setq org-odd-levels-only t)
(setf org-export-initial-scope 'subtree)

;;fix abominations
(blink-cursor-mode 0)
(setf visible-bell 'top-bottom)
(defvar alpha-mac-font
  "-apple-courier-medium-r-normal--24-240-72-72-m-240-iso10646-1")
;;;'(progn
;;;  (progn
;;;    (defconst alpha-mac-font-2
;;;      "-apple-courier-medium-r-normal--*-*-*-*-*-240-*")
;;;    (set-frame-font alpha-mac-font-2))
;;;  )
(set-frame-font alpha-mac-font)

;;;   (setq mac-pass-control-to-system nil)
;;;   (setq mac-command-modifier 'hyper)
;;;   (setq mac-option-modifier 'meta)

;;basics
(defun alpha-add-path (p) (setq load-path (cons p load-path)))
(alpha-add-path (concat (getenv "delorgsrc") "/lisp"))
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(require 'org-install)

(setq org-agenda-files '("todo-new--a.org"))

;;;(defvar alpha-org-map (make-sparse-keymap "alpha org map"))
;;;(define-key global-map [f8] alpha-org-map)

(setq org-completion-use-ido t)
(setf org-outline-path-complete-in-steps nil)

;;fix compatibility bug in org [2011-05-25 Wed 08:59]
(when (= emacs-major-version 22)
  (defun activate-mark ()
    "Activate the mark."
    (when (mark t)
      (setq mark-active t)
      (unless transient-mark-mode
        (setq transient-mark-mode 'lambda))
      (when (and select-active-regions
                 (display-selections-p))
        (x-set-selection 'PRIMARY (current-buffer))))))

;;[2011-05-25 Wed 09:23] fix compatibility bug in Org.
;;this is redefinition.  it is for 22 for export.
(defcustom select-active-regions nil
 "If non-nil, an active region automatically becomes the window selection."
 :type 'boolean
 :group 'killing
 :version "23.1")

-- 
The Kafka Pandemic: http://thekafkapandemic.blogspot.com
I support the Whittemore-Peterson Institute (WPI)
===
I want to see the original (pre-hold) Lo et al. 2010 NIH/FDA/Harvard MRV paper.