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)