[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el,v

[Michael Kifer]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Kifer <kifer>   08/04/03 21:04:20

Index: emulation/viper-ex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-ex.el,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -b -r1.69 -r1.70
--- emulation/viper-ex.el       1 Mar 2008 20:10:26 -0000       1.69
+++ emulation/viper-ex.el       3 Apr 2008 21:04:18 -0000       1.70
@@ -46,10 +46,8 @@
 ;; in order to spare non-viperized emacs from being viperized
 (if noninteractive
     (eval-when-compile
-      (let ((load-path (cons (expand-file-name ".") load-path)))
-       (or (featurep 'viper-cmd)
-           (load "viper-cmd.el" nil t 'nosuffix))
-       )))
+      (require 'viper-cmd)
+      ))
 ;; end pacifier
 
 (require 'viper-util)
@@ -2077,7 +2075,8 @@
              ;; create temp buffer for the region
              (setq temp-buf (get-buffer-create " *ex-write*"))
              (set-buffer temp-buf)
-             (if (featurep 'xemacs) (set-visited-file-name ex-file)
+             (if (featurep 'xemacs)
+                 (set-visited-file-name ex-file)
                (set-visited-file-name ex-file 'noquery))
              (erase-buffer)
              (if (and file-exists ex-append)