From mboxrd@z Thu Jan 1 00:00:00 1970 From: Samuel Wales Subject: Re: comment trees in 8.3 Date: Sun, 9 Aug 2015 17:02:14 -0700 Message-ID: References: <87vbct9ia9.fsf@kmlap.domain.org> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56521) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOaXh-0002r9-KD for emacs-orgmode@gnu.org; Sun, 09 Aug 2015 20:02:19 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZOaXf-0005gf-9F for emacs-orgmode@gnu.org; Sun, 09 Aug 2015 20:02:17 -0400 Received: from mail-wi0-x22a.google.com ([2a00:1450:400c:c05::22a]:32773) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOaXe-0005gF-UA for emacs-orgmode@gnu.org; Sun, 09 Aug 2015 20:02:15 -0400 Received: by wijp15 with SMTP id p15so115937031wij.0 for ; Sun, 09 Aug 2015 17:02:14 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Kyle Meyer Cc: emacs-orgmode@gnu.org oops, the previous test case file was wrong, but the code for -Q reproduction was correct. here is a correct test case file: * x *** y ***** TODO yes DEADLINE: <2015-08-05 Wed> ***** TODO COMMENT no DEADLINE: <2015-08-05 Wed> ***** asasasas DEADLINE: <2015-08-05 Wed> ******* asdfasdfasdf ******* fdasdfasdfasdfasdf ******* asdfasdfasdfasdfasdfasdf On 8/9/15, Samuel Wales wrote: > can anybody else reproduce? > > * x > *** TODO yes > DEADLINE: <2015-08-05 Wed> > **** TODO COMMENT no > DEADLINE: <2015-08-05 Wed> > > On 8/5/15, Samuel Wales wrote: >> 24.4.1 >> >> can repro with -Q and this old testcase code and restriction lock and >> org-agenda-list. >> >> === >> >> ;;; >> ;;;alpha-org-testcase.el >> ;;; >> ;;;minimal testcase for org >> ;;; >> ;;; dorg=your-org-dir delorgsrc=your-org-src-dir emacs -Q -l >> alpha-org-testcase.el >> ;;; >> >> ;;; >> ;;;for my use i do this: >> ;;; >> " >> mep=t emacs -Q -l $del/tests-and-publish/alpha-org-testcase.el \ >> --geometry +0+0 \ >> --geometry 60x30 \ >> $dorg/tests--org--xyzzy-big/comment.org >> " >> ;;; >> >> (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) >> >> ;;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 (list (substitute-in-file-name >> "$dorg/todo-new--a.org"))) >> >> ;;; >> ;;;stuff make things easier >> ;;; >> >> (setq org-completion-use-ido t) >> (setf org-outline-path-complete-in-steps nil) >> >> ;;; >> ;;;compatibility fixes >> ;;; >> >> ;; ;;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") >> >> ;;; >> ;;;accessibility fixes >> ;;; >> >> (defun p () >> (interactive) >> (message "fixing pop-up-windows") >> ;;i have /pop-up-windows/ set to nil, which works for most of >> ;;emacs. for org, i do the following. i need all of this just >> ;;as i need the large font above for accessibility reasons. >> ;; >> ;;(setf (cdr (assoc* 'file org-link-frame-setup)) 'find-file) >> (pushnew '(file . find-file) org-link-frame-setup :test #'equal) >> ;;it might be nice to have a 'dedicated-buffer option >> (setf org-indirect-buffer-display 'current-window) >> ;;could make pop kill the buffer >> ;;;(setf org-display-internal-link-with-indirect-buffer t) >> (setf org-src-window-setup 'current-window) >> (add-hook 'org-capture-mode-hook 'delete-other-windows) >> (defadvice org-agenda-set-tags (around fix-windows activate compile) >> "Restore windows." >> (save-window-excursion >> ad-do-it)) >> (defadvice org-export (after fix-windows activate compile) >> "Delete other windows after every export." >> (delete-other-windows)) >> >> (setf pop-up-windows nil) >> >> ;;for emacs i do this >> >> (add-to-list 'same-window-regexps "\\*Customize.*") ;notwork? >> (setf Man-notify-method 'pushy) >> (add-to-list 'same-window-regexps "\\*Man .*") ;notwork >> (add-to-list 'same-window-regexps "\\*.*\\*") >> (add-to-list 'same-window-buffer-names "*Remember*") >> (add-to-list 'same-window-buffer-names "*Help*") >> (add-to-list 'same-window-buffer-names "*Apropos*") >> (add-to-list 'same-window-buffer-names "*Summary*") >> (add-to-list 'same-window-buffer-names "*Compile-Log*") >> (add-to-list 'same-window-buffer-names "*Ibuffer*") >> (add-to-list 'same-window-buffer-names " *Ibuffer*") >> (message "done fixing pop-up-windows")) >> (when (getenv "mep") >> ;;it is i >> (defconst alpha-alpha-p t) >> (require 'org) >> (p) >> ;;necessary for large fonts >> (scroll-bar-mode -1)) >> >> ;;; >> ;;;basic org features likely to affect many bug reports >> ;;; >> >> (setq org-todo-keywords >> '((type "NAKA(i)" "TODO(T)" "MAYBE(y)" "DOUBTFUL(l)" >> "|" >> "MOOT(m)"))) >> >> (setq org-agenda-window-setup 'current-window) >> > > > -- > The Kafka Pandemic: http://thekafkapandemic.blogspot.com > > Ramsay's disease DOES progress. MANY people have died from it. And > ANYBODY can get it. > > Denmark: free Karina Hansen NOW. > -- The Kafka Pandemic: http://thekafkapandemic.blogspot.com Ramsay's disease DOES progress. MANY people have died from it. And ANYBODY can get it. Denmark: free Karina Hansen NOW.