From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Garmaise Subject: Bug: error sorting outline items [9.0.10 (9.0.10-elpa @ c:/users/ian/.emacs.d/elpa/org-20170827/)] Date: Sun, 27 Aug 2017 17:48:11 -0400 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="94eb2c195ca671d0490557c322f5" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:59065) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dm5Pm-0003rI-Nm for emacs-orgmode@gnu.org; Sun, 27 Aug 2017 17:48:22 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dm5Pj-0000zP-BC for emacs-orgmode@gnu.org; Sun, 27 Aug 2017 17:48:18 -0400 Received: from mail-wm0-x22c.google.com ([2a00:1450:400c:c09::22c]:38890) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dm5Pi-0000yt-S6 for emacs-orgmode@gnu.org; Sun, 27 Aug 2017 17:48:15 -0400 Received: by mail-wm0-x22c.google.com with SMTP id t201so10176682wmt.1 for ; Sun, 27 Aug 2017 14:48:13 -0700 (PDT) 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" To: emacs-orgmode@gnu.org --94eb2c195ca671d0490557c322f5 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Often (but not always) when I attempt to sort some headlines, the sort fails, and the following error message occurs (usually same after reloading org uncompiled) Sorting entries... eq: Symbol=E2=80=99s function definition is void: org-clocking-buffer Here is the backtrace: Debugger entered--Lisp error: (void-function org-clocking-buffer) (org-clocking-buffer) (eq (org-clocking-buffer) (current-buffer)) (and (eq (org-clocking-buffer) (current-buffer)) (<=3D start (marker-position org-clock-marker)) (>=3D end (marker-position org-clock-marker))) (if (and (eq (org-clocking-buffer) (current-buffer)) (<=3D start (marker-position org-clock-marker)) (>=3D end (marker-position org-clock-marker))) (progn (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn (put-text-property (1- org-clock-marker) org-clock-marker :org-clock-marker-backup t)) (if modified nil (restore-buffer-modified-p nil)))) t)) (let ((restore-clock\? (if (and (eq (org-clocking-buffer) (current-buffer)) (<=3D start (marker-position org-clock-marker)) (>=3D end (marker-position org-clock-marker))) (progn (let* ((modified ...) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t)) (unwind-protect (progn ...) (if modified nil ...))) t))) (dcst (downcase sorting-type)) (case-fold-search nil) (now (current-time))) (sort-subr (/= =3D dcst sorting-type) (function (lambda nil (if (re-search-forward re nil t) (goto-char (match-beginning 0)) (goto-char (point-max))))) (function (lambda nil (let ((save-match-data-internal (match-data))) (unwind-protect (progn (condition-case nil ... ...)) (set-match-data save-match-data-internal (quote evaporate)))))) (function (lambda nil (cond ((=3D dcst 110) (if (looking-at org-complex-heading-regexp) (string-to-numb= er ...) nil)) ((=3D dcst 97) (if (looking-at org-complex-heading-regexp) (funcall case-func ...) nil)) ((=3D dcst 107) (or (get-text-property ... :org-clock-minutes) 0)) ((=3D dcst 116) (let (...) (if ... ... ...))) ((=3D dcst 99) (let (...) (if ... ... ...))) ((=3D dcst 115) (let (...) (if ... .= .. ...))) ((=3D dcst 100) (let (...) (if ... ... ...))) ((=3D dcst 112) (if (re-search-forward org-priority-regexp ... t) (string-to-char ...) org-default-priority)) ((=3D dcst 114) (or (org-entry-get nil property) "")= ) ((=3D dcst 111) (if (looking-at org-complex-heading-regexp) (progn ...))) (= (=3D dcst 102) (if getkey-func (progn ... ... tmp) (error "Invalid key function `%s'" getkey-func))) (t (error "Invalid sorting type `%c'" sorting-type))))) nil (cond ((=3D dcst 97) (quote string<)) ((=3D dcst 102)= (or compare-func (and interactive\? (org-read-function (concat "Function for comparing keys " "(empty for default `sort-subr' predicate): ") (quote allow-empty))))) ((member dcst (quote (112 116 115 100 99 107))) (quote <)))) (if restore-clock\? (progn (move-marker org-clock-marker (1+ (next-single-property-change start :org-clock-marker-backup))) (remove-text-properties (1- org-clock-marker) org-clock-marker (quote (:org-clock-marker-backup t)))))) (save-restriction (narrow-to-region start end) (let ((restore-clock\? (if (and (eq (org-clocking-buffer) (current-buffer)) (<=3D start (marker-positi= on org-clock-marker)) (>=3D end (marker-position org-clock-marker))) (progn (let* (... ... ... ...) (unwind-protect ... ...)) t))) (dcst (downcase sorting-type)) (case-fold-search nil) (now (current-time))) (sort-subr (/= =3D dcst sorting-type) (function (lambda nil (if (re-search-forward re nil t) (goto-char (match-beginning 0)) (goto-char (point-max))))) (function (lambda nil (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))))) (function (lambda nil (cond ((=3D dcst 110) (if ... ... nil)) ((=3D dcst 97) (if ... ... nil)= ) ((=3D dcst 107) (or ... 0)) ((=3D dcst 116) (let ... ...)) ((=3D dcst 99) (= let ... ...)) ((=3D dcst 115) (let ... ...)) ((=3D dcst 100) (let ... ...)) ((= =3D dcst 112) (if ... ... org-default-priority)) ((=3D dcst 114) (or ... "")) (= (=3D dcst 111) (if ... ...)) ((=3D dcst 102) (if getkey-func ... ...)) (t (error "Invalid sorting type `%c'" sorting-type))))) nil (cond ((=3D dcst 97) (quo= te string<)) ((=3D dcst 102) (or compare-func (and interactive\? (org-read-function ... ...)))) ((member dcst (quote (112 116 115 100 99 107))) (quote <)))) (if restore-clock\? (progn (move-marker org-clock-marker (1+ (next-single-property-change start :org-clock-marker-backup))) (remove-text-properties (1- org-clock-marker) org-clock-marker (quote (:org-clock-marker-backup t))))))) (let ((case-func (if with-case (quote identity) (quote downcase))) start beg end stars re re2 txt what tmp) (cond ((org-region-active-p) (setq end (region-end) what "region") (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start (point))) ((or (org-at-heading-p) (condition-case nil (progn (progn (org-back-to-heading) t)) (error nil))) (org-back-to-heading) (setq start (point) end (progn (org-end-of-subtree t t) (or (bolp) (insert "\n")) (if (>=3D (org-back-over-empty-lines) 1) (progn (forward-line 1))) (point)) what "children") (goto-char start) (outline-show-subtree) (outline-next-heading)) (t (goto-char (point-min)) (or (org-at-heading-p) (outline-next-heading)) (setq start (point)) (goto-char (point-max)) (beginning-of-line 1) (if (looking-at ".*?\\S-") (progn (end-of-line 1) (insert "\n"))) (setq end (point-max)) (setq what "top-level") (goto-char start) (outline-show-all))) (setq beg (point)) (if (>=3D beg end) (progn (goto-char start) (user-error "Nothing to sort"))) (looking-at "\\(\\*+\\)") (setq stars (match-string 1) re (concat "^" (regexp-quote stars) " +") re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[ \n]") txt (buffer-substring beg end)) (if (equal (substring txt -1) "\n") nil (setq txt (concat txt "\n"))) (if (and (not (equal stars "*")) (string-match re2 txt)) (progn (user-error "Region to sort contains a level above the first entry"))) (if sorting-type nil (message "Sort %s: [a]lpha [n]umeric [p]riority p[r]operty todo[o]rder [f]unc\n [t]ime [s]cheduled [d]eadline [c]reated cloc[k]ing\n A/N/P/R/O/F/T/S/D/C/K means reversed:" what) (setq sorting-type (read-char-exclusive))) (if getkey-func nil (and (=3D (downcase sorting-typ= e) 102) (setq getkey-func (or (and interactive\? (org-read-function "Function for extracting keys: ")) (error "Missing key extractor"))))) (and (=3D (downcase sorting-type) 114) (not property) (setq property (completing-read "Property: " (mapcar (function list) (org-buffer-property-keys t)) nil t))) (if (member sorting-type (quote (107 75))) (progn (org-clock-sum))) (message "Sorting entries...") (save-restriction (narrow-to-region start end) (let ((restore-clock\? (if (and (eq ... ...) (<=3D start ...) (>=3D en= d ...)) (progn (let* ... ...) t))) (dcst (downcase sorting-type)) (case-fold-search nil) (now (current-time))) (sort-subr (/=3D dcst sorting-type) (function (lambda nil (if (re-search-forward re nil t) (goto-char ...) (goto-char ...)))) (function (lambda nil (let (...) (unwind-protect ... ...)))) (function (lambda nil (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))) nil (cond ((=3D dcst 97) (quote string<)) ((=3D d= cst 102) (or compare-func (and interactive\? ...))) ((member dcst (quote ...)) (quote <)))) (if restore-clock\? (progn (move-marker org-clock-marker (1+ (next-single-property-change start :org-clock-marker-backup))) (remove-text-properties (1- org-clock-marker) org-clock-marker (quote (:org-clock-marker-backup t))))))) (run-hooks (quote org-after-sorting-entries-or-items-hook)) (message "Sorting entries...done")) org-sort-entries(nil nil nil nil nil t) funcall-interactively(org-sort-entries nil nil nil nil nil t) call-interactively(org-sort-entries) (let ((current-prefix-arg arg)) (call-interactively command)) org-call-with-arg(org-sort-entries nil) (cond ((org-at-table-p) (org-call-with-arg (quote org-table-sort-lines) with-case)) ((org-at-item-p) (org-call-with-arg (quote org-sort-list) with-case)) (t (org-call-with-arg (quote org-sort-entries) with-case))) org-sort(nil) funcall-interactively(org-sort nil) call-interactively(org-sort nil nil) command-execute(org-sort) Emacs : GNU Emacs 25.1.1 (i686-w64-mingw32) of 2016-11-15 Package: Org mode version 9.0.10 (9.0.10-elpa @ c:/users/ian/.emacs.d/elpa/org-20170827/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-link-parameters '(("id" :follow org-id-open) ("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" :follow org-mhe-open :store org-mhe-store-link) ("irc" :follow org-irc-visit :store org-irc-store-link) ("info" :follow org-info-open :export org-info-export :store org-info-store-link) ("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link) ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store org-w3m-store-link) ("file+sys") ("file+emacs") ("doi" :follow org--open-doi-link) ("elisp" :follow org--open-elisp-link) ("file" :complete org-file-complete-link) ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path)))) ("help" :follow org--open-help-link) ("http" :follow (lambda (path) (browse-url (concat "http:" path)))) ("https" :follow (lambda (path) (browse-url (concat "https:" path)))) ("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path)))) ("message" :follow (lambda (path) (browse-url (concat "message:" path)))) ("news" :follow (lambda (path) (browse-url (concat "news:" path)))) ("shell" :follow org--open-shell-link)) org-archive-hook '(org-attach-archive-delete-maybe) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook) org-babel-pre-tangle-hook '(save-buffer) org-occur-hook '(org-first-headline-recenter) org-log-done 'time org-metaup-hook '(org-babel-load-in-session-maybe) org-confirm-elisp-link-function 'yes-or-no-p org-tag-alist '(("@work" . 119) ("@home" . 104) ("laptop" . 108)) org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-mode-hook '((closure (org-inlinetask-min-level buffer-face-mode-face org-struct-menu org-last-state org-id-track-globally org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-export-registered-backends t) nil (add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local)) ) (closure (*this* org-babel-confirm-evaluate-answer-no t) nil (add-hook (quote change-major-mode-hook) (quote org-babel-show-result-all) (quote append) (quote local)) ) #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-block-all append local] 5] #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-metadown-hook '(org-babel-pop-to-session-maybe) org-todo-keywords '((sequence "TODO" "IN-PROGRESS" "WAITING" "DONE")) org-agenda-files '("~/Dropbox/org/orgtutorial.org" "~/Dropbox/org/test.org ") org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . default) ("\\.xlsx\\'" . default)) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-after-todo-state-change-hook '(org-clock-out-if-current) org-confirm-shell-link-function 'yes-or-no-p ) --=20 =3D=3D=3D=3D=3D Ian Garmaise Consultant Phorix Solutions Group ian.g@phorixsol.com Toronto cell: 416.432.2251 NYC: 917.512.9535 My linkedin profile http://www.PhorixSol.com --94eb2c195ca671d0490557c322f5 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
= Often (but not always) when I attempt to= sort some headlines, the sort
fails, and the following error message occu= rs (usually same after
reloading org uncompiled)

Sorting entries= ...
eq: Symbol=E2=80=99s function definition is void: org-clocking-buffer<= /font>

Here is the backtrace:

Debugger entered--Lisp error: (void-fu= nction org-clocking-buffer)
=C2=A0 (org-clocking-buffer)
=C2=A0 (eq (org-= clocking-buffer) (current-buffer))
=C2=A0 (and (eq (org-clocking-buffer) (= current-buffer)) (<=3D start (marker-position org-clock-marker)) (>= =3D end (marker-position org-clock-marker)))
=C2=A0 (if (and (eq (org-cloc= king-buffer) (current-buffer)) (<=3D start (marker-position org-clock-ma= rker)) (>=3D end (marker-position org-clock-marker))) (progn (let* ((mod= ified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhi= bit-modification-hooks t)) (unwind-protect (progn (put-text-property (1- or= g-clock-marker) org-clock-marker :org-clock-marker-backup t)) (if modified = nil (restore-buffer-modified-p nil)))) t))
=C2=A0 (let ((restore-clock\? (= if (and (eq (org-clocking-buffer) (current-buffer)) (<=3D start (marker-= position org-clock-marker)) (>=3D end (marker-position org-clock-marker)= )) (progn (let* ((modified ...) (buffer-undo-list t) (inhibit-read-only t) = (inhibit-modification-hooks t)) (unwind-protect (progn ...) (if modified ni= l ...))) t))) (dcst (downcase sorting-type)) (case-fold-search nil) (now (c= urrent-time))) (sort-subr (/=3D dcst sorting-type) (function (lambda nil (i= f (re-search-forward re nil t) (goto-char (match-beginning 0)) (goto-char (= point-max))))) (function (lambda nil (let ((save-match-data-internal (match= -data))) (unwind-protect (progn (condition-case nil ... ...)) (set-match-da= ta save-match-data-internal (quote evaporate)))))) (function (lambda nil (c= ond ((=3D dcst 110) (if (looking-at org-complex-heading-regexp) (string-to-= number ...) nil)) ((=3D dcst 97) (if (looking-at org-complex-heading-regexp= ) (funcall case-func ...) nil)) ((=3D dcst 107) (or (get-text-property ... = :org-clock-minutes) 0)) ((=3D dcst 116) (let (...) (if ... ... ...))) ((=3D= dcst 99) (let (...) (if ... ... ...))) ((=3D dcst 115) (let (...) (if ... = ... ...))) ((=3D dcst 100) (let (...) (if ... ... ...))) ((=3D dcst 112) (i= f (re-search-forward org-priority-regexp ... t) (string-to-char ...) org-de= fault-priority)) ((=3D dcst 114) (or (org-entry-get nil property) "&qu= ot;)) ((=3D dcst 111) (if (looking-at org-complex-heading-regexp) (progn ..= .))) ((=3D dcst 102) (if getkey-func (progn ... ... tmp) (error "Inval= id key function `%s'" getkey-func))) (t (error "Invalid sorti= ng type `%c'" sorting-type))))) nil (cond ((=3D dcst 97) (quote st= ring<)) ((=3D dcst 102) (or compare-func (and interactive\? (org-read-fu= nction (concat "Function for comparing keys " "(empty for de= fault `sort-subr' predicate): ") (quote allow-empty))))) ((member = dcst (quote (112 116 115 100 99 107))) (quote <)))) (if restore-clock\? = (progn (move-marker org-clock-marker (1+ (next-single-property-change start= :org-clock-marker-backup))) (remove-text-properties (1- org-clock-marker) = org-clock-marker (quote (:org-clock-marker-backup t))))))
=C2=A0 (save-res= triction (narrow-to-region start end) (let ((restore-clock\? (if (and (eq (= org-clocking-buffer) (current-buffer)) (<=3D start (marker-position org-= clock-marker)) (>=3D end (marker-position org-clock-marker))) (progn (le= t* (... ... ... ...) (unwind-protect ... ...)) t))) (dcst (downcase sorting= -type)) (case-fold-search nil) (now (current-time))) (sort-subr (/=3D dcst = sorting-type) (function (lambda nil (if (re-search-forward re nil t) (goto-= char (match-beginning 0)) (goto-char (point-max))))) (function (lambda nil = (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-matc= h-data save-match-data-internal ...))))) (function (lambda nil (cond ((=3D = dcst 110) (if ... ... nil)) ((=3D dcst 97) (if ... ... nil)) ((=3D dcst 107= ) (or ... 0)) ((=3D dcst 116) (let ... ...)) ((=3D dcst 99) (let ... ...)) = ((=3D dcst 115) (let ... ...)) ((=3D dcst 100) (let ... ...)) ((=3D dcst 11= 2) (if ... ... org-default-priority)) ((=3D dcst 114) (or ... "")= ) ((=3D dcst 111) (if ... ...)) ((=3D dcst 102) (if getkey-func ... ...)) (= t (error "Invalid sorting type `%c'" sorting-type))))) nil (c= ond ((=3D dcst 97) (quote string<)) ((=3D dcst 102) (or compare-func (an= d interactive\? (org-read-function ... ...)))) ((member dcst (quote (112 11= 6 115 100 99 107))) (quote <)))) (if restore-clock\? (progn (move-marker= org-clock-marker (1+ (next-single-property-change start :org-clock-marker-= backup))) (remove-text-properties (1- org-clock-marker) org-clock-marker (q= uote (:org-clock-marker-backup t)))))))
=C2=A0 (let ((case-func (if with-c= ase (quote identity) (quote downcase))) start beg end stars re re2 txt what= tmp) (cond ((org-region-active-p) (setq end (region-end) what "region= ") (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-= next-heading)) (setq start (point))) ((or (org-at-heading-p) (condition-cas= e nil (progn (progn (org-back-to-heading) t)) (error nil))) (org-back-to-he= ading) (setq start (point) end (progn (org-end-of-subtree t t) (or (bolp) (= insert "\n")) (if (>=3D (org-back-over-empty-lines) 1) (progn = (forward-line 1))) (point)) what "children") (goto-char start) (o= utline-show-subtree) (outline-next-heading)) (t (goto-char (point-min)) (or= (org-at-heading-p) (outline-next-heading)) (setq start (point)) (goto-char= (point-max)) (beginning-of-line 1) (if (looking-at ".*?\\S-") (p= rogn (end-of-line 1) (insert "\n"))) (setq end (point-max)) (setq= what "top-level") (goto-char start) (outline-show-all))) (setq b= eg (point)) (if (>=3D beg end) (progn (goto-char start) (user-error &quo= t;Nothing to sort"))) (looking-at "\\(\\*+\\)") (setq stars = (match-string 1) re (concat "^" (regexp-quote stars) " +&quo= t;) re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[= \n]") txt (buffer-substring b= eg end)) (if (equal (substring txt -1) "\n") nil (setq txt (conca= t txt "\n"))) (if (and (not (equal stars "*")) (string-= match re2 txt)) (progn (user-error "Region to sort contains a level ab= ove the first entry"))) (if sorting-type nil (message "Sort %s: [= a]lpha =C2=A0[n]umeric =C2=A0[p]riority =C2=A0p[r]operty =C2=A0todo[o]rder = =C2=A0[f]unc\n =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 [t]ime [s]c= heduled =C2=A0[d]eadline =C2=A0[c]reated =C2=A0cloc[k]ing\n =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 A/N/P/R/O/F/T/S/D/C/K means reversed:&qu= ot; what) (setq sorting-type (read-char-exclusive))) (if getkey-func nil (a= nd (=3D (downcase sorting-type) 102) (setq getkey-func (or (and interactive= \? (org-read-function "Function for extracting keys: ")) (error &= quot;Missing key extractor"))))) (and (=3D (downcase sorting-type) 114= ) (not property) (setq property (completing-read "Property: " (ma= pcar (function list) (org-buffer-property-keys t)) nil t))) (if (member sor= ting-type (quote (107 75))) (progn (org-clock-sum))) (message "Sorting= entries...") (save-restriction (narrow-to-region start end) (let ((re= store-clock\? (if (and (eq ... ...) (<=3D start ...) (>=3D end ...)) = (progn (let* ... ...) t))) (dcst (downcase sorting-type)) (case-fold-search= nil) (now (current-time))) (sort-subr (/=3D dcst sorting-type) (function (= lambda nil (if (re-search-forward re nil t) (goto-char ...) (goto-char ...)= ))) (function (lambda nil (let (...) (unwind-protect ... ...)))) (function = (lambda nil (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ..= .) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))) nil (cond (= (=3D dcst 97) (quote string<)) ((=3D dcst 102) (or compare-func (and int= eractive\? ...))) ((member dcst (quote ...)) (quote <)))) (if restore-cl= ock\? (progn (move-marker org-clock-marker (1+ (next-single-property-change= start :org-clock-marker-backup))) (remove-text-properties (1- org-clock-ma= rker) org-clock-marker (quote (:org-clock-marker-backup t))))))) (run-hooks= (quote org-after-sorting-entries-or-items-hook)) (message "Sorting en= tries...done"))
=C2=A0 org-sort-entries(nil nil nil nil nil t)=
=C2= =A0 funcall-interactively(org-sort-entries nil nil nil nil nil t)
=C2=A0 c= all-interactively(org-sort-entries)
=C2=A0 (let ((current-prefix-arg arg))= (call-interactively command))
=C2=A0 org-call-with-arg(org-sort-entries n= il)
=C2=A0 (cond ((org-at-table-p) (org-call-with-arg (quote org-table-sor= t-lines) with-case)) ((org-at-item-p) (org-call-with-arg (quote org-sort-li= st) with-case)) (t (org-call-with-arg (quote org-sort-entries) with-case)))=
=C2=A0 funcall-interactively(org-sort nil)<= /div>
=C2=A0= call-interactively(org-sort nil nil)
=C2=A0 command-execute(org-sort)

Emacs =C2=A0: GNU Emacs 25.1.1 (i686-w64-mingw32)
=C2=A0of 2016-= 11-15
Package: Org mode version 9.0.10 (9.0.10-elpa @ c:/users/ian/.emacs.= d/elpa/org-20170827/)

current state:
=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D
(setq
=C2=A0org-tab-first-hook '(org-babel-hide-resu= lt-toggle-maybe org-babel-header-arg-expand)
=C2=A0org-link-parameters = 9;(("id" :follow org-id-open)
= =C2=A0("rmail" :follow org-rmail-open :store org-rma= il-store-link)
=C2=A0("= ;mhe" :follow org-mhe-open :store org-mhe-store-link)
=C2=A0("irc" :follow org-irc-visi= t :store org-irc-store-link)
=C2=A0("info" :follow org-info-open :export org-info-export :st= ore
org-info-store-link)
<= span style=3D"white-space:pre"> =C2=A0("gnus" :foll= ow org-gnus-open :store org-gnus-store-link)
=C2=A0("docview" :follow org-docview-open :expo= rt org-docview-export :store
org-docview-store-link)
= =C2=A0("bibtex" :follow org-bibtex-open :store org-bibtex-store-l= ink)
=C2=A0("bbdb"= ; :follow org-bbdb-open :export org-bbdb-export :complete
org-bbdb-complete-link :store org-bbdb-store= -link)
=C2=A0("w3m&quo= t; :store org-w3m-store-link) ("file+sys") ("file+emacs"= ;)
=C2=A0("doi" := follow org--open-doi-link) ("elisp" :follow org--open-elisp-link)=
=C2=A0("file" :c= omplete org-file-complete-link)
=C2=A0("ftp" :follow (lambda (path) (browse-url (concat &quo= t;ftp:" path))))
=C2= =A0("help" :follow org--open-help-link)
=C2=A0("http" :follow (lambda (path) (brow= se-url (concat "http:" path))))
= =C2=A0("https" :follow (lambda (path) (browse-url = (concat "https:" path))))
= =C2=A0("mailto" :follow (lambda (path) (browse-url (conc= at "mailto:" path))))
=C2=A0("message" :follow (lambda (path) (browse-url (concat = "message:" path))))
=C2=A0("news" :follow (lambda (path) (browse-url (concat "= ;news:" path))))
=C2= =A0("shell" :follow org--open-shell-link))
=C2=A0org-archive-hoo= k '(org-attach-archive-delete-maybe)
=C2=A0org-cycle-hook '(org-cy= cle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-line= s
org-optimize-window-after-v= isibility-change)
=C2=A0org-agenda-before-write-hook '(org-agenda-add-= entry-text)
=C2=A0org-speed-command-hook '(org-speed-command-default-h= ook org-babel-speed-command-hook)
= =C2=A0org-babel-pre-tangle-hook '(sa= ve-buffer)
=C2=A0org-occur-hook '(org-first-headline-recenter)<= /div>
=C2=A0= org-log-done 'time
=C2=A0org-metaup-hook '(org-babel-load-in-sess= ion-maybe)
=C2=A0org-confirm-elisp-link-function 'yes-or-no-p
=C2=A0o= rg-tag-alist '(("@work" . 119) ("@home" . 104) (&qu= ot;laptop" . 108))
=C2=A0org-clock-out-hook '(org-clock-remove-em= pty-clock-drawer)
=C2=A0org-mode-hook '((closure
(org-inlinetask-min-level buffer-face-mode-face or= g-struct-menu org-last-state
= org-id-track-globally org-clock-start-time texmathp-why remember-data-file=
org-agenda-tags-todo-honor-= ignore-options iswitchb-temp-buflist
= calc-embedded-open-mode calc-embedded-open-formula calc-embedded-c= lose-formula
align-mode-rule= s-list org-export-registered-backends t)
= nil
(add-hook (qu= ote change-major-mode-hook) (quote org-show-block-all) (quote append)
(quote local))
)
= =C2=A0(closure (*this* org-babel-confirm-evaluate-answer-no t) nil<= /div>
(add-hook (quote change-major-mode-h= ook) (quote org-babel-show-result-all)
= (quote append) (quote local))
= )
=C2=A0#[0 "= ;\300\301\302\303\304$\207"
<= font face=3D"verdana, sans-serif"> [add-hook change-major-mode-hook org-show-block-all append local] 5]
= =C2=A0#[0 "\300\301\302\3= 03\304$\207"
[add-hook = change-major-mode-hook org-babel-show-result-all append local] 5]
=C2=A0org-babel-result-hide-spec org-b= abel-hide-all-hashes)
=C2=A0org-metadown-hook '(org-babel-pop-to-ses= sion-maybe)
=C2=A0org-todo-keywords '((sequence "TODO" "= ;IN-PROGRESS" "WAITING" "DONE"))
=C2=A0org-agenda= -files '("~/Dropbox/org/orgtuto= rial.org" "~/Dropbox/org/test.org= ")
=C2=A0org-file-apps '((auto-mode . emacs) ("\\.mm\\&#= 39;" . default) ("\\.x?html?\\'" . default)
=
=C2=A0("\\.pdf\\'" . defaul= t) ("\\.xlsx\\'" . default))
=C2=A0org-src-mode-hook '(o= rg-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
=C2= =A0org-after-todo-state-change-hook '(org-clock-out-if-current)<= /div>
=C2=A0= org-confirm-shell-link-function 'yes-or-no-p
=C2=A0)


-- =
<= div>
=3D=3D=3D=3D=3D
Ian Garmaise
Consultant
= Phorix Solutions Group
ian.g@phorixsol.com
Toronto cell: 416.432.2251
NYC: 917.5= 12.9535

--94eb2c195ca671d0490557c322f5--