Hungry delete in any mode

Hungry delete in any mode

[Nordlöw]

Hi!

I trying to create a general hungry-mode that can be used in alla
programming modes. Everything works except that I the following code
only rebinds <backspace> but not <delete> (nor C-d). What have I
missed? Has perhaps someone already solved the problem?

(define-minor-mode any-hungry-mode
  "Toggle Hungry mode.
     With no argument, this command toggles the mode.
     Non-null prefix argument turns on the mode.
     Null prefix argument turns off the mode.

     When Hungry mode is enabled, the control delete key
     gobbles all preceding whitespace except the last.
     See the command \\[hungry-electric-delete]."
  ;; The initial value.
  nil
  ;; The indicator for the mode line.
  " Hungry"
  ;; The minor mode bindings.
  '(([backspace]. c-hungry-delete-backwards) ;backspace
    ("\d" . 'c-hungry-delete-forward)        ;???
    ))

Thanks in advance,
Nordlöw

Re: Hungry delete in any mode

[Kevin Rodgers]

Nordlöw wrote:
> I trying to create a general hungry-mode that can be used in alla
> programming modes. Everything works except that I the following code
> only rebinds <backspace> but not <delete> (nor C-d). What have I
> missed? Has perhaps someone already solved the problem?
> 
> (define-minor-mode any-hungry-mode
>   "Toggle Hungry mode.
>      With no argument, this command toggles the mode.
>      Non-null prefix argument turns on the mode.
>      Null prefix argument turns off the mode.
> 
>      When Hungry mode is enabled, the control delete key
>      gobbles all preceding whitespace except the last.
>      See the command \\[hungry-electric-delete]."
>   ;; The initial value.
>   nil
>   ;; The indicator for the mode line.
>   " Hungry"
>   ;; The minor mode bindings.
>   '(([backspace]. c-hungry-delete-backwards) ;backspace
>     ("\d" . 'c-hungry-delete-forward)        ;???
>     ))

You have bound the backspace function key and the DEL ASCII character
(by default, backspace is automatically translated to DEL).

Try also binding [delete] and "\C-d" (likewise, the ASCII character
to which delete is translated).

I wonder if an alternative implementaton would work: instead of binding
any keys at all, make backward-delete-char-untabify-method buffer local
and toggle its value between `hungry' and the global value.

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Hungry delete in any mode

[Nordlöw]

On 22 Jan, 03:36, Kevin Rodgers <kevin.d.rodg...@gmail.com> wrote:
> Nordlöw wrote:
> > I trying to create a general hungry-mode that can be used in alla
> > programming modes. Everything works except that I the following code
> > only rebinds <backspace> but not <delete> (nor C-d). What have I
> > missed? Has perhaps someone already solved the problem?
>
> > (define-minor-mode any-hungry-mode
> >   "Toggle Hungry mode.
> >      With no argument, this command toggles the mode.
> >      Non-null prefix argument turns on the mode.
> >      Null prefix argument turns off the mode.
>
> >      When Hungry mode is enabled, the control delete key
> >      gobbles all preceding whitespace except the last.
> >      See the command \\[hungry-electric-delete]."
> >   ;; The initial value.
> >   nil
> >   ;; The indicator for the mode line.
> >   " Hungry"
> >   ;; The minor mode bindings.
> >   '(([backspace]. c-hungry-delete-backwards) ;backspace
> >     ("\d" . 'c-hungry-delete-forward)        ;???
> >     ))
>
> You have bound the backspace function key and the DEL ASCII character
> (by default, backspace is automatically translated to DEL).
>
> Try also binding [delete] and "\C-d" (likewise, the ASCII character
> to which delete is translated).
>
> I wonder if an alternative implementaton would work: instead of binding
> any keys at all, make backward-delete-char-untabify-method buffer local
> and toggle its value between `hungry' and the global value.
>
> --
> Kevin Rodgers
> Denver, Colorado, USA

Neither [delete] nor "\C-d" works for me.

/Nordlöw

Re: Hungry delete in any mode

[Nordlöw]

I needed to restart Emacs in order for the changes to have effect.

This following code does it:

(define-minor-mode any-hungry-mode
  "Toggle Hungry mode.
     With no argument, this command toggles the mode.
     Non-null prefix argument turns on the mode.
     Null prefix argument turns off the mode.

     When Hungry mode is enabled, the control delete key
     gobbles all preceding whitespace except the last.
     See the command \\[hungry-electric-delete]."
  ;; The initial value.
  nil
  ;; The indicator for the mode line.
  " Hungry"
  ;; The minor mode bindings.
  '(([backspace]. c-hungry-delete-backwards) ;backspace
    ([delete] . c-hungry-delete-forward)        ;delete
    ))

Thanks,
Nordlöw

Re: Hungry delete in any mode

[Stefan Monnier]

>   '(([backspace]. c-hungry-delete-backwards) ;backspace
>     ([delete] . c-hungry-delete-forward)        ;delete

You may want to try

   '(("\d". c-hungry-delete-backwards)         ;backspace
     ("\C-d" . c-hungry-delete-forward)        ;delete

instead.  This should work under X11 as well as under a tty.


        Stefan