From 45cd68b0cd8a5f7a265a6ad40ef9e7982081fcbb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 12 Apr 1991 23:17:56 +0000 Subject: [PATCH] Fix name mismatches on two key bindings for C mode. Add flashing of matching delimiter for close paren and close curly brace. --- v7/src/edwin/c-mode.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/c-mode.scm b/v7/src/edwin/c-mode.scm index 1dad6955e..941a8c86a 100644 --- a/v7/src/edwin/c-mode.scm +++ b/v7/src/edwin/c-mode.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/c-mode.scm,v 1.45 1991/03/15 23:37:29 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/c-mode.scm,v 1.46 1991/04/12 23:17:56 cph Exp $ ;;; ;;; Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology ;;; @@ -99,12 +99,13 @@ Variables controlling indentation style: (make-event-distributor)) (define-key 'c #\linefeed 'reindent-then-newline-and-indent) +(define-key 'c #\) 'lisp-insert-paren) (define-key 'c #\{ 'electric-c-brace) (define-key 'c #\} 'electric-c-brace) (define-key 'c #\; 'electric-c-semi) (define-key 'c #\: 'electric-c-terminator) -(define-key 'c #\c-m-h 'mark-c-function) -(define-key 'c #\c-m-q 'indent-c-function) +(define-key 'c #\c-m-h 'mark-c-procedure) +(define-key 'c #\c-m-q 'c-indent-expression) (define-key 'c #\rubout 'backward-delete-char-untabify) (define-key 'c #\tab 'c-indent-line) @@ -155,7 +156,9 @@ and after colons and semicolons, inserted in C code." (begin (insert-newline) ((ref-command c-indent-line) false)))) - ((ref-command self-insert-command) false))))) + ((ref-command self-insert-command) false)) + (if (eqv? #\} (current-command-char)) + (mark-flash (backward-one-sexp (current-point)) 'RIGHT))))) (define-command electric-c-semi "Insert character and correct line's indentation." -- 2.25.1