-(define-key canna-minibuffer-mode-map [up] [?\C-p])
-(define-key canna-minibuffer-mode-map [S-up] [?\C-p])
-(define-key canna-minibuffer-mode-map [C-up] [?\C-p])
-(define-key canna-minibuffer-mode-map [down] [?\C-n])
-(define-key canna-minibuffer-mode-map [S-down] [?\C-n])
-(define-key canna-minibuffer-mode-map [C-down] [?\C-n])
-(define-key canna-minibuffer-mode-map [right] [?\C-f])
-(define-key canna-minibuffer-mode-map [S-right] [?\C-f])
-(define-key canna-minibuffer-mode-map [C-right] [?\C-f])
-(define-key canna-minibuffer-mode-map [left] [?\C-b])
-(define-key canna-minibuffer-mode-map [S-left] [?\C-b])
-(define-key canna-minibuffer-mode-map [C-left] [?\C-b])
-(define-key canna-minibuffer-mode-map [kanji] [? ])
-(define-key canna-minibuffer-mode-map [?\C- ] [?\C-@])
+(cond (running-xemacs
+ (define-key canna-minibuffer-mode-map [up] "\C-p")
+ (define-key canna-minibuffer-mode-map [(shift up)] "\C-p")
+ (define-key canna-minibuffer-mode-map [(control up)] "\C-p")
+ (define-key canna-minibuffer-mode-map [down] "\C-n")
+ (define-key canna-minibuffer-mode-map [(shift down)] "\C-n")
+ (define-key canna-minibuffer-mode-map [(control down)] "\C-n")
+ (define-key canna-minibuffer-mode-map [right] "\C-f")
+ (define-key canna-minibuffer-mode-map [(shift right)] "\C-f")
+ (define-key canna-minibuffer-mode-map [(control right)] "\C-f")
+ (define-key canna-minibuffer-mode-map [left] "\C-b")
+ (define-key canna-minibuffer-mode-map [(shift left)] "\C-b")
+ (define-key canna-minibuffer-mode-map [(control left)] "\C-b")
+ (define-key canna-minibuffer-mode-map [kanji] " ")
+ (define-key canna-minibuffer-mode-map [(control space)] [(control @)])
+ )
+ (t
+ (define-key canna-minibuffer-mode-map [up] [?\C-p])
+ (define-key canna-minibuffer-mode-map [S-up] [?\C-p])
+ (define-key canna-minibuffer-mode-map [C-up] [?\C-p])
+ (define-key canna-minibuffer-mode-map [down] [?\C-n])
+ (define-key canna-minibuffer-mode-map [S-down] [?\C-n])
+ (define-key canna-minibuffer-mode-map [C-down] [?\C-n])
+ (define-key canna-minibuffer-mode-map [right] [?\C-f])
+ (define-key canna-minibuffer-mode-map [S-right] [?\C-f])
+ (define-key canna-minibuffer-mode-map [C-right] [?\C-f])
+ (define-key canna-minibuffer-mode-map [left] [?\C-b])
+ (define-key canna-minibuffer-mode-map [S-left] [?\C-b])
+ (define-key canna-minibuffer-mode-map [C-left] [?\C-b])
+ (define-key canna-minibuffer-mode-map [kanji] [? ])
+ (define-key canna-minibuffer-mode-map [?\C- ] [?\C-@])
+ ))