Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-mous.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
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