From: Joe Gilder <joe@homestudiocorner.com>
To: emacs-orgmode@gnu.org
Subject: 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/)]
Date: Thu, 4 Apr 2024 11:24:37 -0500 [thread overview]
Message-ID: <54D08F6F-31D9-4373-8F1C-D44B643771C6@homestudiocorner.com> (raw)
In-Reply-To: <E60A7DC3-4D37-4404-B7F6-636758BC1BB2@homestudiocorner.com>
[-- 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 --]
next prev parent reply other threads:[~2024-04-05 12:29 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
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 [this message]
2024-04-05 18:19 ` Ihor Radchenko
[not found] ` <BB8E5B88-1488-4442-B813-9EAC4CD5C928@homestudiocorner.com>
2024-04-15 11:20 ` Ihor Radchenko
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=54D08F6F-31D9-4373-8F1C-D44B643771C6@homestudiocorner.com \
--to=joe@homestudiocorner.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).