[bug] deleting backward char does not do undo-boundary

[bug] deleting backward char does not do undo-boundary

[Samuel Wales]

you know that thing in emacs where up to 20 self-insert-command
invocations are undone all at once?  i dislike it and have fixed it
for everything except one command in org.

in org, backspace [org delete backward char] clusters for undo
["amalgamates" in emacs lingo] even when
org-self-insert-cluster-for-undo is nil.  this is not true of delete,
which works ok.

here is my code to try to fix it [note that i fix teh rest of emacs 25
also].  but that one command does not accept the undo-boundary that i
call.  i do not udnerstand why this is the case.

  (defun alpha-wrap-with-undo-boundary (old)
    (interactive)
    ;; (defun (make-symbol (concat "alpha-") old) ()
    ;;   (interactive)
    (call-interactively old)
    (undo-boundary))
  (define-key global-map [remap delete-char] #'alpha-delete-char)
  (define-key global-map [remap delete-forward-char]
#'alpha-delete-forward-char)
  (define-key global-map [remap delete-backward-char]
#'alpha-delete-backward-char)
  (define-key global-map [remap backward-delete-char-untabify]
    #'alpha-backward-delete-char-untabify)
  (defun alpha-delete-char () (interactive)
(alpha-wrap-with-undo-boundary 'delete-char))
  (defun alpha-backward-delete-char-untabify ()
    (interactive)
    (alpha-wrap-with-undo-boundary 'backward-delete-char-untabify))
  (defun alpha-delete-forward-char ()
    (interactive)
    (alpha-wrap-with-undo-boundary 'delete-forward-char))
  (defun alpha-delete-backward-char ()
    (interactive)
    (alpha-wrap-with-undo-boundary 'delete-backward-char))
  ;; ;; not work.   it is an alias.  trying org versions.
  ;; (define-key global-map [remap backward-delete-char]
#'alpha-backward-delete-char)
  ;; (defun alpha-backward-delete-char ()
  ;;   (interactive)
  ;;   (alpha-wrap-with-undo-boundary 'backward-delete-char))
  (define-key org-mode-map [remap org-delete-backward-char]
#'alpha-org-delete-backward-char)
  (define-key org-mode-map [remap org-delete-char] #'alpha-org-delete-char)
  (defun alpha-org-delete-char () (interactive)
(alpha-wrap-with-undo-boundary 'org-delete-char))
  (defun alpha-org-delete-backward-char () (interactive)
(alpha-wrap-with-undo-boundary 'org-delete-backward-char))

-- 
The Kafka Pandemic

Please learn what misopathy is.
https://thekafkapandemic.blogspot.com/2013/10/why-some-diseases-are-wronged.html

Re: [bug] deleting backward char does not do undo-boundary

[Kyle Meyer]

Samuel Wales writes:

> here is my code to try to fix it [note that i fix teh rest of emacs 25
> also].  but that one command does not accept the undo-boundary that i
> call.  i do not udnerstand why this is the case.

Without looking at this too closely, I'd guess it's because ...

>   (define-key org-mode-map [remap org-delete-backward-char]
> #'alpha-org-delete-backward-char)
>   (define-key org-mode-map [remap org-delete-char] #'alpha-org-delete-char)
>   (defun alpha-org-delete-char () (interactive)
> (alpha-wrap-with-undo-boundary 'org-delete-char))
>   (defun alpha-org-delete-backward-char () (interactive)
> (alpha-wrap-with-undo-boundary 'org-delete-backward-char))

... you're trying to remap a command that is itself remapping a command.

  (info "(elisp)remapping commands")

    In addition, remapping only works through a single level; in the
    following example,
    
         (define-key my-mode-map [remap kill-line] 'my-kill-line)
         (define-key my-mode-map [remap my-kill-line] 'my-other-kill-line)
    
    ‘kill-line’ is _not_ remapped to ‘my-other-kill-line’.  Instead, if
    an ordinary key binding specifies ‘kill-line’, it is remapped to
    ‘my-kill-line’; if an ordinary binding specifies ‘my-kill-line’, it
    is remapped to ‘my-other-kill-line’.

Perhaps just bind it directly?

    (define-key org-mode-map (kbd "DEL") #'alpha-org-delete-backward-char)

Re: [bug] deleting backward char does not do undo-boundary

[Samuel Wales]

ah, so org did the remap and i tried to remap the remap?

my brain is not working right now, but i think you might be right.  in
either case, your solution works and is straightforward.

thank you.


On 8/21/20, Kyle Meyer <kyle@kyleam.com> wrote:
> Samuel Wales writes:
>
>> here is my code to try to fix it [note that i fix teh rest of emacs 25
>> also].  but that one command does not accept the undo-boundary that i
>> call.  i do not udnerstand why this is the case.
>
> Without looking at this too closely, I'd guess it's because ...
>
>>   (define-key org-mode-map [remap org-delete-backward-char]
>> #'alpha-org-delete-backward-char)
>>   (define-key org-mode-map [remap org-delete-char]
>> #'alpha-org-delete-char)
>>   (defun alpha-org-delete-char () (interactive)
>> (alpha-wrap-with-undo-boundary 'org-delete-char))
>>   (defun alpha-org-delete-backward-char () (interactive)
>> (alpha-wrap-with-undo-boundary 'org-delete-backward-char))
>
> ... you're trying to remap a command that is itself remapping a command.
>
>   (info "(elisp)remapping commands")
>
>     In addition, remapping only works through a single level; in the
>     following example,
>
>          (define-key my-mode-map [remap kill-line] 'my-kill-line)
>          (define-key my-mode-map [remap my-kill-line] 'my-other-kill-line)
>
>     ‘kill-line’ is _not_ remapped to ‘my-other-kill-line’.  Instead, if
>     an ordinary key binding specifies ‘kill-line’, it is remapped to
>     ‘my-kill-line’; if an ordinary binding specifies ‘my-kill-line’, it
>     is remapped to ‘my-other-kill-line’.
>
> Perhaps just bind it directly?
>
>     (define-key org-mode-map (kbd "DEL") #'alpha-org-delete-backward-char)
>


-- 
The Kafka Pandemic

Please learn what misopathy is.
https://thekafkapandemic.blogspot.com/2013/10/why-some-diseases-are-wronged.html

Re: [bug] deleting backward char does not do undo-boundary

[Kyle Meyer]

Samuel Wales writes:

> ah, so org did the remap and i tried to remap the remap?

Yes, with the standard value for org-mode-map, here's what
describe-variable (C-h v) says:

    (remap keymap
      ...
      (delete-backward-char . org-delete-backward-char)