+ (define-key electric-history-map [home] 'beginning-of-buffer)
+ (define-key electric-history-map [down] 'next-line)
+ (define-key electric-history-map [up] 'previous-line)
+ (define-key electric-history-map [prior] 'scroll-down)
+ (define-key electric-history-map [next] 'scroll-up)