Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-keym.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 1ce6082ce73f
children 4be1180a9e89
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1 ;;; viper-keym.el --- Viper keymaps 1 ;;; viper-keym.el --- Viper keymaps
2 2
3 ;; Copyright (C) 1994, 1995, 1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994, 1995, 1996, 1997 Free Software Foundation, Inc.
4 4
5 ;; This file is part of GNU Emacs. 5 ;; This file is part of GNU Emacs.
6 6
7 ;; GNU Emacs is free software; you can redistribute it and/or modify 7 ;; GNU Emacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by 8 ;; it under the terms of the GNU General Public License as published by
30 (defvar vip-expert-level) 30 (defvar vip-expert-level)
31 (defvar vip-ex-style-editing-in-insert) 31 (defvar vip-ex-style-editing-in-insert)
32 (defvar vip-ex-style-motion) 32 (defvar vip-ex-style-motion)
33 33
34 (eval-when-compile 34 (eval-when-compile
35 (let ((load-path (cons "." load-path))) 35 (let ((load-path (cons (expand-file-name ".") load-path)))
36 (or (featurep 'viper-util) 36 (or (featurep 'viper-util)
37 (load "viper-util.el" nil nil 'nosuffix)) 37 (load "viper-util.el" nil nil 'nosuffix))
38 )) 38 ))
39 ;; end pacifier 39 ;; end pacifier
40 40
41 (require 'viper-util) 41 (require 'viper-util)
42
42 43
43 ;;; Variables 44 ;;; Variables
44 45
45 (defvar vip-toggle-key "\C-z" 46 (defvar vip-toggle-key "\C-z"
46 "The key used to change states from emacs to Vi and back. 47 "The key used to change states from emacs to Vi and back.
237 'vip-insert-next-from-insertion-ring) 238 'vip-insert-next-from-insertion-ring)
238 239
239 240
240 ;; Replace keymap 241 ;; Replace keymap
241 (define-key vip-replace-map "\C-t" 'vip-forward-indent) 242 (define-key vip-replace-map "\C-t" 'vip-forward-indent)
242 (define-key vip-replace-map "\C-j" 'vip-replace-state-exit-cmd) 243 (define-key vip-replace-map "\C-j" 'vip-replace-state-carriage-return)
243 (define-key vip-replace-map "\C-m" 'vip-replace-state-exit-cmd) 244 (define-key vip-replace-map "\C-m" 'vip-replace-state-carriage-return)
244 (define-key vip-replace-map "\C-?" 'vip-del-backward-char-in-replace) 245 (define-key vip-replace-map "\C-?" 'vip-del-backward-char-in-replace)
245 246
246 247
247 248
248 ;; Vi keymaps 249 ;; Vi keymaps