Mercurial > emacs

comparison lisp/emulation/viper-mous.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 beb94a5271e2
children e92598964ee6
comparison
equal deleted inserted replaced
18046:5c0bcd2a1716 18047:1b06411ccc04
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
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 23
24 (require 'viper-util) 24 (provide 'viper-mous)
25 25
26 ;; compiler pacifier 26 ;; compiler pacifier
27 (defvar double-click-time) 27 (defvar double-click-time)
28 (defvar mouse-track-multi-click-time) 28 (defvar mouse-track-multi-click-time)
29 ;; end compiler pacifier 29 (defvar vip-search-start-marker)
30 (defvar vip-local-search-start-marker)
31 (defvar vip-search-history)
32 (defvar vip-s-string)
33 (defvar vip-re-search)
34
35 (eval-when-compile
36 (let ((load-path (cons (expand-file-name ".") load-path)))
37 (or (featurep 'viper-util)
38 (load "viper-util.el" nil nil 'nosuffix))
39 (or (featurep 'viper)
40 (load "viper.el" nil nil 'nosuffix))
41 ))
42 ;; end pacifier
43
44 (require 'viper-util)
45
30 46
31 47
32 ;;; Variables 48 ;;; Variables
33 49
34 ;; Variable used for catching the switch-frame event. 50 ;; Variable used for catching the switch-frame event.
451 "Remember the selected frame before the switch-frame event." 467 "Remember the selected frame before the switch-frame event."
452 (vip-remember-current-frame (selected-frame)))) 468 (vip-remember-current-frame (selected-frame))))
453 ))) 469 )))
454 470
455 471
456
457 (provide 'viper-mous)
458
459 ;;; viper-mous.el ends here 472 ;;; viper-mous.el ends here