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 16:59:55 -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]:56210) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOaVS-0003Vk-79 for emacs-orgmode@gnu.org; Sun, 09 Aug 2015 19:59:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZOaVQ-0004Ll-Bi for emacs-orgmode@gnu.org; Sun, 09 Aug 2015 19:59:58 -0400 Received: from mail-wi0-x232.google.com ([2a00:1450:400c:c05::232]:33838) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZOaVQ-0004LY-0o for emacs-orgmode@gnu.org; Sun, 09 Aug 2015 19:59:56 -0400 Received: by wicne3 with SMTP id ne3so116185376wic.1 for ; Sun, 09 Aug 2015 16:59:55 -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 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.