Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-mous.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-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.