Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-mous.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children 131b0175ea99
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; viper-mous.el --- mouse support for Viper 1 ;;; viper-mous.el --- mouse support 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
31 (defvar vip-search-history) 31 (defvar vip-search-history)
32 (defvar vip-s-string) 32 (defvar vip-s-string)
33 (defvar vip-re-search) 33 (defvar vip-re-search)
34 34
35 (eval-when-compile 35 (eval-when-compile
36 (let ((load-path (cons "." load-path))) 36 (let ((load-path (cons (expand-file-name ".") load-path)))
37 (or (featurep 'viper-util) 37 (or (featurep 'viper-util)
38 (load "viper-util.el" nil nil 'nosuffix)) 38 (load "viper-util.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)
45
43 46
44 47
45 ;;; Variables 48 ;;; Variables
46 49
47 ;; Variable used for catching the switch-frame event. 50 ;; Variable used for catching the switch-frame event.