The bug occurs when the region is active. It does not occur when I
have a file dedicated to the subtree, mark a region, but don't have an
active region (transient-mark-mode is off). When I do the latter but
it is part of a larger file there is a wrong type argument error.
*** [[http://google.com][hi]]
text
Here is a minimal .emacs.
(require 'cl)
(defun alpha-add-path (p) (setq load-path (cons p load-path)))
(alpha-add-path (concat (getenv "delorgsrc") "/lisp"))
(alpha-add-path (concat (getenv "delpkgbef") "/remember"))
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(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)
;;it seems to me that i never want blank lines ending a body
;;;(setf org-cycle-separator-lines 0)
(setf org-cycle-separator-lines 1)
;;;(setf org-cycle-separator-lines 2)
;;keep body indentation intact when promoting and demoting
(setf org-adapt-indentation nil)
;;;(setf org-adapt-indentation t)
;;very strange. this gets overridden with time?
;;;(setq org-log-done t)
(setq org-log-done 'time)
(require 'org-install)
(defvar alpha-org-map (make-sparse-keymap "alpha org map"))
(define-key global-map [f8] alpha-org-map)
(define-key alpha-org-map [f8] 'org-remember) ;c-c r
(define-key alpha-org-map "o" 'org-open-at-point-global) ;c-c o
(require 'remember-autoloads)
(org-remember-insinuate)
;;http://mail.google.com/mail/x
(setf org-file-apps
'(
;;(auto-mode . emacs)
;;("\\.x?html?\\'" . default)
;;("\\.pdf\\'" . default)
(t . emacs)))
(define-key org-mode-map "\C-cc" (lambda () (interactive) (org-todo
"WAIT")))