Re: Longlines mode in menu

[David Reitter <david.reitter@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1237 bytes --]

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))


[-- Attachment #2: smime.p7s --]
[-- Type: application/pkcs7-signature, Size: 2193 bytes --]