Mercurial > emacs

changeset 18343:b5cee57a4a0f

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 Fri, 20 Jun 1997 21:43:44 +0000
parents 913d2cc5a6aa
children dca9b4a8155e
files lisp/emulation/viper-mous.el lisp/emulation/viper.el
diffstat 2 files changed, 15 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/viper-mous.el	Fri Jun 20 08:45:37 1997 +0000
+++ b/lisp/emulation/viper-mous.el	Fri Jun 20 21:43:44 1997 +0000
@@ -66,9 +66,11 @@
        
 ;; time interval in millisecond within which successive clicks are
 ;; considered related
-(defconst vip-multiclick-timeout (if vip-xemacs-p
-				     mouse-track-multi-click-time
-				   double-click-time)
+(defconst vip-multiclick-timeout (if (vip-window-display-p)
+				     (if vip-xemacs-p
+					 mouse-track-multi-click-time
+				       double-click-time)
+				   500)
   "*Time interval in millisecond within which successive clicks are
 considered related.")
 
--- a/lisp/emulation/viper.el	Fri Jun 20 08:45:37 1997 +0000
+++ b/lisp/emulation/viper.el	Fri Jun 20 21:43:44 1997 +0000
@@ -489,6 +489,12 @@
   (add-hook 'basic-mode-hook 'viper-mode)
   (defvar bat-mode-hook)
   (add-hook 'bat-mode-hook 'viper-mode)
+  
+  (defvar asm-mode-hook)
+  (add-hook 'asm-mode-hook 'viper-mode)
+
+  (defvar prolog-mode-hook)
+  (add-hook 'prolog-mode-hook 'viper-mode)
       
   (defvar text-mode-hook)
   (add-hook 'text-mode-hook 'viper-mode)
@@ -523,12 +529,6 @@
     "Run `vip-change-state-to-vi' after quitting emerge."
     (vip-change-state-to-vi))
   
-  (vip-eval-after-load
-   "asm-mode"
-   '(defadvice asm-mode (after vip-asm-mode-ad activate)
-      "Run `vip-change-state-to-vi' on entry."
-      (vip-change-state-to-vi)))
-  
   ;; passwd.el sets up its own buffer, which turns up in Vi mode,
   ;; thus overriding the local map. We don't need Vi mode here.
   (vip-eval-after-load
@@ -536,12 +536,6 @@
    '(defadvice read-passwd-1 (before vip-passwd-ad activate)
       "Switch to emacs state while reading password."
       (vip-change-state-to-emacs)))
-
-  (vip-eval-after-load
-   "prolog"
-   '(defadvice prolog-mode (after vip-prolog-ad activate)
-      "Switch to Vi state in Prolog mode."
-      (vip-change-state-to-vi)))
   
   ;; Emacs shell, ange-ftp, and comint-based modes
   (defvar comint-mode-hook)
@@ -617,15 +611,10 @@
     (vip-change-state-to-emacs))
 
   ;; View mode
-  (if vip-emacs-p
-      (progn
-	(defvar view-mode-hook)
-	(add-hook 'view-mode-hook 'vip-change-state-to-emacs))
-    (defadvice view-minor-mode (after vip-view-ad activate)
-      "Switch to Emacs state in View mode."
-      (vip-change-state-to-emacs))
-    (defvar view-hook)
-    (add-hook 'view-hook 'vip-change-state-to-emacs))
+  (defvar view-mode-hook)
+  (defvar view-hook)
+  (add-hook 'view-hook 'vip-change-state-to-emacs)
+  (add-hook 'view-mode-hook 'vip-change-state-to-emacs)
   
   ;; For VM users.
   ;; Put summary and other VM buffers in Emacs state.