comparison lisp/emulation/viper-keym.el @ 20206:f44ff2c52fac

new version
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 01 Nov 1997 01:46:51 +0000
parents f20c96ca3bc8
children f7e788ea680b
comparison
equal deleted inserted replaced
20205:cdaddfc03fe8 20206:f44ff2c52fac
387 (define-key viper-vi-basic-map "|" 'viper-goto-col) 387 (define-key viper-vi-basic-map "|" 'viper-goto-col)
388 (define-key viper-vi-basic-map "}" 'viper-forward-paragraph) 388 (define-key viper-vi-basic-map "}" 'viper-forward-paragraph)
389 (define-key viper-vi-basic-map "~" 'viper-toggle-case) 389 (define-key viper-vi-basic-map "~" 'viper-toggle-case)
390 (define-key viper-vi-basic-map "\C-?" 'viper-backward-char) 390 (define-key viper-vi-basic-map "\C-?" 'viper-backward-char)
391 (define-key viper-vi-basic-map "_" 'viper-nil) 391 (define-key viper-vi-basic-map "_" 'viper-nil)
392
393 ;;; Escape from Emacs to Vi for one command
394 (global-set-key "\C-c\\" 'viper-escape-to-vi) ; everywhere
395 392
396 ;;; This is viper-vi-diehard-map. Used when viper-vi-diehard-minor-mode is on. 393 ;;; This is viper-vi-diehard-map. Used when viper-vi-diehard-minor-mode is on.
397 394
398 (define-key viper-vi-diehard-map "\C-a" 'viper-nil) 395 (define-key viper-vi-diehard-map "\C-a" 'viper-nil)
399 (define-key viper-vi-diehard-map "\C-c" 'viper-nil) 396 (define-key viper-vi-diehard-map "\C-c" 'viper-nil)