This worked fine for me with org 9.2.3 and 9.2.6 with emacs 26.1. John
----------------------------------- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu On Thu, Oct 24, 2019 at 8:02 AM ian martins <ia...@jhu.edu> wrote: > Running org-map-entries on an org file with tags results in an infinite > loop. > > Example function using org-map-entries: > > (defun org-map-entries-test () > (interactive) > (org-map-entries '(lambda () (message "%s" (org-entry-properties > (point) 'standard)))) > (message "done")) > > Example org file: > > * one > * two > * three > :noexport: > > expected result: visit each headline once then print "done" > actual result: visits headlines in an infinite loop and never prints "done" > > It fails with: Org mode version 9.2.6 (9.2.6-elpa @ > /home/ian/.emacs.d/elpa/org-9.2.6/) > It works with: Org-mode version 8.2.10 (release_8.2.10 @ > /usr/share/emacs/24.5/lisp/org/) > It also works if the org file has no tags. > > > Emacs : GNU Emacs 24.5.1 (x86_64-pc-linux-gnu, GTK+ Version 3.18.9) > of 2017-09-20 on lcy01-07, modified by Debian > Package: Org mode version 9.2.6 (9.2.6-elpa @ > /home/ian/.emacs.d/elpa/org-9.2.6/) > > current state: > ============== > (setq > org-table-export-default-format "orgtbl-to-csv" > org-hide-leading-stars 'hidestars > org-tab-first-hook '(org-babel-hide-result-toggle-maybe > org-babel-header-arg-expand) > org-speed-command-hook '(org-speed-command-activate > org-babel-speed-command-activate) > org-occur-hook '(org-first-headline-recenter) > org-metaup-hook '(org-babel-load-in-session-maybe) > org-log-done t > org-confirm-shell-link-function 'yes-or-no-p > org-startup-folded 'content > org-from-is-user-regexp "\\<ian\\>" > org-src-mode-hook '(org-src-babel-configure-edit-buffer > org-src-mode-configure-edit-buffer) > org-agenda-before-write-hook '(org-agenda-add-entry-text) > org-babel-pre-tangle-hook '(save-buffer) > org-mode-hook '(#[0 "\300\301\302\303\304$\207" > [add-hook change-major-mode-hook org-show-all append > local] > 5 "\n\n(fn)"] > #[0 "\300\301\302\303\304$\207" > [add-hook change-major-mode-hook > org-babel-show-result-all append local] > 5 "\n\n(fn)"] > org-babel-result-hide-spec org-babel-hide-all-hashes) > org-bibtex-headline-format-function #[257 "\300.\236A\207" [:title] 3 > "\n\n(fn ENTRY)"] > org-archive-hook '(org-attach-archive-delete-maybe) > org-cycle-hook '(org-cycle-hide-archived-subtrees > org-cycle-show-empty-lines > org-optimize-window-after-visibility-change) > org-babel-tangle-lang-exts '(("python" . "py") ("java" . "java") > ("emacs-lisp" . "el") ("elisp" . "el")) > org-confirm-elisp-link-function 'yes-or-no-p > org-metadown-hook '(org-babel-pop-to-session-maybe) > org-link-parameters '(("id" :follow org-id-open) > ("eww" :follow eww :store org-eww-store-link) > ("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 :export org-irc-export) > ("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))) > ) > ("news" :follow > (lambda (path) (browse-url (concat "news:"; path)))) > ("shell" :follow org--open-shell-link)) > org-babel-load-languages '((java . t) (python . t) (emacs-lisp . t) > (calc . t) (org . t) (screen . t) (dot . t) > (plantuml . t) (gnuplot . t)) > org-clock-out-hook '(org-clock-remove-empty-clock-drawer) > ) >
