Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-macs.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
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 "." 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 ))
40 ;; end pacifier
23 41
24 (require 'viper-util) 42 (require 'viper-util)
25 (require 'viper-keym) 43 (require 'viper-keym)
26 44
27 45
936 (forward-line 1) 954 (forward-line 1)
937 (beginning-of-line) 955 (beginning-of-line)
938 (call-last-kbd-macro))) 956 (call-last-kbd-macro)))
939 957
940 958
941 (provide 'viper-macs)
942
943 ;;; viper-macs.el ends here 959 ;;; viper-macs.el ends here