* [BUG] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)]
@ 2024-04-04 16:20 Joe Gilder
2024-04-04 16:24 ` Joe Gilder
2024-04-05 18:19 ` Ihor Radchenko
0 siblings, 2 replies; 4+ messages in thread
From: Joe Gilder @ 2024-04-04 16:20 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 12643 bytes --]
I made a quick video demonstrating:
https://www.dropbox.com/scl/fi/jckftu7bi4753b1autt0a/org-bug.mp4?rlkey=nghlh36s84hzz8omo00lbsdlg&dl=0
Thanks!
Joe Gilder
Emacs : GNU Emacs 28.2 (build 1, aarch64-apple-darwin21.1.0, NS appkit-2113.00 Version 12.0.1 (Build 21A559))
of 2023-02-22
Package: Org mode version 9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)
current state:
==============
(setq
org-agenda-prefix-format '((agenda . " %?-10t %s ") (timeline . " % s")
(todo . " %s ") (tags . " %i ")
(search . " %i %-12:c"))
org-archive-location "~/Emacs/Archive.org::"
org-log-note-headings '((note . "%t"))
org-link-elisp-confirm-function nil
org-agenda-skip-deadline-prewarning-if-scheduled t
org-hide-emphasis-markers t
org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
org-download-file-format-function 'org-download-file-format-default
org-attach-id-to-path-function-list '(org-attach-id-ts-folder-format)
org-agenda-custom-commands '(("i" "INBOX + AGENDA"
((todo "NEXT"
((org-agenda-overriding-header "Next"))
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'date 'timestamp
'deadline 'scheduled)
)
)
(agenda "")
(tags-todo "inbox"
((org-agenda-overriding-header "Inbox")
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'timestamp
'deadline 'scheduled 'todo
'("PROJECT" "NEXT" "WAITING" "DONE"
"CANCELLED")
)
)
)
)
(todo "PROJECT"
((org-agenda-overriding-header "Projects")
(org-agenda-block-separator 61))
)
(tags-todo "@pam"
((org-agenda-overriding-header "@Pam")
(org-agenda-block-separator 61)
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'deadline
'scheduled 'todo
'("PROJECT" "NEXT" "WAITING" "DONE"
"CANCELLED")
)
)
)
)
(tags-todo "@work"
((org-agenda-overriding-header "@Work")
(org-agenda-block-separator nil)
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'deadline
'scheduled 'todo
'("PROJECT" "NEXT" "WAITING" "DONE"
"CANCELLED")
)
)
)
)
(tags-todo "@home"
((org-agenda-overriding-header "@Home")
(org-agenda-block-separator nil)
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'deadline
'scheduled 'todo
'("PROJECT" "NEXT" "WAITING" "DONE"
"CANCELLED")
)
)
)
)
(todo "WAITING"
((org-agenda-overriding-header
"@Waiting/@Calendar")
(org-agenda-block-separator nil))
)
)
)
)
org-agenda-skip-scheduled-if-done t
org-agenda-files '("~/Emacs/Todo.org" "~/Emacs/Journal.org" "~/Emacs/Notes.org"
"~/Emacs/.emacs.d/config.org" "~/Emacs/calendar-beorg.org")
org-goto-interface 'outline-path-completion
org-capture-templates '(("t" "Todo" entry
(file+olp+datetree "~/Dropbox/Emacs/Todo.org")
"* TODO %^{Headline}\n%?" :clock-in nil :clock-resume
nil)
("0" "Quick Capture - Todo" entry
(file+olp+datetree "~/Dropbox/Emacs/Todo.org")
"* TODO %^{Headline}" :clock-in nil :clock-resume nil
:immediate-finish 1)
("l" "Log (Clocks In)" entry
(file+olp+datetree "~/Dropbox/Emacs/Todo.org")
"* %^{Headline}\n%?" :clock-in t :clock-resume t)
("p" "Project" entry
(file+headline "~/Dropbox/Emacs/Todo.org" "PROJECTS")
"* PROJECT %^{Headline}\n%?" :clock-in nil
:clock-resume nil)
("n" "Note (Clocks In)" entry
(file+headline "~/Dropbox/Emacs/Notes.org"
"NOTES TO PROCESS")
"* %^{Headline}\n%?" :clock-in t :clock-resume t)
("j" "Journal (Clocks In)" entry
(file+olp+datetree "~/Dropbox/Emacs/Journal.org")
"* %^{Headline}\n%?" :clock-in t :clock-resume t)
)
org-refile-targets '((org-agenda-files :maxlevel . 9))
org-export-before-parsing-hook '(org-attach-expand-links)
org-download-method 'attach
org-archive-hook '(org-attach-archive-delete-maybe)
org-speed-commands '(("a" . org-attach-reveal-in-emacs)
("A" . org-archive-subtree-default-with-confirmation)
("&" . org-mark-ring-goto) ("o" . jqg/speed-link-o)
("z" . org-add-note) ("Outline Navigation")
("n" org-speed-move-safe 'org-next-visible-heading)
("p" org-speed-move-safe 'org-previous-visible-heading)
("f" org-speed-move-safe 'org-forward-heading-same-level)
("b" org-speed-move-safe 'org-backward-heading-same-level)
("F" . org-next-block) ("B" . org-previous-block)
("u" org-speed-move-safe 'outline-up-heading)
("j" . org-goto) ("g" org-refile '(4))
("Outline Visibility") ("c" . org-cycle)
("C" . org-shifttab) (" " . org-display-outline-path)
("s" . org-toggle-narrow-to-subtree)
("k" . org-cut-subtree) ("=" . org-columns)
("Outline Structure Editing") ("U" . org-metaup)
("D" . org-metadown) ("r" . org-metaright)
("l" . org-metaleft) ("R" . org-shiftmetaright)
("L" . org-shiftmetaleft)
("i" progn (forward-char 1)
(call-interactively 'org-insert-heading-respect-content))
("^" . org-sort) ("w" . org-refile)
("a" . org-archive-subtree-default-with-confirmation)
("@" . org-mark-subtree) ("#" . org-toggle-comment)
("Clock Commands") ("I" . org-clock-in)
("O" . org-clock-out) ("Meta Data Editing")
("t" . org-todo) ("," org-priority) ("0" org-priority 32)
("1" org-priority 65) ("2" org-priority 66)
("3" org-priority 67) (":" . org-set-tags-command)
("e" . org-set-effort) ("E" . org-inc-effort)
("W" lambda (m) (interactive "sMinutes before warning: ")
(org-entry-put (point) "APPT_WARNTIME" m))
("Agenda Views etc") ("v" . org-agenda)
("/" . org-sparse-tree) ("Misc") ("o" . org-open-at-point)
("?" . org-speed-command-help)
("<" org-agenda-set-restriction-lock 'subtree)
(">" org-agenda-remove-restriction-lock))
org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" . default)
("\\.x?html?\\'" . default) ("\\.pdf\\'" . default)
("\\.m4a\\'" . default) ("\\.m4v\\'" . default)
("\\.mp3\\'" . default) ("\\.wav\\'" . default)
("\\.jpg\\'" . default) ("\\.jpeg\\'" . default)
("\\.png\\'" . default) ("\\.tiff\\'" . default)
("\\.docx\\'" . default))
org-columns-default-format "%50ITEM(Task) %10CLOCKSUM %16TIMESTAMP_IA"
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-catch-invisible-edits 'show-and-error
org-image-actual-width 400
org-attach-use-inheritance nil
org-mode-hook '((lambda nil (org-bullets-mode 1)) org-clock-load
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-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)
org-follow-link-hook '(recenter-top-bottom)
org-babel-load-languages '((shell . t))
org-agenda-skip-deadline-if-done t
org-id-ts-format "%Y%m%d%H%M%S"
org-agenda-start-with-log-mode t
org-agenda-time-grid '((daily today required-time) nil "......"
"----------------")
org-agenda-span 'day
org-download-timestamp "%Y%m%d%H%M%S_"
org-download-abbreviate-filename-function 'expand-file-name
org-present-mode-hook '((lambda nil (olivetti-set-width 20)
(hide-mode-line-mode 1) (org-present-big)
(org-display-inline-images))
)
org-present-mode-quit-hook '((lambda nil (olivetti-set-width 79)
(hide-mode-line-mode 0) (org-present-small))
)
org-download-annotate-function 'dummy-org-download-annotate-function
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-agenda-sorting-strategy '((agenda scheduled-up time-up deadline-up)
(todo alpha-up) (tags alpha-up)
(search category-up tag-up))
org-startup-indented t
org-use-speed-commands t
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-complete-tags-always-offer-all-agenda-tags t
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-agenda-window-setup 'current-window
org-cycle-separator-lines 0
org-todo-keywords '((sequence "TODO(t)" "PROJECT(p)" "NEXT(n)" "WAITING(w)" "|"
"DONE" "CANCELLED")
)
org-id-link-to-org-use-id 'create-if-interactive
org-structure-template-alist '(("a" . "export ascii") ("c" . "center")
("C" . "comment") ("e" . "example")
("E" . "export") ("h" . "export html")
("l" . "export latex") ("q" . "quote")
("s" . "src") ("v" . "verse")
("sl" . "src emacs-lisp"))
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-enforce-todo-dependencies t
org-bullets-bullet-list '("►")
org-todo-repeat-hook '(org-reset-checkbox-state-subtree)
org-confirm-babel-evaluate nil
org-clock-persist t
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-link-shell-confirm-function nil
org-babel-pre-tangle-hook '(save-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-fontify-quote-and-verse-blocks t
org-agenda-start-on-weekday t
org-attach-id-dir "~/Emacs/Files"
org-attach-method 'mv
org-occur-hook '(org-first-headline-recenter)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("eww" :follow org-eww-open :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)
("doi" :follow org-link-doi-open :export
org-link-doi-export)
("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
("id" :follow org-id-open) ("file+sys") ("file+emacs")
("shell" :follow org-link--open-shell)
("news" :follow
#[514 "\301\300\302\x04Q\x02\"\207" ["news" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("mailto" :follow
#[514 "\301\300\302\x04Q\x02\"\207" ["mailto" browse-url ":"]
6 "\n\n(fn URL ARG)"]
)
("https" :follow
#[514 "\301\300\302\x04Q\x02\"\207" ["https" browse-url ":"]
6 "\n\n(fn URL ARG)"]
)
("http" :follow
#[514 "\301\300\302\x04Q\x02\"\207" ["http" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("ftp" :follow
#[514 "\301\300\302\x04Q\x02\"\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)
("elisp" :follow org-link--open-elisp))
org-metaup-hook '(org-babel-load-in-session-maybe)
org-agenda-remove-tags t
org-download-heading-lvl nil
org-startup-with-inline-images t
org-blank-before-new-entry '((heading) (plain-list-item))
org-download-link-format-function 'jqg/org-download-link-format-function-default
org-agenda-dim-blocked-tasks nil
org-link-frame-setup '((vm . vm-visit-folder-other-frame)
(vm-imap . vm-visit-imap-folder-other-frame)
(gnus . org-gnus-no-new-news) (file . find-file)
(wl . wl-other-frame) (dir . dired-other-window))
org-return-follows-link t
org-tags-column 0
org-id-method 'ts
org-clock-history-length 35
org-download-image-dir "~/Emacs/Files/"
org-attach-store-link-p 'file
org-footnote-section nil
)
[-- Attachment #2: Type: text/html, Size: 33781 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [BUG] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)]
2024-04-04 16:20 [BUG] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)] Joe Gilder
@ 2024-04-04 16:24 ` Joe Gilder
2024-04-05 18:19 ` Ihor Radchenko
1 sibling, 0 replies; 4+ messages in thread
From: Joe Gilder @ 2024-04-04 16:24 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 13911 bytes --]
Also I just downloaded Emacs version 29.3 and am still getting the same bug.
GNU Emacs 29.3 (build 1, aarch64-apple-darwin21.6.0, NS appkit-2113.60 Version 12.6.6 (Build 21G646)) of 2024-03-24
> On Apr 4, 2024, at 11:20 AM, Joe Gilder <joe@homestudiocorner.com> wrote:
>
>
> I made a quick video demonstrating:
>
> https://www.dropbox.com/scl/fi/jckftu7bi4753b1autt0a/org-bug.mp4?rlkey=nghlh36s84hzz8omo00lbsdlg&dl=0 <https://www.dropbox.com/scl/fi/jckftu7bi4753b1autt0a/org-bug.mp4?rlkey=nghlh36s84hzz8omo00lbsdlg&dl=0>
>
> Thanks!
>
> Joe Gilder
>
>
> Emacs : GNU Emacs 28.2 (build 1, aarch64-apple-darwin21.1.0, NS appkit-2113.00 Version 12.0.1 (Build 21A559))
> of 2023-02-22
> Package: Org mode version 9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)
>
> current state:
> ==============
> (setq
> org-agenda-prefix-format '((agenda . " %?-10t %s ") (timeline . " % s")
> (todo . " %s ") (tags . " %i ")
> (search . " %i %-12:c"))
> org-archive-location "~/Emacs/Archive.org <http://archive.org/>::"
> org-log-note-headings '((note . "%t"))
> org-link-elisp-confirm-function nil
> org-agenda-skip-deadline-prewarning-if-scheduled t
> org-hide-emphasis-markers t
> org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
> org-download-file-format-function 'org-download-file-format-default
> org-attach-id-to-path-function-list '(org-attach-id-ts-folder-format)
> org-agenda-custom-commands '(("i" "INBOX + AGENDA"
> ((todo "NEXT"
> ((org-agenda-overriding-header "Next"))
> (org-agenda-skip-function
> '(org-agenda-skip-entry-if 'date 'timestamp
> 'deadline 'scheduled)
> )
> )
> (agenda "")
> (tags-todo "inbox"
> ((org-agenda-overriding-header "Inbox")
> (org-agenda-skip-function
> '(org-agenda-skip-entry-if 'timestamp
> 'deadline 'scheduled 'todo
> '("PROJECT" "NEXT" "WAITING" "DONE"
> "CANCELLED")
> )
> )
> )
> )
> (todo "PROJECT"
> ((org-agenda-overriding-header "Projects")
> (org-agenda-block-separator 61))
> )
> (tags-todo "@pam"
> ((org-agenda-overriding-header "@Pam")
> (org-agenda-block-separator 61)
> (org-agenda-skip-function
> '(org-agenda-skip-entry-if 'deadline
> 'scheduled 'todo
> '("PROJECT" "NEXT" "WAITING" "DONE"
> "CANCELLED")
> )
> )
> )
> )
> (tags-todo "@work"
> ((org-agenda-overriding-header "@Work")
> (org-agenda-block-separator nil)
> (org-agenda-skip-function
> '(org-agenda-skip-entry-if 'deadline
> 'scheduled 'todo
> '("PROJECT" "NEXT" "WAITING" "DONE"
> "CANCELLED")
> )
> )
> )
> )
> (tags-todo "@home"
> ((org-agenda-overriding-header "@Home")
> (org-agenda-block-separator nil)
> (org-agenda-skip-function
> '(org-agenda-skip-entry-if 'deadline
> 'scheduled 'todo
> '("PROJECT" "NEXT" "WAITING" "DONE"
> "CANCELLED")
> )
> )
> )
> )
> (todo "WAITING"
> ((org-agenda-overriding-header
> "@Waiting/@Calendar")
> (org-agenda-block-separator nil))
> )
> )
> )
> )
> org-agenda-skip-scheduled-if-done t
> org-agenda-files '("~/Emacs/Todo.org <http://todo.org/>" "~/Emacs/Journal.org <http://journal.org/>" "~/Emacs/Notes.org <http://notes.org/>"
> "~/Emacs/.emacs.d/config.org <http://config.org/>" "~/Emacs/calendar-beorg.org <http://calendar-beorg.org/>")
> org-goto-interface 'outline-path-completion
> org-capture-templates '(("t" "Todo" entry
> (file+olp+datetree "~/Dropbox/Emacs/Todo.org <http://todo.org/>")
> "* TODO %^{Headline}\n%?" :clock-in nil :clock-resume
> nil)
> ("0" "Quick Capture - Todo" entry
> (file+olp+datetree "~/Dropbox/Emacs/Todo.org <http://todo.org/>")
> "* TODO %^{Headline}" :clock-in nil :clock-resume nil
> :immediate-finish 1)
> ("l" "Log (Clocks In)" entry
> (file+olp+datetree "~/Dropbox/Emacs/Todo.org <http://todo.org/>")
> "* %^{Headline}\n%?" :clock-in t :clock-resume t)
> ("p" "Project" entry
> (file+headline "~/Dropbox/Emacs/Todo.org <http://todo.org/>" "PROJECTS")
> "* PROJECT %^{Headline}\n%?" :clock-in nil
> :clock-resume nil)
> ("n" "Note (Clocks In)" entry
> (file+headline "~/Dropbox/Emacs/Notes.org <http://notes.org/>"
> "NOTES TO PROCESS")
> "* %^{Headline}\n%?" :clock-in t :clock-resume t)
> ("j" "Journal (Clocks In)" entry
> (file+olp+datetree "~/Dropbox/Emacs/Journal.org <http://journal.org/>")
> "* %^{Headline}\n%?" :clock-in t :clock-resume t)
> )
> org-refile-targets '((org-agenda-files :maxlevel . 9))
> org-export-before-parsing-hook '(org-attach-expand-links)
> org-download-method 'attach
> org-archive-hook '(org-attach-archive-delete-maybe)
> org-speed-commands '(("a" . org-attach-reveal-in-emacs)
> ("A" . org-archive-subtree-default-with-confirmation)
> ("&" . org-mark-ring-goto) ("o" . jqg/speed-link-o)
> ("z" . org-add-note) ("Outline Navigation")
> ("n" org-speed-move-safe 'org-next-visible-heading)
> ("p" org-speed-move-safe 'org-previous-visible-heading)
> ("f" org-speed-move-safe 'org-forward-heading-same-level)
> ("b" org-speed-move-safe 'org-backward-heading-same-level)
> ("F" . org-next-block) ("B" . org-previous-block)
> ("u" org-speed-move-safe 'outline-up-heading)
> ("j" . org-goto) ("g" org-refile '(4))
> ("Outline Visibility") ("c" . org-cycle)
> ("C" . org-shifttab) (" " . org-display-outline-path)
> ("s" . org-toggle-narrow-to-subtree)
> ("k" . org-cut-subtree) ("=" . org-columns)
> ("Outline Structure Editing") ("U" . org-metaup)
> ("D" . org-metadown) ("r" . org-metaright)
> ("l" . org-metaleft) ("R" . org-shiftmetaright)
> ("L" . org-shiftmetaleft)
> ("i" progn (forward-char 1)
> (call-interactively 'org-insert-heading-respect-content))
> ("^" . org-sort) ("w" . org-refile)
> ("a" . org-archive-subtree-default-with-confirmation)
> ("@" . org-mark-subtree) ("#" . org-toggle-comment)
> ("Clock Commands") ("I" . org-clock-in)
> ("O" . org-clock-out) ("Meta Data Editing")
> ("t" . org-todo) ("," org-priority) ("0" org-priority 32)
> ("1" org-priority 65) ("2" org-priority 66)
> ("3" org-priority 67) (":" . org-set-tags-command)
> ("e" . org-set-effort) ("E" . org-inc-effort)
> ("W" lambda (m) (interactive "sMinutes before warning: ")
> (org-entry-put (point) "APPT_WARNTIME" m))
> ("Agenda Views etc") ("v" . org-agenda)
> ("/" . org-sparse-tree) ("Misc") ("o" . org-open-at-point)
> ("?" . org-speed-command-help)
> ("<" org-agenda-set-restriction-lock 'subtree)
> (">" org-agenda-remove-restriction-lock))
> org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" . default)
> ("\\.x?html?\\'" . default) ("\\.pdf\\'" . default)
> ("\\.m4a\\'" . default) ("\\.m4v\\'" . default)
> ("\\.mp3\\'" . default) ("\\.wav\\'" . default)
> ("\\.jpg\\'" . default) ("\\.jpeg\\'" . default)
> ("\\.png\\'" . default) ("\\.tiff\\'" . default)
> ("\\.docx\\'" . default))
> org-columns-default-format "%50ITEM(Task) %10CLOCKSUM %16TIMESTAMP_IA"
> org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
> org-cycle-show-empty-lines
> org-optimize-window-after-visibility-change)
> org-catch-invisible-edits 'show-and-error
> org-image-actual-width 400
> org-attach-use-inheritance nil
> org-mode-hook '((lambda nil (org-bullets-mode 1)) org-clock-load
> #[0 "\300\301\302\303\304$\207"
> [add-hook change-major-mode-hook org-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)
> org-follow-link-hook '(recenter-top-bottom)
> org-babel-load-languages '((shell . t))
> org-agenda-skip-deadline-if-done t
> org-id-ts-format "%Y%m%d%H%M%S"
> org-agenda-start-with-log-mode t
> org-agenda-time-grid '((daily today required-time) nil "......"
> "----------------")
> org-agenda-span 'day
> org-download-timestamp "%Y%m%d%H%M%S_"
> org-download-abbreviate-filename-function 'expand-file-name
> org-present-mode-hook '((lambda nil (olivetti-set-width 20)
> (hide-mode-line-mode 1) (org-present-big)
> (org-display-inline-images))
> )
> org-present-mode-quit-hook '((lambda nil (olivetti-set-width 79)
> (hide-mode-line-mode 0) (org-present-small))
> )
> org-download-annotate-function 'dummy-org-download-annotate-function
> outline-isearch-open-invisible-function 'outline-isearch-open-invisible
> org-agenda-sorting-strategy '((agenda scheduled-up time-up deadline-up)
> (todo alpha-up) (tags alpha-up)
> (search category-up tag-up))
> org-startup-indented t
> org-use-speed-commands t
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-complete-tags-always-offer-all-agenda-tags t
> org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
> org-agenda-window-setup 'current-window
> org-cycle-separator-lines 0
> org-todo-keywords '((sequence "TODO(t)" "PROJECT(p)" "NEXT(n)" "WAITING(w)" "|"
> "DONE" "CANCELLED")
> )
> org-id-link-to-org-use-id 'create-if-interactive
> org-structure-template-alist '(("a" . "export ascii") ("c" . "center")
> ("C" . "comment") ("e" . "example")
> ("E" . "export") ("h" . "export html")
> ("l" . "export latex") ("q" . "quote")
> ("s" . "src") ("v" . "verse")
> ("sl" . "src emacs-lisp"))
> org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
> org-speed-command-hook '(org-speed-command-activate
> org-babel-speed-command-activate)
> org-enforce-todo-dependencies t
> org-bullets-bullet-list '("►")
> org-todo-repeat-hook '(org-reset-checkbox-state-subtree)
> org-confirm-babel-evaluate nil
> org-clock-persist t
> org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
> org-link-shell-confirm-function nil
> org-babel-pre-tangle-hook '(save-buffer)
> org-agenda-loop-over-headlines-in-active-region nil
> org-fontify-quote-and-verse-blocks t
> org-agenda-start-on-weekday t
> org-attach-id-dir "~/Emacs/Files"
> org-attach-method 'mv
> org-occur-hook '(org-first-headline-recenter)
> org-metadown-hook '(org-babel-pop-to-session-maybe)
> org-link-parameters '(("eww" :follow org-eww-open :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)
> ("doi" :follow org-link-doi-open :export
> org-link-doi-export)
> ("attachment" :follow org-attach-follow :complete
> org-attach-complete-link)
> ("id" :follow org-id-open) ("file+sys") ("file+emacs")
> ("shell" :follow org-link--open-shell)
> ("news" :follow
> #[514 "\301\300\302\x04Q\x02\"\207" ["news" browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("mailto" :follow
> #[514 "\301\300\302\x04Q\x02\"\207" ["mailto" browse-url ":"]
> 6 "\n\n(fn URL ARG)"]
> )
> ("https" :follow
> #[514 "\301\300\302\x04Q\x02\"\207" ["https" browse-url ":"]
> 6 "\n\n(fn URL ARG)"]
> )
> ("http" :follow
> #[514 "\301\300\302\x04Q\x02\"\207" ["http" browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("ftp" :follow
> #[514 "\301\300\302\x04Q\x02\"\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)
> ("elisp" :follow org-link--open-elisp))
> org-metaup-hook '(org-babel-load-in-session-maybe)
> org-agenda-remove-tags t
> org-download-heading-lvl nil
> org-startup-with-inline-images t
> org-blank-before-new-entry '((heading) (plain-list-item))
> org-download-link-format-function 'jqg/org-download-link-format-function-default
> org-agenda-dim-blocked-tasks nil
> org-link-frame-setup '((vm . vm-visit-folder-other-frame)
> (vm-imap . vm-visit-imap-folder-other-frame)
> (gnus . org-gnus-no-new-news) (file . find-file)
> (wl . wl-other-frame) (dir . dired-other-window))
> org-return-follows-link t
> org-tags-column 0
> org-id-method 'ts
> org-clock-history-length 35
> org-download-image-dir "~/Emacs/Files/"
> org-attach-store-link-p 'file
> org-footnote-section nil
> )
>
>
[-- Attachment #2: Type: text/html, Size: 34587 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [BUG] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)]
2024-04-04 16:20 [BUG] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)] Joe Gilder
2024-04-04 16:24 ` Joe Gilder
@ 2024-04-05 18:19 ` Ihor Radchenko
[not found] ` <BB8E5B88-1488-4442-B813-9EAC4CD5C928@homestudiocorner.com>
1 sibling, 1 reply; 4+ messages in thread
From: Ihor Radchenko @ 2024-04-05 18:19 UTC (permalink / raw)
To: Joe Gilder; +Cc: emacs-orgmode
Joe Gilder <joe@homestudiocorner.com> writes:
> I made a quick video demonstrating:
>
> https://www.dropbox.com/scl/fi/jckftu7bi4753b1autt0a/org-bug.mp4?rlkey=nghlh36s84hzz8omo00lbsdlg&dl=0
Thanks for reporting!
I tried
1. emacs -Q
2. M-: (setq org-use-speed-commands t)
3. Open file
* Heading 1
** Subheading
* Heading 2
- list
- list
* Heading 3
* Heading 4
4. Move cursor with "n" down to Heading 2
5. C-<SPC>
6. n n
7. I do not see any problem.
What happens if you repeat my recipe?
P.S.
We prefer text description and to avoid external links when at all
possible.
Not all the readers of the mailing list can see non-text data (we have
blind users). And external links tend to become dead over time, leading
to lost context when one needs to consult the mail archives years later.
--
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] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)]
[not found] ` <BB8E5B88-1488-4442-B813-9EAC4CD5C928@homestudiocorner.com>
@ 2024-04-15 11:20 ` Ihor Radchenko
0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2024-04-15 11:20 UTC (permalink / raw)
To: Joe Gilder; +Cc: emacs-orgmode
Joe Gilder <joe@homestudiocorner.com> writes:
> I discovered the problem. I believe it has to do with (delete-selection-mode)
>
> When that mode is enabled, I get this behavior. When it is disabled, things work as expected.
>
> Since I’m not technically typing anything when using speed commands, it shouldn’t delete headings even with delete-selection-mode enabled. So maybe it’s still a bug?
Yes, it is.
Fixed, on bugfix. For the next bugfix release.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=4ae5cc018
--
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:[~2024-04-15 11:21 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2024-04-04 16:20 [BUG] org-speed-commands deleting headings when using mark-set [9.5.5 (release_9.5.5 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)] Joe Gilder
2024-04-04 16:24 ` Joe Gilder
2024-04-05 18:19 ` Ihor Radchenko
[not found] ` <BB8E5B88-1488-4442-B813-9EAC4CD5C928@homestudiocorner.com>
2024-04-15 11:20 ` Ihor Radchenko
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).