Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-mous.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 bcdc7deadc19
children 0293115a14e9
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
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 "." load-path)))
37 (or (featurep 'viper-util)
38 (load "viper-util.el" nil nil 'nosuffix))
39 ))
40 ;; end pacifier
41
42 (require 'viper-util)
30 43
31 44
32 ;;; Variables 45 ;;; Variables
33 46
34 ;; Variable used for catching the switch-frame event. 47 ;; Variable used for catching the switch-frame event.
451 "Remember the selected frame before the switch-frame event." 464 "Remember the selected frame before the switch-frame event."
452 (vip-remember-current-frame (selected-frame)))) 465 (vip-remember-current-frame (selected-frame))))
453 ))) 466 )))
454 467
455 468
456
457 (provide 'viper-mous)
458
459 ;;; viper-mous.el ends here 469 ;;; viper-mous.el ends here