From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jambunathan K Subject: 24.0.95; (org) outline-style cycling + outline-mode Date: Tue, 03 Apr 2012 11:21:00 +0530 Message-ID: <8162dh8it7.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([208.118.235.92]:54538) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SEweL-0002ek-HX for emacs-orgmode@gnu.org; Tue, 03 Apr 2012 01:51:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SEweG-0003KO-FC for emacs-orgmode@gnu.org; Tue, 03 Apr 2012 01:51:25 -0400 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: bug-gnu-emacs@gnu.org, Orgmode 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. |=20 |=20=20=20=20 `---- 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)) (look= ing-at org-todo-line-regexp))) (and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((c= ase-fold-search nil)) (looking-at org-todo-line-regexp))) (string=3D (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-g= et-previous-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-= level 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-= level) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1)= (org-level-increment)) do (org-do-promote))) ((=3D cur-level 1) (loop repe= at (/ (- 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-pr= evious-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-level= 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-level= ) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1) (org= -level-increment)) do (org-do-promote))) ((=3D 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-headl= ine) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-curr= ent-level)) (prev-level (org-get-previous-line-level))) (cond ((=3D prev-le= vel 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-pr= omote))) ((=3D prev-level cur-level) (org-do-demote)) ((=3D prev-level 1) (= loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote)))= ((=3D cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment))= do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-l= evel 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 or= g-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-it= em-indentation)))) (if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (an= d org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycl= e-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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-glo= bal-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-vis= ibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (o= rg-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) (hid= e-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal a= rg (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)) (look= ing-at org-todo-line-regexp))) (and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((c= ase-fold-search nil)) (looking-at org-todo-line-regexp))) (string=3D (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-g= et-previous-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-= level 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-= level) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1)= (org-level-increment)) do (org-do-promote))) ((=3D cur-level 1) (loop repe= at (/ (- 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-pr= evious-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-level= 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-level= ) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1) (org= -level-increment)) do (org-do-promote))) ((=3D 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-headl= ine) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-curr= ent-level)) (prev-level (org-get-previous-line-level))) (cond ((=3D prev-le= vel 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-pr= omote))) ((=3D prev-level cur-level) (org-do-demote)) ((=3D prev-level 1) (= loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote)))= ((=3D cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment))= do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-l= evel 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 or= g-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-it= em-indentation)))) (if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (an= d org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycl= e-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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-glo= bal-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-vis= ibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (o= rg-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) (hid= e-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal a= rg (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)) (look= ing-at org-todo-line-regexp))) (and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((c= ase-fold-search nil)) (looking-at org-todo-line-regexp))) (string=3D (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-g= et-previous-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-= level 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-= level) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1)= (org-level-increment)) do (org-do-promote))) ((=3D cur-level 1) (loop repe= at (/ (- 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-pr= evious-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-level= 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-level= ) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1) (org= -level-increment)) do (org-do-promote))) ((=3D 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-headl= ine) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-curr= ent-level)) (prev-level (org-get-previous-line-level))) (cond ((=3D prev-le= vel 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-pr= omote))) ((=3D prev-level cur-level) (org-do-demote)) ((=3D prev-level 1) (= loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote)))= ((=3D cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment))= do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-l= evel 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 or= g-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-it= em-indentation)))) (if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (an= d org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycl= e-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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-glo= bal-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-vis= ibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (o= rg-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) (hid= e-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal a= rg (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)) (look= ing-at org-todo-line-regexp))) (and (looking-at "[ ]*$") (save-excursion (beginning-of-line 1) (let ((c= ase-fold-search nil)) (looking-at org-todo-line-regexp))) (string=3D (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-g= et-previous-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-= level 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-= level) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1)= (org-level-increment)) do (org-do-promote))) ((=3D cur-level 1) (loop repe= at (/ (- 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-pr= evious-line-level))) (cond ((=3D prev-level 0) (loop repeat (/ (- cur-level= 1) (org-level-increment)) do (org-do-promote))) ((=3D prev-level cur-level= ) (org-do-demote)) ((=3D prev-level 1) (loop repeat (/ (- cur-level 1) (org= -level-increment)) do (org-do-promote))) ((=3D 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-headl= ine) (setq this-command (quote org-cycle-level)) (let ((cur-level (org-curr= ent-level)) (prev-level (org-get-previous-line-level))) (cond ((=3D prev-le= vel 0) (loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-pr= omote))) ((=3D prev-level cur-level) (org-do-demote)) ((=3D prev-level 1) (= loop repeat (/ (- cur-level 1) (org-level-increment)) do (org-do-promote)))= ((=3D cur-level 1) (loop repeat (/ (- prev-level 1) (org-level-increment))= do (org-do-demote))) ((< cur-level prev-level) (org-do-promote)) ((> cur-l= evel 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 or= g-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-it= em-indentation)))) (if (or (run-hook-with-args-until-success (quote org-tab-first-hook)) (an= d org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycl= e-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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 (form= at "\\{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) (c= opy-sequence org-cycle-hook)) org-cycle-hook)) (pos (point))) (if (or bob-s= pecial (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-wit= h-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-e= xcursion (beginning-of-line 1) (looking-at org-drawer-regexp))) (org-flag-d= rawer (not (get-char-property (match-end 0) (quote invisible))))) ((integer= p arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg= 0) (- arg) (- ... arg))) (org-show-subtree))) ((and (featurep (quote org-i= nlinetask)) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulat= e-tab ...)))) (org-inlinetask-toggle-visibility)) ((org-try-cdlatex-tab)) (= (and (or (and org-cycle-include-plain-lists (org-at-item-p)) (save-excursio= n (beginning-of-line 1) (looking-at org-outline-regexp))) (or (bolp) (not (= eq org-cycle-emulate-tab ...)))) (org-cycle-internal-local)) (buffer-read-o= nly (org-back-to-heading)) ((run-hook-with-args-until-success (quote org-ta= b-after-check-for-cycling-hook))) ((org-try-structure-completion)) ((run-ho= ok-with-args-until-success (quote org-tab-before-tab-emulation-hook))) ((an= d (eq org-cycle-emulate-tab (quote exc-hl-bol)) (or (not (bolp)) (not (look= ing-at org-outline-regexp)))) (call-interactively (global-key-binding " "))= ) ((if (and (memq org-cycle-emulate-tab (quote ...)) (save-excursion (begin= ning-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-glo= bal-status (quote contents))) ((equal arg (quote (4))) (org-set-startup-vis= ibility) (message "Startup visibility, plus VISIBILITY properties.")) (t (o= rg-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) (hid= e-sublevels arg) (setq org-cycle-global-status (quote contents))) ((equal a= rg (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'