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)