comparison lisp/progmodes/f90.el @ 98150:43afebdca874

(f90-mode-map): Don't bind \t and \r.
author Glenn Morris <rgm@gnu.org>
date Fri, 12 Sep 2008 03:09:19 +0000
parents c3309dba6542
children a4bd76aee560
comparison
equal deleted inserted replaced
98149:af43cbb045c7 98150:43afebdca874
651 (define-key map "\C-\M-h" 'f90-mark-subprogram) 651 (define-key map "\C-\M-h" 'f90-mark-subprogram)
652 (define-key map "\C-\M-n" 'f90-end-of-block) 652 (define-key map "\C-\M-n" 'f90-end-of-block)
653 (define-key map "\C-\M-p" 'f90-beginning-of-block) 653 (define-key map "\C-\M-p" 'f90-beginning-of-block)
654 (define-key map "\C-\M-q" 'f90-indent-subprogram) 654 (define-key map "\C-\M-q" 'f90-indent-subprogram)
655 (define-key map "\C-j" 'f90-indent-new-line) ; LFD equals C-j 655 (define-key map "\C-j" 'f90-indent-new-line) ; LFD equals C-j
656 (define-key map "\r" 'newline) 656 ;;; (define-key map "\r" 'newline)
657 (define-key map "\C-c\r" 'f90-break-line) 657 (define-key map "\C-c\r" 'f90-break-line)
658 ;;; (define-key map [M-return] 'f90-break-line) 658 ;;; (define-key map [M-return] 'f90-break-line)
659 (define-key map "\C-c\C-a" 'f90-previous-block) 659 (define-key map "\C-c\C-a" 'f90-previous-block)
660 (define-key map "\C-c\C-e" 'f90-next-block) 660 (define-key map "\C-c\C-e" 'f90-next-block)
661 (define-key map "\C-c\C-d" 'f90-join-lines) 661 (define-key map "\C-c\C-d" 'f90-join-lines)
662 (define-key map "\C-c\C-f" 'f90-fill-region) 662 (define-key map "\C-c\C-f" 'f90-fill-region)
663 (define-key map "\C-c\C-p" 'f90-previous-statement) 663 (define-key map "\C-c\C-p" 'f90-previous-statement)
664 (define-key map "\C-c\C-n" 'f90-next-statement) 664 (define-key map "\C-c\C-n" 'f90-next-statement)
665 (define-key map "\C-c\C-w" 'f90-insert-end) 665 (define-key map "\C-c\C-w" 'f90-insert-end)
666 (define-key map "\t" 'f90-indent-line) 666 ;; Standard tab binding will call this, and also handle regions.
667 ;;; (define-key map "\t" 'f90-indent-line)
667 (define-key map "," 'f90-electric-insert) 668 (define-key map "," 'f90-electric-insert)
668 (define-key map "+" 'f90-electric-insert) 669 (define-key map "+" 'f90-electric-insert)
669 (define-key map "-" 'f90-electric-insert) 670 (define-key map "-" 'f90-electric-insert)
670 (define-key map "*" 'f90-electric-insert) 671 (define-key map "*" 'f90-electric-insert)
671 (define-key map "/" 'f90-electric-insert) 672 (define-key map "/" 'f90-electric-insert)