Mercurial > emacs

comparison lisp/emulation/viper-macs.el @ 18047:1b06411ccc04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new version
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 31 May 1997 00:02:53 +0000
parents 43a3308fcf61
children e92598964ee6
comparison
equal deleted inserted replaced
18046:5c0bcd2a1716 18047:1b06411ccc04
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
18 ;; along with GNU Emacs; see the file COPYING. If not, write to the 18 ;; along with GNU Emacs; see the file COPYING. If not, write to the
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 ;; Boston, MA 02111-1307, USA. 20 ;; Boston, MA 02111-1307, USA.
21 21
22 ;; Code 22 ;; Code
23
24 (provide 'viper-macs)
25
26 ;; compiler pacifier
27 (defvar vip-ex-work-buf)
28 (defvar vip-custom-file-name)
29 (defvar vip-current-state)
30
31 (eval-when-compile
32 (let ((load-path (cons (expand-file-name ".") load-path)))
33 (or (featurep 'viper-util)
34 (load "viper-util.el" nil nil 'nosuffix))
35 (or (featurep 'viper-keym)
36 (load "viper-keym.el" nil nil 'nosuffix))
37 (or (featurep 'viper-mous)
38 (load "viper-mous.el" nil nil 'nosuffix))
39 (or (featurep 'viper)
40 (load "viper.el" nil nil 'nosuffix))
41 ))
42 ;; end pacifier
23 43
24 (require 'viper-util) 44 (require 'viper-util)
25 (require 'viper-keym) 45 (require 'viper-keym)
26 46
27 47
936 (forward-line 1) 956 (forward-line 1)
937 (beginning-of-line) 957 (beginning-of-line)
938 (call-last-kbd-macro))) 958 (call-last-kbd-macro)))
939 959
940 960
941 (provide 'viper-macs)
942
943 ;;; viper-macs.el ends here 961 ;;; viper-macs.el ends here