- (define-key calc-dumb-map "\n" 'scroll-up)
- (define-key calc-dumb-map " " 'scroll-up)
- (define-key calc-dumb-map "\177" 'scroll-down)
+ (define-key calc-dumb-map "\n" 'scroll-up-command)
+ (define-key calc-dumb-map " " 'scroll-up-command)
+ (define-key calc-dumb-map [?\S-\ ] 'scroll-down-command)
+ (define-key calc-dumb-map "\177" 'scroll-down-command)