2000-06-05 Michael Kifer <kifer@cs.sunysb.edu>

	* ediff-init.el (ediff-has-face-support-p): make it paint faces on
	tty's.
	* ediff-diff.el (ediff-exec-process): use --binary for fine
	differences whenever apropriate.
	* viper-cmd.el (viper-smart-suffix-list): rearranged list members.
	* viper.el (find-file,find-file-other-window): get viper to do
	wildcards.

2 files changed, 24 insertions, 31 deletions

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 91be4cf7765..4a0cc5ed3b3 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -1895,7 +1895,8 @@ Undo previous insertion and inserts new."
 
 
 (defcustom viper-smart-suffix-list
-  '("" "tex" "c" "cc" "C" "el" "java" "html" "htm" "pl" "flr" "P" "p")
+  '("" "tex" "c" "cc" "C" "java" "el" "html" "htm" "xml"
+    "pl" "flr" "P" "p" "h" "H")
   "*List of suffixes that Viper tries to append to filenames ending with a `.'.
 This is useful when you the current directory contains files with the same
 prefix and many different suffixes.  Usually, only one of the suffixes
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index f5094a1b8da..644bff67055 100644
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -400,6 +400,7 @@ widget."
     ps-mode
 				  
     completion-list-mode
+    diff-mode
     
     perl-mode
     javascript-mode
@@ -982,53 +983,44 @@ remains buffer-local."
   (defadvice find-file (before viper-add-suffix-advice activate)
     "Use `read-file-name' for reading arguments."
     (interactive (cons (read-file-name "Find file: " nil default-directory)
-		       ;; if Mule and prefix argument, ask for coding system
-		       (cond ((and viper-emacs-p 
-				   (boundp 'MULE))   ; Emacs 20 with MULE
-			      nil)
-			     ((and viper-xemacs-p
-				   (featurep 'mule)) ; XEmacs 20 with MULE
+		       ;; XEmacs: if Mule & prefix arg, ask for coding system
+		       (cond ((and viper-xemacs-p (featurep 'mule))
 			      (list
 			       (and current-prefix-arg
-				    (read-coding-system 
-				     "Coding-system: "))))
-			     )
-		       )))
+				    (read-coding-system "Coding-system: "))))
+			     ;; Emacs: do wildcards
+			     ((and viper-emacs-p (boundp 'find-file-wildcards))
+				   (list find-file-wildcards))))
+		 ))
   
   (defadvice find-file-other-window (before viper-add-suffix-advice activate)
     "Use `read-file-name' for reading arguments."
     (interactive (cons (read-file-name "Find file in other window: "
 				       nil default-directory)
-		       ;; if Mule and prefix argument, ask for coding system
-		       (cond ((and viper-emacs-p 
-				   (boundp 'MULE)) ; Emacs 20 with MULE
-			      nil)
-			     ((and viper-xemacs-p
-				   (featurep 'mule))   ; XEmacs 20 with MULE
+		       ;; XEmacs: if Mule & prefix arg, ask for coding system
+		       (cond ((and viper-xemacs-p (featurep 'mule))
 			      (list
 			       (and current-prefix-arg
-				    (read-coding-system 
-				     "Coding-system: "))))
-			     )
-		       )))
+				    (read-coding-system "Coding-system: "))))
+			     ;; Emacs: do wildcards
+			     ((and viper-emacs-p (boundp 'find-file-wildcards))
+			      (list find-file-wildcards))))
+		 ))
   
 
   (defadvice find-file-other-frame (before viper-add-suffix-advice activate)
     "Use `read-file-name' for reading arguments."
     (interactive (cons (read-file-name "Find file in other frame: "
 				       nil default-directory)
-		       ;; if Mule and prefix argument, ask for coding system
-		       (cond ((and viper-emacs-p 
-				   (boundp 'MULE))   ; Emacs 20 with MULE
-			      nil)
-			     ((and viper-xemacs-p
-				   (featurep 'mule)) ; XEmacs 20 with MULE
+		       ;; XEmacs: if Mule & prefix arg, ask for coding system
+		       (cond ((and viper-xemacs-p (featurep 'mule))
 			      (list
 			       (and current-prefix-arg
-				    (read-coding-system 
-				     "Coding-system: "))))
-			     )
-		       )))
+				    (read-coding-system "Coding-system: "))))
+			     ;; Emacs: do wildcards
+			     ((and viper-emacs-p (boundp 'find-file-wildcards))
+			      (list find-file-wildcards))))
+		 ))
 
   
   (defadvice read-file-name (around viper-suffix-advice activate)