emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [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).