Re: Longlines mode in menu

[David Reitter]

On 18 Jun 2008, at 21:50, Lennart Borgman (gmail) wrote:
>  Could you show me exactly how and what you bind. I want to test and  
> I had some trouble with bindings like this
>
>    (define-key map [down] 'osxkeys-visual-line-down-in-buffers)


I'm binding this:

    (define-key map '[(up)] 'visual-line-up)
    (define-key map '[(down)] 'visual-line-down)

I'm actually binding this in my mode's "low priority keymap" so that  
other minor modes can override.
I use the code below.

That said, it should work from the normal minor mode keymap as well.

- D


(defun aquamacs-install-low-priority-global-key-map (keymap &optional  
target)
  "Install keys from keymap keymap into the target (or global) map."
  (let ((target (or target (current-global-map)))
        (overwritten (make-sparse-keymap)))
    (map-keymap
   (lambda (key command)
     (let ((old (lookup-key  target `[,key])))
       (if (keymapp command)  ; key is a prefix key
           (if (keymapp old)
               ;; recurse
               (setq old (aquamacs-install-low-priority-global-key-map
                          command old)))
         (define-key target `[,key] command))
         ;; also save "nil" entries for unassigned keys
       (define-key overwritten `[,key] old)))
   keymap)
    overwritten))

smime.p7s
Description: S/MIME cryptographic signature