Mercurial > hg > xemacs-beta

comparison lisp/electric/ehelp.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents b9518feda344
children
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
63 (define-key map [(control ?5)] 'electric-help-undefined) 63 (define-key map [(control ?5)] 'electric-help-undefined)
64 (define-key map [(control ?6)] 'electric-help-undefined) 64 (define-key map [(control ?6)] 'electric-help-undefined)
65 (define-key map [(control ?7)] 'electric-help-undefined) 65 (define-key map [(control ?7)] 'electric-help-undefined)
66 (define-key map [(control ?8)] 'electric-help-undefined) 66 (define-key map [(control ?8)] 'electric-help-undefined)
67 (define-key map [(control ?9)] 'electric-help-undefined) 67 (define-key map [(control ?9)] 'electric-help-undefined)
68 (define-key map (char-to-string help-char) 'electric-help-help) 68 (define-key map (vector help-char) 'electric-help-help)
69 (define-key map "?" 'electric-help-help) 69 (define-key map "?" 'electric-help-help)
70 ;; XEmacs addition 70 ;; XEmacs addition
71 (define-key map 'help 'electric-help-help) 71 (define-key map 'help 'electric-help-help)
72 (define-key map " " 'scroll-up) 72 (define-key map " " 'scroll-up)
73 (define-key map "\^?" 'scroll-down) 73 (define-key map "\^?" 'scroll-down)