Re: Longlines mode in menu

["Lennart Borgman (gmail)" <lennart.borgman@gmail.com>]

Stefan Monnier wrote:
>>>> Thanks. What key bindings do you suggest? Maybe this could be
>>>> a minor mode?
> 
> It should be either a global minor mode which adds `remap' bindings to
> the global map, or a buffer-local minor mode which adds the same remap
> bindings but via a minor-mode map.


Maybe something like this? I think it is essential to be able to use the 
original move and kill commands too.

   (defalias 'original-next-line 'next-line "test")
   (defalias 'original-previous-line 'previous-line "test")
   (defalias 'original-kill-line 'kill-line "test")

   (defvar visual-line-map
     (let ((map (make-sparse-keymap)))
       (define-key map [remap next-line] 'visual-line-down)
       (define-key map [remap previous-line] 'visual-line-up)
       (define-key map [(control down)] 'original-next-line)
       (define-key map [(control up)] 'original-previous-line)
       (define-key map [remap kill-line] 'kill-visual-line)
       (define-key map [(control shift ?k)] 'original-kill-line)
       (define-key map [remap kill-whole-line] 'kill-whole-visual-line)
       map))

   (define-minor-mode visual-line-mode
     "Define key binding for visual line moves etc."
     :lighter " vl"
     :global t
     :keymap visual-line-map
     :group 'convenience)