all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)]
@ 2023-07-03 18:06 Nick Römer via General discussions about Org-mode.
  2023-07-04 12:29 ` Ihor Radchenko
  0 siblings, 1 reply; 4+ messages in thread
From: Nick Römer via General discussions about Org-mode. @ 2023-07-03 18:06 UTC (permalink / raw)
  To: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 76607 bytes --]



In org agenda view, on terminal Emacs version running in termux on my 
Samsung galaxy A10, I get an Error "wholenump -3" when selecting one or 
more TODOs with the "m" key and subsequently trying to reschedule using 
the key sequence "x s". However, if I zoom out a bit (using the pincer 
gesture) the error does not happen.

 
------------------------------------------------------------------------
Emacs  : GNU Emacs 28.3 (build 1, arm-unknown-linux-androideabi)
  of 2023-03-20
Package: Org mode version 9.6.1 (9.6.1-??-fe92a3c @ 
/data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)
current state:
==============
(setq
  org-tag-alist '(("work" . 119)
                  ("home" . 104)
                  ("internet" . 105)
                  ("renovation" . 114)
                  ("today" . 116)
                  ("vacances" . 118)
                  ("buy" . 98)
                  ("errands" . 101)
                  ("fiscal" . 102)
                  ("org" . 111)
                  ("Sonia" . 115)
                  ("phone" . 112)
                  ("django" . 100))
  org-insert-heading-respect-content t
  org-agenda-start-on-weekday nil
  org-persist-after-read-hook '(org-element--cache-persist-after-read)
  org-directory "~/org/"
  org-cycle-hook '(org-cycle-hide-archived-subtrees 
org-cycle-show-empty-lines 
org-cycle-optimize-window-after-visibility-change 
org-cycle-display-inline-images)
  org-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h 
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand 
+org-clear-babel-results-h +org-cycle-only-current-subtree-h)
  org-fontify-quote-and-verse-blocks t
  org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
  org-id-locations-file "/data/data/com.termux/files/home/org/.orgids"
  org-attach-use-inheritance t
  outline-isearch-open-invisible-function 
'outline-isearch-open-invisible
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-roam-db-gc-threshold 536870911
  org-image-actual-width nil
  org-todo-keyword-faces '(("[-]" .
                            +org-todo-active)
                           ("STRT" .
                            +org-todo-active)
                           ("[?]" .
                            +org-todo-onhold)
                           ("WAIT" .
                            +org-todo-onhold)
                           ("HOLD" .
                            +org-todo-onhold)
                           ("PROJ" .
                            +org-todo-project)
                           ("NO" .
                            +org-todo-cancel)
                           ("KILL" .
                            +org-todo-cancel)
                           )
  org-agenda-span 10
  org-roam-directory "/data/data/com.termux/files/home/org/roam/"
  org-mode-local-vars-hook '(+org-init-gifs-h)
  org-load-hook '(+org-init-org-directory-h +org-init-appearance-h 
+org-init-agenda-h +org-init-attachments-h +org-init-babel-h 
+org-init-babel-lazy-loader-h +org-init-capture-defaults-h 
+org-init-capture-frame-h +org-init-custom-links-h +org-init-export-h 
+org-init-habit-h +org-init-hacks-h +org-init-keybinds-h 
+org-init-popup-rules-h +org-init-smartparens-h +org-init-roam-h)
  org-startup-folded nil
  org-babel-after-execute-hook 
'(+org-redisplay-inline-images-in-babel-result-h)
  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
  org-agenda-inhibit-startup t
  org-export-before-parsing-hook '(org-attach-expand-links)
  org-attach-store-link-p 'attached
  org-special-ctrl-a/e t
  org-agenda-loop-over-headlines-in-active-region nil
  org-export-backends '(md ascii html
                        icalendar latex
                        odt)
  org-modules '(ol-bibtex)
  org-agenda-deadline-faces '((1.001 .
                               error)
                              (1.0 .
                               org-warning)
                              (0.5 .
                               org-upcoming-deadline)
                              (0.0 .
                               org-upcoming-distant-deadline)
                              )
  org-eldoc-breadcrumb-separator " → "
  org-clock-out-remove-zero-time-clocks t
  org-link-parameters '(("bibtex"
                         :follow
                         org-bibtex-open
                         :store
                         org-bibtex-store-link)
                        ("roam" :follow
                         org-roam-link-follow-link)
                        ("yt" :follow
                         org-yt-follow
                         :image-data-fun
                         org-yt-image-data-fun)
                        ("id" :follow
                         org-roam-id-open)
                        ("img"
                         :image-data-fun
                         +org-inline-image-data-fn)
                        ("doom-changelog"
                         :follow
                         (closure

                                                   ((old)


                                                            (vnew


                                                             closure


 
((-call-interactively)








 
t)


                                                             (fn)


                                                             #'(lambda


                                                                (path 
_prefixarg)


                                                                (funcall


                                                                 fn


                                                                 (or








 
(intern-soft path)








 
(user-error "Can't find documentation for %S" path)








 
)


                                                                 )


                                                                )


                                                             )


 
(-call-interactively)


                                                            t)

                                                   (link)

                                                   (find-file

                                                    (doom-path 
doom-docs-dir "changelog.org")

                                                    )

 
(org-match-sparse-tree nil link)

                                                   )
                         )
                        ("doom-user"
                         :follow
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (link)
                          (browse-url
                           (format
                            "https://github.com/%s"
                            (string-remove-prefix

                                                     "@"

 
(+org-link-read-desc-at-point link)

                                                     )
                            )
                           )
                          )
                         :face
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (_)
                          'org-priority)
                         )
                        ("doom-ref"
                         :follow
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (link)
                          (let
                           ((link
                             (+org-link-read-desc-at-point link)
                             )
                            (url
                             "https://github.com")
                            (doom-repo
                             "doomemacs/doomemacs")
                            )
                           (let
                            ((save-match-data-internal
                              (match-data)
                              )
                             )
                            (unwind-protect
                             (progn

                                             (browse-url


                                                    (cond





 
((string-match "^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" 
link)











 
(format











 
"%s/%s/issues/%s"











 
url











 
(or















































 
(match-string 1 link)















































 
doom-repo)











 
(match-string 2 link)











                                                                       )











                                                                      )





 
((string-match 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)





                                                                 (format





 
"%s/%s/commit/%s"





                                                                  url





                                                                  (or























 
(match-string 1 link)























 
doom-repo)





 
(match-string 2 link)





                                                                  )





                                                                 )





 
((user-error "Invalid doom-ref link: %S" link)





                                                                 )





                                                                )


                                                    )

                                             )
                             (set-match-data save-match-data-internal 
'evaporate)
                             )
                            )
                           )
                          )
                         :face
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (link)
                          (let
                           ((link
                             (+org-link-read-desc-at-point link)
                             )
                            )
                           (if
                            (or
                             (string-match 
"^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" link)
                             (string-match 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)
                             )
                            'org-link
                            'error)
                           )
                          )
                         )
                        ("doom-executable" :activate-func 
+org-link--doom-executable-link-activate-fn :help-echo 
+org-link-doom--help-echo-from-textprop :face org-verbatim)
                        ("doom-module"
                         :follow
                         +org-link-follow-doom-module-fn :activate-func 
+org-link--doom-module-link-activate-fn :face 
+org-link--doom-module-link-face-fn :help-echo 
+org-link-doom--help-echo-from-textprop)
                        ("doom-package"
                         :follow
                         +org-link-follow-doom-package-fn
                         :activate-func
                         +org-link--doom-package-link-activate-fn
                         :face
                         (closure


 
((old)




 
(vnew




 
closure




 
((-call-interactively)














 
t)




 
(fn)




 
#'(lambda




 
(path _prefixarg)




 
(funcall




 
fn




 
(or














 
(intern-soft path)














 
(user-error "Can't find documentation for %S" path)














 
)




 
)




 
)




 
)




 
(-call-interactively)




 
t)


 
(_)


 
'(:inherit org-priority :slant italic)


 
)
                         :help-echo
                         +org-link-doom--help-echo-from-textprop)
                        ("cmd" :follow
                         (closure
                          ((fn .
                            describe-command)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--command-link-activate-command :face 
help-key-binding :help-echo +org-link-doom--help-echo-from-textprop)
                        ("face" :follow
                         (closure
                          ((fn .
                            describe-face)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--face-link-activate-face
                         :face
                         (font-lock-type-face underline)
                         )
                        ("fn" :follow
                         (closure
                          ((fn .
                            helpful-callable)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--fn-link-activate-fn :face org-code)
                        ("var" :follow
                         (closure
                          ((fn .
                            helpful-variable)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--var-link-activate-fn :face org-code)
                        ("kbd" :follow
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (ev)
                          (interactive
                           "e")
                          (minibuffer-message
                           "%s"
                           (+org-link-doom--help-echo-from-textprop

                                                    nil

                                                    (current-buffer)

                                                    (posn-point

                                                     (event-start ev)

                                                     )

                                                    )
                           )
                          )
                         :help-echo
                         +org-link-doom--help-echo-from-textprop :face 
help-key-binding)
                        ("doom-modules"
                         :complete
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-modules-dir)
                             (key .
                              "doom-modules")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-modules-dir)
                           (key .
                            "doom-modules")
                           t)
                          nil
                          (if requires
                           (mapc
                            #'require
                            (ensure-list
                             requires)
                            )
                           )
                          (+org--relative-path
                           (+org--read-link-path

                                                key

                                                (funcall dir-fn)

                                                )
                           (funcall
                            dir-fn)
                           )
                          )
                         :follow
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-modules-dir)
                             (key .
                              "doom-modules")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-modules-dir)
                           (key .
                            "doom-modules")
                           t)
                          (link)
                          (org-link-open-as-file
                           (expand-file-name

                                                  link

                                                  (funcall dir-fn)

                                                  )
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-modules-dir)
                             (key .
                              "doom-modules")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-modules-dir)
                           (key .
                            "doom-modules")
                   Emacs  : GNU Emacs 28.3 (build 1, 
arm-unknown-linux-androideabi)
  of 2023-03-20
Package: Org mode version 9.6.1 (9.6.1-??-fe92a3c @ 
/data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)
current state:
==============
(setq
  org-tag-alist '(("work" . 119)
                  ("home" . 104)
                  ("internet" . 105)
                  ("renovation" . 114)
                  ("today" . 116)
                  ("vacances" . 118)
                  ("buy" . 98)
                  ("errands" . 101)
                  ("fiscal" . 102)
                  ("org" . 111)
                  ("Sonia" . 115)
                  ("phone" . 112)
                  ("django" . 100))
  org-insert-heading-respect-content t
  org-agenda-start-on-weekday nil
  org-persist-after-read-hook '(org-element--cache-persist-after-read)
  org-directory "~/org/"
  org-cycle-hook '(org-cycle-hide-archived-subtrees 
org-cycle-show-empty-lines 
org-cycle-optimize-window-after-visibility-change 
org-cycle-display-inline-images)
  org-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h 
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand 
+org-clear-babel-results-h +org-cycle-only-current-subtree-h)
  org-fontify-quote-and-verse-blocks t
  org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
  org-id-locations-file "/data/data/com.termux/files/home/org/.orgids"
  org-attach-use-inheritance t
  outline-isearch-open-invisible-function 
'outline-isearch-open-invisible
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-roam-db-gc-threshold 536870911
  org-image-actual-width nil
  org-todo-keyword-faces '(("[-]" .
                            +org-todo-active)
                           ("STRT" .
                            +org-todo-active)
                           ("[?]" .
                            +org-todo-onhold)
                           ("WAIT" .
                            +org-todo-onhold)
                           ("HOLD" .
                            +org-todo-onhold)
                           ("PROJ" .
                            +org-todo-project)
                           ("NO" .
                            +org-todo-cancel)
                           ("KILL" .
                            +org-todo-cancel)
                           )
  org-agenda-span 10
  org-roam-directory "/data/data/com.termux/files/home/org/roam/"
  org-mode-local-vars-hook '(+org-init-gifs-h)
  org-load-hook '(+org-init-org-directory-h +org-init-appearance-h 
+org-init-agenda-h +org-init-attachments-h +org-init-babel-h 
+org-init-babel-lazy-loader-h +org-init-capture-defaults-h 
+org-init-capture-frame-h +org-init-custom-links-h +org-init-export-h 
+org-init-habit-h +org-init-hacks-h +org-init-keybinds-h 
+org-init-popup-rules-h +org-init-smartparens-h +org-init-roam-h)
  org-startup-folded nil
  org-babel-after-execute-hook 
'(+org-redisplay-inline-images-in-babel-result-h)
  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
  org-agenda-inhibit-startup t
  org-export-before-parsing-hook '(org-attach-expand-links)
  org-attach-store-link-p 'attached
  org-special-ctrl-a/e t
  org-agenda-loop-over-headlines-in-active-region nil
  org-export-backends '(md ascii html
                        icalendar latex
                        odt)
  org-modules '(ol-bibtex)
  org-agenda-deadline-faces '((1.001 .
                               error)
                              (1.0 .
                               org-warning)
                              (0.5 .
                               org-upcoming-deadline)
                              (0.0 .
                               org-upcoming-distant-deadline)
                              )
  org-eldoc-breadcrumb-separator " → "
  org-clock-out-remove-zero-time-clocks t
  org-link-parameters '(("bibtex"
                         :follow
                         org-bibtex-open
                         :store
                         org-bibtex-store-link)
                        ("roam" :follow
                         org-roam-link-follow-link)
                        ("yt" :follow
                         org-yt-follow
                         :image-data-fun
                         org-yt-image-data-fun)
                        ("id" :follow
                         org-roam-id-open)
                        ("img"
                         :image-data-fun
                         +org-inline-image-data-fn)
                        ("doom-changelog"
                         :follow
                         (closure

                                                   ((old)


                                                            (vnew


                                                             closure


 
((-call-interactively)








 
t)


                                                             (fn)


                                                             #'(lambda


                                                                (path 
_prefixarg)


                                                                (funcall


                                                                 fn


                                                                 (or








 
(intern-soft path)








 
(user-error "Can't find documentation for %S" path)








 
)


                                                                 )


                                                                )


                                                             )


 
(-call-interactively)


                                                            t)

                                                   (link)

                                                   (find-file

                                                    (doom-path 
doom-docs-dir "changelog.org")

                                                    )

 
(org-match-sparse-tree nil link)

                                                   )
                         )
                        ("doom-user"
                         :follow
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (link)
                          (browse-url
                           (format
                            "https://github.com/%s"
                            (string-remove-prefix

                                                     "@"

 
(+org-link-read-desc-at-point link)

                                                     )
                            )
                           )
                          )
                         :face
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (_)
                          'org-priority)
                         )
                        ("doom-ref"
                         :follow
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (link)
                          (let
                           ((link
                             (+org-link-read-desc-at-point link)
                             )
                            (url
                             "https://github.com")
                            (doom-repo
                             "doomemacs/doomemacs")
                            )
                           (let
                            ((save-match-data-internal
                              (match-data)
                              )
                             )
                            (unwind-protect
                             (progn

                                             (browse-url


                                                    (cond





 
((string-match "^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" 
link)











 
(format











 
"%s/%s/issues/%s"











 
url











 
(or















































 
(match-string 1 link)















































 
doom-repo)











 
(match-string 2 link)











                                                                       )











                                                                      )





 
((string-match 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)





                                                                 (format





 
"%s/%s/commit/%s"





                                                                  url





                                                                  (or























 
(match-string 1 link)























 
doom-repo)





 
(match-string 2 link)





                                                                  )





                                                                 )





 
((user-error "Invalid doom-ref link: %S" link)





                                                                 )





                                                                )


                                                    )

                                             )
                             (set-match-data save-match-data-internal 
'evaporate)
                             )
                            )
                           )
                          )
                         :face
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (link)
                          (let
                           ((link
                             (+org-link-read-desc-at-point link)
                             )
                            )
                           (if
                            (or
                             (string-match 
"^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" link)
                             (string-match 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)
                             )
                            'org-link
                            'error)
                           )
                          )
                         )
                        ("doom-executable" :activate-func 
+org-link--doom-executable-link-activate-fn :help-echo 
+org-link-doom--help-echo-from-textprop :face org-verbatim)
                        ("doom-module"
                         :follow
                         +org-link-follow-doom-module-fn :activate-func 
+org-link--doom-module-link-activate-fn :face 
+org-link--doom-module-link-face-fn :help-echo 
+org-link-doom--help-echo-from-textprop)
                        ("doom-package"
                         :follow
                         +org-link-follow-doom-package-fn
                         :activate-func
                         +org-link--doom-package-link-activate-fn
                         :face
                         (closure


 
((old)




 
(vnew




 
closure




 
((-call-interactively)














 
t)




 
(fn)




 
#'(lambda




 
(path _prefixarg)




 
(funcall




 
fn




 
(or














 
(intern-soft path)














 
(user-error "Can't find documentation for %S" path)














 
)




 
)




 
)




 
)




 
(-call-interactively)




 
t)


 
(_)


 
'(:inherit org-priority :slant italic)


 
)
                         :help-echo
                         +org-link-doom--help-echo-from-textprop)
                        ("cmd" :follow
                         (closure
                          ((fn .
                            describe-command)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--command-link-activate-command :face 
help-key-binding :help-echo +org-link-doom--help-echo-from-textprop)
                        ("face" :follow
                         (closure
                          ((fn .
                            describe-face)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--face-link-activate-face
                         :face
                         (font-lock-type-face underline)
                         )
                        ("fn" :follow
                         (closure
                          ((fn .
                            helpful-callable)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--fn-link-activate-fn :face org-code)
                        ("var" :follow
                         (closure
                          ((fn .
                            helpful-variable)
                           (-call-interactively)
                           t)
                          (path
                           _prefixarg)
                          (funcall fn
                           (or
                            (intern-soft
                             path)
                            (user-error
                             "Can't find documentation for %S" path)
                            )
                           )
                          )
                         :activate-func
                         +org-link--var-link-activate-fn :face org-code)
                        ("kbd" :follow
                         (closure
                          ((old)
                           (vnew closure
                            ((-call-interactively)
                             t)
                            (fn)
                            #'(lambda
                               (path
                                _prefixarg)
                               (funcall
                                fn
                                (or
                                 (intern-soft path)
                                 (user-error "Can't find documentation 
for %S" path)
                                 )
                                )
                               )
                            )
                           (-call-interactively)
                           t)
                          (ev)
                          (interactive
                           "e")
                          (minibuffer-message
                           "%s"
                           (+org-link-doom--help-echo-from-textprop

                                                    nil

                                                    (current-buffer)

                                                    (posn-point

                                                     (event-start ev)

                                                     )

                                                    )
                           )
                          )
                         :help-echo
                         +org-link-doom--help-echo-from-textprop :face 
help-key-binding)
                        ("doom-modules"
                         :complete
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-modules-dir)
                             (key .
                              "doom-modules")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-modules-dir)
                           (key .
                            "doom-modules")
                           t)
                          nil
                          (if requires
                           (mapc
                            #'require
                            (ensure-list
                             requires)
                            )
                           )
                          (+org--relative-path
                           (+org--read-link-path

                                                key

                                                (funcall dir-fn)

                                                )
                           (funcall
                            dir-fn)
                           )
                          )
                         :follow
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-modules-dir)
                             (key .
                              "doom-modules")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-modules-dir)
                           (key .
                            "doom-modules")
                           t)
                          (link)
                          (org-link-open-as-file
                           (expand-file-name

                                                  link

                                                  (funcall dir-fn)

                                                  )
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-modules-dir)
                             (key .
                              "doom-modules")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-modules-dir)
                           (key .
                            "doom-modules")
                           t)
                          (link)
                          (let*
                           ((path
                             (expand-file-name
                              link
                              (funcall
                               dir-fn)
                              )
                             )
                            (option-index
                             (string-match-p "::\\(.*\\)\\'" path)
                             )
                            (file-name
                             (substring
                              path 0
                              option-index)
                             )
                            )
                           (if
                            (file-exists-p file-name)
                            'org-link
                            'error)
                           )
                          )
                         :requires nil)
                        ("doom-docs"
                         :complete
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-docs-dir)
                             (key .
                              "doom-docs")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-docs-dir)
                           (key .
                            "doom-docs")
                           t)
                          nil
                          (if requires
                           (mapc
                            #'require
                            (ensure-list
                             requires)
                            )
                           )
                          (+org--relative-path
                           (+org--read-link-path

                                                key

                                                (funcall dir-fn)

                                                )
                           (funcall
                            dir-fn)
                           )
                          )
                         :follow
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-docs-dir)
                             (key .
                              "doom-docs")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-docs-dir)
                           (key .
                            "doom-docs")
                           t)
                          (link)
                          (org-link-open-as-file
                           (expand-file-name

                                                  link

                                                  (funcall dir-fn)

                                                  )
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-docs-dir)
                             (key .
                              "doom-docs")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-docs-dir)
                           (key .
                            "doom-docs")
                           t)
                          (link)
                          (let*
                           ((path
                             (expand-file-name
                              link
                              (funcall
                               dir-fn)
                              )
                             )
                            (option-index
                             (string-match-p "::\\(.*\\)\\'" path)
                             )
                            (file-name
                             (substring
                              path 0
                              option-index)
                             )
                            )
                           (if
                            (file-exists-p file-name)
                            'org-link
                            'error)
                           )
                          )
                         :requires nil)
                        ("doom"
                         :complete
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-emacs-dir)
                             (key .
                              "doom")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-emacs-dir)
                           (key . "doom")
                           t)
                          nil
                          (if requires
                           (mapc
                            #'require
                            (ensure-list
                             requires)
                            )
                           )
                          (+org--relative-path
                           (+org--read-link-path

                                                key

                                                (funcall dir-fn)

                                                )
                           (funcall
                            dir-fn)
                           )
                          )
                         :follow
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-emacs-dir)
                             (key .
                              "doom")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-emacs-dir)
                           (key . "doom")
                           t)
                          (link)
                          (org-link-open-as-file
                           (expand-file-name

                                                  link

                                                  (funcall dir-fn)

                                                  )
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              doom-emacs-dir)
                             (key .
                              "doom")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            doom-emacs-dir)
                           (key . "doom")
                           t)
                          (link)
                          (let*
                           ((path
                             (expand-file-name
                              link
                              (funcall
                               dir-fn)
                              )
                             )
                            (option-index
                             (string-match-p "::\\(.*\\)\\'" path)
                             )
                            (file-name
                             (substring
                              path 0
                              option-index)
                             )
                            )
                           (if
                            (file-exists-p file-name)
                            'org-link
                            'error)
                           )
                          )
                         :requires nil)
                        ("org" :complete
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              org-directory)
                             (key .
                              "org")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            org-directory)
                           (key . "org")
                           t)
                          nil
                          (if requires
                           (mapc
                            #'require
                            (ensure-list
                             requires)
                            )
                           )
                          (+org--relative-path
                           (+org--read-link-path

                                                key

                                                (funcall dir-fn)

                                                )
                           (funcall
                            dir-fn)
                           )
                          )
                         :follow
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              org-directory)
                             (key .
                              "org")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            org-directory)
                           (key . "org")
                           t)
                          (link)
                          (org-link-open-as-file
                           (expand-file-name

                                                  link

                                                  (funcall dir-fn)

                                                  )
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn
                            closure
                            ((plist)
                             (dir-var .
                              org-directory)
                             (key .
                              "org")
                             t)
                            nil
                            (symbol-value dir-var)
                            )
                           (requires)
                           (plist)
                           (dir-var .
                            org-directory)
                           (key . "org")
                           t)
                          (link)
                          (let*
                           ((path
                             (expand-file-name
                              link
                              (funcall
                               dir-fn)
                              )
                             )
                            (option-index
                             (string-match-p "::\\(.*\\)\\'" path)
                             )
                            (file-name
                             (substring
                              path 0
                              option-index)
                             )
                            )
                           (if
                            (file-exists-p file-name)
                            'org-link
                            'error)
                           )
                          )
                         :requires nil)
                        ("attachment"
                         :image-data-fun
                         +org-inline-image-data-fn :follow 
org-attach-follow :complete org-attach-complete-link)
                        ("file+sys")
                        ("file+emacs")
                        ("shell" :follow
                         org-link--open-shell)
                        ("news" :follow
                         #[514
                           "\301\300\302Q\"\207"
                           ["news"
                            browse-url
                            ":"]
                           6
                           "\n\n(fn URL ARG)"]
                         )
                        ("mailto"
                         :follow
                         #[514
                           "\301\300\302Q\"\207"
                           ["mailto"
                            browse-url
                            ":"]
                           6
                           "\n\n(fn URL ARG)"]
                         )
                        ("https" :follow
                         #[514
                           "\301\300\302Q\"\207"
                           ["https"
                            browse-url
                            ":"]
                           6
                           "\n\n(fn URL ARG)"]
                         :image-data-fun
                         +org-http-image-data-fn)
                        ("http" :follow
                         #[514
                           "\301\300\302Q\"\207"
                           ["http"
                            browse-url
                            ":"]
                           6
                           "\n\n(fn URL ARG)"]
                         :image-data-fun
                         +org-http-image-data-fn)
                        ("ftp" :follow
                         #[514
                           "\301\300\302Q\"\207"
                           ["ftp"
                            browse-url
                            ":"]
                           6
                           "\n\n(fn URL ARG)"]
                         )
                        ("help" :follow
                         org-link--open-help :store 
org-link--store-help)
                        ("file"
                         :complete
                         org-link-complete-file
                         :face
                         (closure

                                                       (t)

                                                       (path)

                                                       (if

                                                        (or



 
(file-remote-p path)



                                                            (if



                                                             IS-WINDOWS



 
(string-prefix-p "\\\\" path)



                                                             )



 
(file-exists-p path)



                                                            )

                                                        'org-link

                                                        '(warning 
org-link)

                                                        )

                                                       )
                         )
                        ("elisp" :follow
                         org-link--open-elisp)
                        )
  org-priority-faces '((65 . error)
                       (66 . warning)
                       (67 . success))
  org-outline-path-complete-in-steps nil
  org-crypt-key nil
  org-confirm-babel-evaluate nil
  org-clock-history-length 20
  org-capture-mode-hook '(+org-show-target-in-capture-header-h 
evil-insert-state)
  org-archive-hook '(org-attach-archive-delete-maybe)
  org-reveal-start-hook '(org-decrypt-entry)
  org-display-remote-inline-images 'download
  org-confirm-shell-link-function 'yes-or-no-p
  org-roam-node-template-prefixes '(("doom-type" . "@")
                                    ("doom-tags" . "#")
                                    ("tags" . "#")
                                    ("todo" . "t:")
                                    )
  org-capture-templates '(("t"
                           "Task Entry"
                           entry
                           (file+headline "todo.org" "Tasks")
                           "* TODO [#C] %? %i :web: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          ("w"
                           "Work Task Entry"
                           entry
                           (file+headline "todo.org" "Work")
                           "* TODO [#C] %? %i :work: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          ("b"
                           "Buy Task Entry"
                           entry
                           (file+headline "todo.org" "Tasks")
                           "* TODO [#C] %? %i :buy: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          ("h"
                           "Home Task Entry"
                           entry
                           (file+headline "todo.org" "Tasks")
                           "* TODO [#C] %? %i :home: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          )
  org-M-RET-may-split-line nil
  org-persist-before-write-hook 
'(org-element--cache-persist-before-write)
  org-roam-find-file-hook 
'(doom--setq-org-id-link-to-org-use-id-for-org-roam-find-file-h 
org-roam-buffer--setup-redisplay-h 
org-roam--register-completion-functions-h 
org-roam--replace-roam-links-on-save-h 
org-roam-db-autosync--setup-update-on-save-h 
+org-roam-enable-auto-backlinks-buffer-h)
  org-hide-emphasis-markers t
  org-link-abbrev-alist '(("doomdir" .
 
"/data/data/com.termux/files/home/.doom.d/%s")
                          ("emacsdir" .
 
"/data/data/com.termux/files/home/.config/emacs/%s")
                          ("doom-repo" .
                           "https://github.com/doomemacs/doomemacs/%s")
                          ("wolfram" .
                           "https://wolframalpha.com/input/?i=%s")
                          ("wikipedia" .
                           "https://en.wikipedia.org/wiki/%s")
                          ("duckduckgo"
                           .
                           "https://duckduckgo.com/?q=%s")
                          ("gmap" .
                           "https://maps.google.com/maps?q=%s")
                          ("gimages" .
                           "https://google.com/images?q=%s")
                          ("google" .
                           "https://google.com/search?q=")
                          ("youtube" .
                           "https://youtube.com/watch?v=%s")
                          ("github" .
                           "https://github.com/%s")
                          )
  org-entities-user '(("flat" "\\flat"
                       nil "" "" "266D"
                       "♭")
                      ("sharp" "\\sharp"
                       nil "" "" "266F"
                       "♯")
                      )
  org-imenu-depth 6
  org-persist-before-read-hook '(org-element--cache-persist-before-read)
  org-cycle-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h 
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand 
+org-clear-babel-results-h +org-cycle-only-current-subtree-h)
  org-metadown-hook '(org-babel-pop-to-session-maybe)
  org-clock-in-resume t
  org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
  org-tags-exclude-from-inheritance '("crypt")
  org-hide-leading-stars t
  org-src-preserve-indentation t
  org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
  org-roam-ref-annotation-function 'org-roam-ref-read--annotation
  org-occur-hook '(org-first-headline-recenter)
  org-todo-keywords '((sequence
                       "TODO(t)"
                       "PROJ(p)"
                       "LOOP(r)"
                       "STRT(s)"
                       "WAIT(w)"
                       "HOLD(h)"
                       "IDEA(i)" "|"
                       "DONE(d)"
                       "KILL(k)")
                      (sequence "[ ](T)"
                       "[-](S)" "[?](W)"
                       "|" "[X](D)")
                      (sequence "|"
                       "OKAY(o)"
                       "YES(y)" "NO(n)")
                      )
  org-agenda-files '("/data/data/com.termux/files/home/org/eds.org" 
"/data/data/com.termux/files/home/org/appartement.org" 
"/data/data/com.termux/files/home/org/santé.org" 
"/data/data/com.termux/files/home/org/Italie 2023.org" 
"/data/data/com.termux/files/home/org/Paris2022.org" 
"/data/data/com.termux/files/home/org/annifsonia.org" 
"/data/data/com.termux/files/home/org/handicap.org" 
"/data/data/com.termux/files/home/org/finances.org" 
"/data/data/com.termux/files/home/org/passeport_DE.org" 
"/data/data/com.termux/files/home/org/auto.org" 
"/data/data/com.termux/files/home/org/fiddle.org" 
"/data/data/com.termux/files/home/org/maintenance.org" 
"/data/data/com.termux/files/home/org/piano.org" 
"/data/data/com.termux/files/home/org/react_native.org" 
"/data/data/com.termux/files/home/org/renovation.org" 
"/data/data/com.termux/files/home/org/todo.org")
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-link-shell-confirm-function 'yes-or-no-p
  org-agenda-mode-hook '(+org-habit-resize-graph-h evil-org-agenda-mode)
  org-startup-indented t
  org-roam-indirect-buffer-hook 
'(org-roam--register-completion-functions-h)
  org-agenda-prefix-format '((agenda .
                              "s")
                             (timeline .
                              "  % s")
                             (todo .
                              " %i %-12:c")
                             (tags .
                              " %i %-12:c")
                             )
  org-src-lang-modes '(("rust" . rustic)
                       ("md" . markdown)
                       ("C" . c)
                       ("C++" . c++)
                       ("asymptote" .
                        asy)
                       ("bash" . sh)
                       ("beamer" . latex)
                       ("calc" .
                        fundamental)
                       ("cpp" . c++)
                       ("ditaa" . artist)
                       ("desktop" .
                        conf-desktop)
                       ("dot" .
                        fundamental)
                       ("elisp" .
                        emacs-lisp)
                       ("ocaml" . tuareg)
                       ("screen" .
                        shell-script)
                       ("shell" . sh)
                       ("sqlite" . sql)
                       ("toml" .
                        conf-toml)
                       )
  org-roam-mode-hook '(+org-roam-detach-magit-section-mode-map-h 
turn-on-visual-line-mode)
  org-roam-db-node-include-function #[0 "\300\207" [t] 1]
  org-id-locations-file-relative t
  org-roam-db-autosync-mode t
  org-src-window-setup 'other-window
  org-clock-persist-file 
"/data/data/com.termux/files/home/.config/emacs/.local/etc/org-clock-save.el"
  org-preview-latex-image-directory 
"/data/data/com.termux/files/home/.config/emacs/.local/cache/org/latex/"
  org-roam-capture-preface-hook 
'(org-roam-capture--try-capture-to-ref-h)
  org-mode-hook '(er/add-org-mode-expansions
                  +lookup--init-org-mode-handlers-h
                  (closure


 
((hook . org-mode-hook)




 
(--dolist-tail--)




 
t)


 
(&rest _)


 
(add-hook 'before-save-hook 'org-encrypt-entries nil t)


 
)
                  #[0
                    "\300\301\302\303\304$\207"
                    [add-hook
                     change-major-mode-hook org-fold-show-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
                  #[0


 
"\301\211\207"


 
[imenu-create-index-function org-imenu-get-tree]


 
2]
                  doom-disable-show-paren-mode-h 
doom-disable-show-trailing-whitespace-h +org-make-last-point-visible-h 
evil-org-mode toc-org-enable embrace-org-mode-hook org-eldoc-load)
  org-roam-list-files-commands '(fd
                                 fdfind
                                 rg find)
  org-babel-pre-tangle-hook '(save-buffer)
  org-indirect-buffer-display 'current-window
  org-tags-column 0
  org-persist-directory 
"/data/data/com.termux/files/home/.config/emacs/.local/cache/org/persist/"
  org-clock-persist 'history
  org-roam-capture-new-node-hook 
'(org-roam-capture--insert-captured-ref-h)
  org-capture-prepare-finalize-hook 
'(org-roam-capture--install-finalize-h)
  org-refile-use-outline-path 'file
  org-agenda-skip-unavailable-files t
  org-after-refile-insert-hook '(save-buffer)
  org-fold-reveal-start-hook '(org-decrypt-entry)
  org-fold-core-isearch-open-function 'org-fold--isearch-reveal
  org-fontify-whole-heading-line t
  org-attach-id-dir "/data/data/com.termux/files/home/org/.attach/"
  org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 
"\n\n(fn ENTRY)"]
  org-list-allow-alphabetical t
  org-agenda-window-setup 'current-window
  org-roam-preview-function 'org-roam-preview-default-function
  org-log-buffer-setup-hook '(org-roam-log--setup)
  org-default-notes-file 
"/data/data/com.termux/files/home/org/notes.org"
  org-archive-subtree-save-file-p t
  org-file-apps '((remote . emacs)
                  (auto-mode . emacs)
                  (directory . emacs)
                  ("\\.mm\\'" . default)
                  ("\\.x?html?\\'" .
                   default)
                  ("\\.pdf\\'" . default)
                  )
  org-font-lock-set-keywords-hook 
'(doom-themes-enable-org-fontification)
  org-speed-command-hook '(org-speed-command-activate 
org-babel-speed-command-activate)
  org-use-sub-superscripts '{}
  org-roam-completion-everywhere t
  org-refile-targets '((nil :maxlevel .
                        3)
                       (org-agenda-files
                        :maxlevel . 3)
                       )
  org-agenda-finalize-hook 
'(+org-exclude-agenda-buffers-from-workspace-h 
+org-defer-mode-in-agenda-buffers-h)
  org-enforce-todo-dependencies t
  org-roam-node-annotation-function 'org-roam-node-read--annotation
  org-link-elisp-confirm-function nil
  org-link-translation-function 'toc-org-unhrefify
  )

[-- Attachment #2: Type: text/html, Size: 174145 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)]
  2023-07-03 18:06 [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)] Nick Römer via General discussions about Org-mode.
@ 2023-07-04 12:29 ` Ihor Radchenko
  0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2023-07-04 12:29 UTC (permalink / raw)
  To: Nick Römer; +Cc: emacs-orgmode

