comparison lisp/bindings.el @ 52815:0ddba5352cdf

Don't bind stop.
author Dave Love <fx@gnu.org>
date Fri, 10 Oct 2003 18:09:38 +0000
parents cbc9675be6b0
children 160b4f3af303
comparison
equal deleted inserted replaced
52814:df5527dde8fb 52815:0ddba5352cdf
778 (define-key global-map [S-insert] 'yank) 778 (define-key global-map [S-insert] 'yank)
779 (define-key global-map [undo] 'undo) 779 (define-key global-map [undo] 'undo)
780 (define-key global-map [redo] 'repeat-complex-command) 780 (define-key global-map [redo] 'repeat-complex-command)
781 (define-key global-map [again] 'repeat-complex-command) ; Sun keyboard 781 (define-key global-map [again] 'repeat-complex-command) ; Sun keyboard
782 (define-key global-map [open] 'find-file) ; Sun 782 (define-key global-map [open] 'find-file) ; Sun
783 (define-key global-map [stop] 'keyboard-quit) ; Sun 783 ;; The following wouldn't work to interrupt running code since C-g is
784 ;; treated specially in the event loop.
785 ;; (define-key global-map [stop] 'keyboard-quit) ; Sun
784 ;; (define-key global-map [clearline] 'function-key-error) 786 ;; (define-key global-map [clearline] 'function-key-error)
785 (define-key global-map [insertline] 'open-line) 787 (define-key global-map [insertline] 'open-line)
786 (define-key global-map [deleteline] 'kill-line) 788 (define-key global-map [deleteline] 'kill-line)
787 ;; (define-key global-map [insertchar] 'function-key-error) 789 ;; (define-key global-map [insertchar] 'function-key-error)
788 (define-key global-map [deletechar] 'delete-char) 790 (define-key global-map [deletechar] 'delete-char)