[Emacs-diffs] Changes to emacs/lisp/emulation/viper-util.el

[Michael Kifer]

Index: emacs/lisp/emulation/viper-util.el
diff -c emacs/lisp/emulation/viper-util.el:1.51 
emacs/lisp/emulation/viper-util.el:1.52
*** emacs/lisp/emulation/viper-util.el:1.51     Sat Jan  3 12:09:15 2004
--- emacs/lisp/emulation/viper-util.el  Sat Feb 19 19:32:47 2005
***************
*** 662,675 ****
  
  
  ;; define remote file test
! (or (fboundp 'viper-file-remote-p) ; user supplied his own function: use it
!     (defun viper-file-remote-p (file-name)
!       (car (cond ((featurep 'efs-auto) (efs-ftp-path file-name))
!                ((fboundp 'file-remote-p) (file-remote-p file-name))
!                (t (require 'ange-ftp)
!                   ;; Can happen only in Emacs, since XEmacs has file-remote-p
!                   (ange-ftp-ftp-name file-name))))))
! 
  
  
  ;; This is a simple-minded check for whether a file is under version control.
--- 662,669 ----
  
  
  ;; define remote file test
! (defun viper-file-remote-p (file-name)
!   (file-remote-p file-name))
  
  
  ;; This is a simple-minded check for whether a file is under version control.