Nick Römer via "General discussions about Org-mode."
<emacs-orgmode@gnu.org> writes:

> In org agenda view, on terminal Emacs version running in termux on my 
> Samsung galaxy A10, I get an Error "wholenump -3" when selecting one or 
> more TODOs with the "m" key and subsequently trying to reschedule using 
> the key sequence "x s". However, if I zoom out a bit (using the pincer 
> gesture) the error does not happen.

May you share the backtrace? (after M-x toggle-debug-on-error)

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>


^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)]
       [not found] <e8d406$4rf9kg@relay.proximus.be>
@ 2023-07-04 16:38 ` Ihor Radchenko
  0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2023-07-04 16:38 UTC (permalink / raw)
  To: Nick Römer; +Cc: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 288 bytes --]

[ Adding Org ML back to CC ]

Nick Römer <nick.romer@skynet.be> writes:

> Debugger entered--Lisp error: (wrong-type-argument wholenump -2) 
> move-to-column(-2 t)  org-move-to-column(-2 t) 
> org-agenda-show-new-time ...

Thanks!
Does the attached patch solve the problem?

[-- Attachment #2: 0001-org-agenda-show-new-time-Fix-when-window-is-very-nar.patch --]
[-- Type: text/x-patch, Size: 1432 bytes --]

From cd7c52972ea93029278f462fb0240e49aaba4fa2 Mon Sep 17 00:00:00 2001
Message-ID: <cd7c52972ea93029278f462fb0240e49aaba4fa2.1688488637.git.yantar92@posteo.net>
From: Ihor Radchenko <yantar92@posteo.net>
Date: Tue, 4 Jul 2023 19:34:41 +0300
Subject: [PATCH] org-agenda-show-new-time: Fix when window is very narrow
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* lisp/org-agenda.el (org-agenda-show-new-time): When window is
narrower than timestamp, do not try to display timestamps starting at
negative column.

Reported-by: Nick Römer <nick.romer@skynet.be>
Link: https://orgmode.org/list/4196e86e.19136.1891ceef131.Webtop.154@skynet.be
---
 lisp/org-agenda.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 89c10403b..5594c7453 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10100,8 +10100,10 @@ (defun org-agenda-show-new-time (marker stamp &optional prefix)
 				  (line-end-position)
 				  '(display nil))
 	  (org-move-to-column
-           (- (window-max-chars-per-line)
-              (length stamp))
+           (min
+            1 ;; narrow buffer and wide timestamp
+            (- (window-max-chars-per-line)
+               (length stamp)))
            t)
           (add-text-properties
            (1- (point)) (line-end-position)
-- 
2.41.0


[-- Attachment #3: Type: text/plain, Size: 1795 bytes --]



> Debugger entered--Lisp error: (wrong-type-argument wholenump -2)  move-to-column(-2 t)  org-move-to-column(-2 t)  org-agenda-show-new-time(#<marker (moves after insertion) at 554 in todo.org> "Scheduled to <2023-07-04 Tue>" " S")  org-agenda-schedule(nil "2023-07-04")  #f(compiled-function () #<bytecode 0x1d27617b>)()  org-agenda-bulk-action(nil)  funcall-interactively(org-agenda-bulk-action nil)  call-interactively(org-agenda-bulk-action nil nil)  command-execute(org-agenda-bulk-action)
> -------- Original message --------From: Ihor Radchenko <yantar92@posteo.net> Date: 04/07/23  14:29  (GMT+01:00) To: Nick Römer <nick.romer@skynet.be> Cc: emacs-orgmode@gnu.org Subject: Re: [BUG] error wholenump in org agenda on reschedule [9.6.1
>   (9.6.1-??-fe92a3c @
>   /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)] Nick Römer via "General discussions about Org-mode."<emacs-orgmode@gnu.org> writes:> In org agenda view, on terminal Emacs version running in termux on my > Samsung galaxy A10, I get an Error "wholenump -3" when selecting one or > more TODOs with the "m" key and subsequently trying to reschedule using > the key sequence "x s". However, if I zoom out a bit (using the pincer > gesture) the error does not happen.May you share the backtrace? (after M-x toggle-debug-on-error)-- Ihor Radchenko // yantar92,Org mode contributor,Learn more about Org mode at <https://orgmode.org/>.Support Org development at <https://liberapay.com/org-mode>,or support my work at <https://liberapay.com/yantar92>

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>

^ permalink raw reply related	[flat|nested] 4+ messages in thread

* Re: [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)]
       [not found] <ce9a33$4jv7eh@relay.proximus.be>
@ 2023-07-05 13:15 ` Ihor Radchenko
  0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2023-07-05 13:15 UTC (permalink / raw)
  To: Nick Römer; +Cc: emacs-orgmode

Nick Römer <nick.romer@skynet.be> writes:

> Success! The error is gone.

Thanks for testing!

Applied.
Fixed, on main.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=7c6302e20

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>


^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2023-07-05 13:16 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2023-07-03 18:06 [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)] Nick Römer via General discussions about Org-mode.
2023-07-04 12:29 ` Ihor Radchenko
     [not found] <e8d406$4rf9kg@relay.proximus.be>
2023-07-04 16:38 ` Ihor Radchenko
     [not found] <ce9a33$4jv7eh@relay.proximus.be>
2023-07-05 13:15 ` Ihor Radchenko

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.