Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-macs.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children 1ce6082ce73f
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994, 1995, 1996 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
43 23
44 (require 'viper-util) 24 (require 'viper-util)
45 (require 'viper-keym) 25 (require 'viper-keym)
46 26
47 27
956 (forward-line 1) 936 (forward-line 1)
957 (beginning-of-line) 937 (beginning-of-line)
958 (call-last-kbd-macro))) 938 (call-last-kbd-macro)))
959 939
960 940
941 (provide 'viper-macs)
942
961 ;;; viper-macs.el ends here 943 ;;; viper-macs.el ends here