Reported by: Jambunathan K <kjambunathan <at> gmail.com>
Date: Tue, 3 Apr 2012 05:53:01 UTC
Severity: normal
Found in version 24.0.95
Done: Bastien <bzgNOSPAM <at> altern.org>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 11160 in the body.
You can then email your comments to 11160 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
bug-gnu-emacs <at> gnu.org:bug#11160; Package emacs.
(Tue, 03 Apr 2012 05:53:02 GMT) Full text and rfc822 format available.Jambunathan K <kjambunathan <at> gmail.com>:bug-gnu-emacs <at> gnu.org.
(Tue, 03 Apr 2012 05:53:02 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Jambunathan K <kjambunathan <at> gmail.com> To: bug-gnu-emacs <at> gnu.org, Orgmode <emacs-orgmode <at> gnu.org> Subject: 24.0.95; (org) outline-style cycling + outline-mode Date: Tue, 03 Apr 2012 11:21:00 +0530
1. Install the following hook
(add-hook 'outline-mode-hook
(lambda ()
(define-key outline-mode-map [(tab)] 'org-cycle)
(define-key outline-mode-map [(shift tab)] 'org-global-cycle)))
2. (setq debug-on-error t)
3. Visit NEWS file with C-h n
4. Place the cursor at the end of the line as shown below.
,---- ^^^^^ is where the cursor is.
| ---^^^^^^
| ** Emacs can be compiled with SELinux support.^^^^^^
| This happens by default if a suitably recent version of the library is
| found at build time. To prevent this, use the configure option^^^^^^^^
| `--without-selinux'. See below for SELinux features.
|
|
`----
5. Press S-TAB. The following error is reported. I would expect some
sort of cycling to happen.
let: Wrong type argument: stringp, nil
6. This doesn't happen if I am in the middle of a paragraph/line.
7. Here is the sequence of calls.
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
looking-at(nil)
(let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
(save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp)))
(and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))) (string= (match-string 3) ""))
org-point-at-end-of-empty-headline()
(if (org-point-at-end-of-empty-headline) (progn (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
(when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ (- cur-level prev-level) (org-level-increment))) do (org-do-promote)))) t))
(let ((org-adapt-indentation nil)) (when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
org-cycle-level()
(or (org-cycle-level) (org-cycle-item-indentation))
(and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))
(or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation))))
(if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
(unless (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
org-cycle((4))
(cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4)))))
(let ((org-cycle-include-plain-lists (if (eq major-mode (quote org-mode)) org-cycle-include-plain-lists nil))) (cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4))))))
org-global-cycle(nil)
call-interactively(org-global-cycle nil nil)
recursive-edit()
debug(error (wrong-type-argument stringp nil))
looking-at(nil)
(let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
(save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp)))
(and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))) (string= (match-string 3) ""))
org-point-at-end-of-empty-headline()
(if (org-point-at-end-of-empty-headline) (progn (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
(when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ (- cur-level prev-level) (org-level-increment))) do (org-do-promote)))) t))
(let ((org-adapt-indentation nil)) (when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
org-cycle-level()
(or (org-cycle-level) (org-cycle-item-indentation))
(and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))
(or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation))))
(if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
(unless (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
org-cycle((4))
(cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4)))))
(let ((org-cycle-include-plain-lists (if (eq major-mode (quote org-mode)) org-cycle-include-plain-lists nil))) (cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4))))))
org-global-cycle(nil)
call-interactively(org-global-cycle nil nil)
recursive-edit()
debug(error (wrong-type-argument stringp nil))
looking-at(nil)
(let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
(save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp)))
(and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))) (string= (match-string 3) ""))
org-point-at-end-of-empty-headline()
(if (org-point-at-end-of-empty-headline) (progn (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
(when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ (- cur-level prev-level) (org-level-increment))) do (org-do-promote)))) t))
(let ((org-adapt-indentation nil)) (when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
org-cycle-level()
(or (org-cycle-level) (org-cycle-item-indentation))
(and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))
(or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation))))
(if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
(unless (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
org-cycle((4))
(cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4)))))
(let ((org-cycle-include-plain-lists (if (eq major-mode (quote org-mode)) org-cycle-include-plain-lists nil))) (cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4))))))
org-global-cycle(nil)
call-interactively(org-global-cycle nil nil)
recursive-edit()
debug(error (wrong-type-argument stringp nil))
looking-at(nil)
(let ((case-fold-search nil)) (looking-at org-todo-line-regexp))
(save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp)))
(and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((case-fold-search nil)) (looking-at org-todo-line-regexp))) (string= (match-string 3) ""))
org-point-at-end-of-empty-headline()
(if (org-point-at-end-of-empty-headline) (progn (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
(when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ (- cur-level prev-level) (org-level-increment))) do (org-do-promote)))) t))
(let ((org-adapt-indentation nil)) (when (org-point-at-end-of-empty-headline) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-current-level)) (prev-level (org-get-previous-line-level))) (cond ((= prev-level 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= prev-level cur-level) (org-do-demote)) ((= prev-level 1) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote))) ((= cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment)) do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-level prev-level) (loop repeat (+ 1 (/ ... ...)) do (org-do-promote)))) t)))
org-cycle-level()
(or (org-cycle-level) (org-cycle-item-indentation))
(and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))
(or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation))))
(if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
(unless (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) (let* ((limit-level (or org-cycle-max-level (and (boundp (quote org-inlinetask-min-level)) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (and limit-level (1- ...)) limit-level))) (org-outline-regexp (if (not (eq major-mode (quote org-mode))) outline-regexp (concat "\\*" (if nstars (format "\\{1,%d\\} " nstars) "+ ")))) (bob-special (and org-cycle-global-at-bob (not arg) (bobp) (not (looking-at org-outline-regexp)))) (org-cycle-hook (if bob-special (delq (quote org-optimize-window-after-visibility-change) (copy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-special (equal arg (quote (4)))) (setq arg t)) (cond ((equal arg (quote (16))) (setq last-command (quote dummy)) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties")) ((equal arg (quote (64))) (show-all) (message "Entire buffer visible, including drawers")) ((org-at-table-p (quote any)) (if (org-at-table\.el-p) (message "Use C-c ' to edit table.el tables") (if arg (org-table-edit-field t) (org-table-justify-field-maybe) (call-interactively (quote org-table-next-field))))) ((run-hook-with-args-until-success (quote org-tab-after-check-for-table-hook))) ((eq arg t) (org-cycle-internal-global)) ((and org-drawers org-drawer-regexp (save-excursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-drawer (not (get-char-property (match-end 0) (quote invisible))))) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-inlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) ((and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursion (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-tab-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-hook-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((and (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding " "))) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (beginning-of-line 1) (looking-at "[ ]*")) (or (and ... ...) (and ... ...))) t (eq org-cycle-emulate-tab t)) (call-interactively (global-key-binding " "))) (t (save-excursion (org-back-to-heading) (org-cycle))))))
org-cycle((4))
(cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4)))))
(let ((org-cycle-include-plain-lists (if (eq major-mode (quote org-mode)) org-cycle-include-plain-lists nil))) (cond ((integerp arg) (show-all) (hide-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-visibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (org-cycle (quote (4))))))
org-global-cycle(nil)
call-interactively(org-global-cycle nil nil)
In GNU Emacs 24.0.95.1 (i386-mingw-nt5.1.2600)
of 2012-04-03 on MARVIN
Windowing system distributor `Microsoft Corp.', version 5.1.2600
Configured using:
`configure --with-gcc (4.6) --no-opt --enable-checking --cflags
-ID:/devel/emacs/libs/libXpm-3.5.8/include
-ID:/devel/emacs/libs/libXpm-3.5.8/src
-ID:/devel/emacs/libs/libpng-dev_1.4.3-1/include
-ID:/devel/emacs/libs/zlib-dev_1.2.5-2/include
-ID:/devel/emacs/libs/giflib-4.1.4-1/include
-ID:/devel/emacs/libs/jpeg-6b-4/include
-ID:/devel/emacs/libs/tiff-3.8.2-1/include
-ID:/devel/emacs/libs/gnutls-3.0.9/include'
bug-gnu-emacs <at> gnu.org:bug#11160; Package emacs.
(Tue, 03 Apr 2012 06:04:02 GMT) Full text and rfc822 format available.Message #8 received at 11160 <at> debbugs.gnu.org (full text, mbox):
From: Jambunathan K <kjambunathan <at> gmail.com> To: 11160 <at> debbugs.gnu.org Subject: Re: bug#11160: Acknowledgement (24.0.95; (org) outline-style cycling + outline-mode) Date: Tue, 03 Apr 2012 11:32:38 +0530
See http://orgmode.org/worg/org-faq.html#use-visibility-cycling-in-outline-mode. which specifically notes that org-style cycling is "written in a way that they are independent of the outline setup."
bug-gnu-emacs <at> gnu.org, emacs-orgmode <at> gnu.org:bug#11160; Package emacs,org-mode.
(Mon, 09 Apr 2012 18:55:02 GMT) Full text and rfc822 format available.Message #11 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Bastien <bzg <at> gnu.org> To: Jambunathan K <kjambunathan <at> gmail.com> Cc: bug-gnu-emacs <at> gnu.org, Orgmode <emacs-orgmode <at> gnu.org> Subject: Re: [O] 24.0.95; (org) outline-style cycling + outline-mode Date: Mon, 09 Apr 2012 20:54:42 +0200
Hi Jambunathan, Jambunathan K <kjambunathan <at> gmail.com> writes: > 1. Install the following hook > > (add-hook 'outline-mode-hook > (lambda () > (define-key outline-mode-map [(tab)] 'org-cycle) > (define-key outline-mode-map [(shift tab)] 'org-global-cycle))) > > 2. (setq debug-on-error t) > 3. Visit NEWS file with C-h n > 4. Place the cursor at the end of the line as shown below. > > ,---- ^^^^^ is where the cursor is. > | ---^^^^^^ > | ** Emacs can be compiled with SELinux support.^^^^^^ > | This happens by default if a suitably recent version of the library is > | found at build time. To prevent this, use the configure option^^^^^^^^ > | `--without-selinux'. See below for SELinux features. > | > | > `---- > > 5. Press S-TAB. The following error is reported. I would expect some > sort of cycling to happen. > let: Wrong type argument: stringp, nil This should be fixed now. Can you confirm? Thanks! -- Bastien
bug-gnu-emacs <at> gnu.org, emacs-orgmode <at> gnu.org:bug#11160; Package emacs,org-mode.
(Tue, 10 Apr 2012 16:37:02 GMT) Full text and rfc822 format available.Message #14 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Jambunathan K <kjambunathan <at> gmail.com> To: Bastien <bzg <at> gnu.org> Cc: bug-gnu-emacs <at> gnu.org, Orgmode <emacs-orgmode <at> gnu.org> Subject: Re: [O] 24.0.95; (org) outline-style cycling + outline-mode Date: Tue, 10 Apr 2012 22:05:00 +0530
Hello Bastien Thanks for the fix and it addresses the problem I reported. Feel free to close this bug once you commit the changes to bzr repo. Jambunathan K.
bug-gnu-emacs <at> gnu.org, emacs-orgmode <at> gnu.org:bug#11160; Package emacs,org-mode.
(Wed, 11 Apr 2012 11:20:02 GMT) Full text and rfc822 format available.Message #17 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Bastien <bzg <at> altern.org> To: Jambunathan K <kjambunathan <at> gmail.com> Cc: bug-gnu-emacs <at> gnu.org, Orgmode <emacs-orgmode <at> gnu.org> Subject: Re: [O] 24.0.95; (org) outline-style cycling + outline-mode Date: Wed, 11 Apr 2012 13:07:36 +0200
Jambunathan K <kjambunathan <at> gmail.com> writes: > Thanks for the fix and it addresses the problem I reported. Feel free > to close this bug once you commit the changes to bzr repo. Thanks for confirming. This in now in Emacs, I closed the bug there. -- Bastien
Bastien <bzgNOSPAM <at> altern.org>:Jambunathan K <kjambunathan <at> gmail.com>:Message #22 received at 11160-done <at> debbugs.gnu.org (full text, mbox):
From: Bastien <bzgNOSPAM <at> altern.org> To: Jambunathan K <kjambunathan <at> gmail.com> Cc: 11160-done <at> debbugs.gnu.org Subject: Re: bug#11160: Acknowledgement (24.0.95; (org) outline-style cycling + outline-mode) Date: Wed, 11 Apr 2012 13:06:50 +0200
Jambunathan K <kjambunathan <at> gmail.com> writes: > http://orgmode.org/worg/org-faq.html#use-visibility-cycling-in-outline-mode. > > which specifically notes that org-style cycling is "written in a way > that they are independent of the outline setup." This bug is now fixed in emacs-24 branch. Thanks, -- Bastien
Debbugs Internal Request <help-debbugs <at> gnu.org>
to internal_control <at> debbugs.gnu.org.
(Thu, 10 May 2012 11:24:04 GMT) Full text and rfc822 format available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.