Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-macs.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 0132846995bd
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1 ;;; viper-macs.el --- functions implementing keyboard macros for Viper 1 ;;; viper-macs.el --- functions implementing keyboard macros for Viper
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
27 (defvar vip-ex-work-buf) 27 (defvar vip-ex-work-buf)
28 (defvar vip-custom-file-name) 28 (defvar vip-custom-file-name)
29 (defvar vip-current-state) 29 (defvar vip-current-state)
30 30
31 (eval-when-compile 31 (eval-when-compile
32 (let ((load-path (cons "." load-path))) 32 (let ((load-path (cons (expand-file-name ".") load-path)))
33 (or (featurep 'viper-util) 33 (or (featurep 'viper-util)
34 (load "viper-util.el" nil nil 'nosuffix)) 34 (load "viper-util.el" nil nil 'nosuffix))
35 (or (featurep 'viper-keym) 35 (or (featurep 'viper-keym)
36 (load "viper-keym.el" nil nil 'nosuffix)) 36 (load "viper-keym.el" nil nil 'nosuffix))
37 (or (featurep 'viper-mous) 37 (or (featurep 'viper-mous)
38 (load "viper-mous.el" nil nil 'nosuffix)) 38 (load "viper-mous.el" nil nil 'nosuffix))
39 (or (featurep 'viper)
40 (load "viper.el" nil nil 'nosuffix))
39 )) 41 ))
40 ;; end pacifier 42 ;; end pacifier
41 43
42 (require 'viper-util) 44 (require 'viper-util)
43 (require 'viper-keym) 45 (require 'viper-keym)