Mercurial > hg > xemacs-beta

comparison lisp/prim/keydefs.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 54cc21c15cbb
children cf808b4c4290
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
140 ;; XEmacs addition: 140 ;; XEmacs addition:
141 (define-key global-map "\C-x5m" 'mail-other-frame) 141 (define-key global-map "\C-x5m" 'mail-other-frame)
142 142
143 ;; FSFmacs help.el 143 ;; FSFmacs help.el
144 144
145 (let ((ch help-char)) 145 (define-key global-map (vector help-char) 'help-command)
146 (if (or (characterp ch) (integerp ch))
147 (setq ch (char-to-string ch)))
148 (define-key global-map ch 'help-command))
149 (define-key global-map 'help 'help-command) 146 (define-key global-map 'help 'help-command)
150 (define-key global-map 'f1 'help-command) 147 (define-key global-map 'f1 'help-command)
151 148
152 ;; FSFmacs indent.el 149 ;; FSFmacs indent.el
153 150