Mercurial > hg > xemacs-beta
comparison lisp/electric/echistory.el @ 98:0d2f883870bc r20-1b1
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 |
---|---|
65 (define-key electric-history-map "q" 'Electric-history-quit) | 65 (define-key electric-history-map "q" 'Electric-history-quit) |
66 (define-key electric-history-map "\C-c" nil) | 66 (define-key electric-history-map "\C-c" nil) |
67 (define-key electric-history-map "\C-c\C-c" 'Electric-history-quit) | 67 (define-key electric-history-map "\C-c\C-c" 'Electric-history-quit) |
68 (define-key electric-history-map "\C-]" 'Electric-history-quit) | 68 (define-key electric-history-map "\C-]" 'Electric-history-quit) |
69 (define-key electric-history-map "\C-z" 'suspend-emacs) | 69 (define-key electric-history-map "\C-z" 'suspend-emacs) |
70 (define-key electric-history-map (char-to-string help-char) 'Helper-help) | 70 (define-key electric-history-map (vector help-char) 'Helper-help) |
71 ;; XEmacs | 71 ;; XEmacs |
72 (define-key electric-history-map 'backspace 'previous-line) | 72 (define-key electric-history-map 'backspace 'previous-line) |
73 (define-key electric-history-map "?" 'Helper-describe-bindings) | 73 (define-key electric-history-map "?" 'Helper-describe-bindings) |
74 (define-key electric-history-map "\e>" 'end-of-buffer) | 74 (define-key electric-history-map "\e>" 'end-of-buffer) |
75 (define-key electric-history-map "\e<" 'beginning-of-buffer) | 75 (define-key electric-history-map "\e<" 'beginning-of-buffer) |