Load viper*.el files silently.

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 2c07017e3896c13b1341c8d34ce0200e80c163fe..d6786c01987d010cdcd5c84b8ab3c4f96e2f0476 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -55,15 +55,15 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-util)
-           (load "viper-util.el" nil nil 'nosuffix))
+           (load "viper-util.el" nil t 'nosuffix))
        (or (featurep 'viper-keym)
-           (load "viper-keym.el" nil nil 'nosuffix))
+           (load "viper-keym.el" nil t 'nosuffix))
        (or (featurep 'viper-mous)
-           (load "viper-mous.el" nil nil 'nosuffix))
+           (load "viper-mous.el" nil t 'nosuffix))
        (or (featurep 'viper-macs)
-           (load "viper-macs.el" nil nil 'nosuffix))
+           (load "viper-macs.el" nil t 'nosuffix))
        (or (featurep 'viper-ex)
-           (load "viper-ex.el" nil nil 'nosuffix))
+           (load "viper-ex.el" nil t 'nosuffix))
        )))
 ;; end pacifier
 

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index caeecd12c8a2c24985d130d4f5b3569d697c6ddd..6ea3802b62d55b1cc8cd2667313a5ce3db1e0239 100644 (file)
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -48,11 +48,11 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-util)
-           (load "viper-util.el" nil nil 'nosuffix))
+           (load "viper-util.el" nil t 'nosuffix))
        (or (featurep 'viper-keym)
-           (load "viper-keym.el" nil nil 'nosuffix))
+           (load "viper-keym.el" nil t 'nosuffix))
        (or (featurep 'viper-cmd)
-           (load "viper-cmd.el" nil nil 'nosuffix))
+           (load "viper-cmd.el" nil t 'nosuffix))
        )))
 ;; end pacifier
 

diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index ade63b1071c11f6605eac88be517e09d9054a8af..e453983f4960f909e2bc2103a0d261d187512c82 100644 (file)
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -42,7 +42,7 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-util)
-           (load "viper-util.el" nil nil 'nosuffix))
+           (load "viper-util.el" nil t 'nosuffix))
        )))
 ;; end pacifier
 

diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 788feaf86e6a13edebdeab14cf732939de3f34ef..25e0a56b8d1a12afaff97913e5d21329dc50fd08 100644 (file)
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -40,13 +40,13 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-util)
-           (load "viper-util.el" nil nil 'nosuffix))
+           (load "viper-util.el" nil t 'nosuffix))
        (or (featurep 'viper-keym)
-           (load "viper-keym.el" nil nil 'nosuffix))
+           (load "viper-keym.el" nil t 'nosuffix))
        (or (featurep 'viper-mous)
-           (load "viper-mous.el" nil nil 'nosuffix))
+           (load "viper-mous.el" nil t 'nosuffix))
        (or (featurep 'viper-cmd)
-           (load "viper-cmd.el" nil nil 'nosuffix))
+           (load "viper-cmd.el" nil t 'nosuffix))
        )))
 ;; end pacifier
 

diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el
index 7a47d321890a8aef0b9199f8f03a62d3d7a69d58..1aae14400c5a8953b92b192dd93b2fb68bfb2535 100644 (file)
--- a/lisp/emulation/viper-mous.el
+++ b/lisp/emulation/viper-mous.el
@@ -43,9 +43,9 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-util)
-           (load "viper-util.el" nil nil 'nosuffix))
+           (load "viper-util.el" nil t 'nosuffix))
        (or (featurep 'viper-cmd)
-           (load "viper-cmd.el" nil nil 'nosuffix))
+           (load "viper-cmd.el" nil t 'nosuffix))
        )))
 ;; end pacifier
 

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 6a21fa17e31da78d1fc3f51d6b0081fcc015d7fc..0497c16dc204b51d03cb39141ddd2d2d06614dfb 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -48,7 +48,7 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-init)
-           (load "viper-init.el" nil nil 'nosuffix))
+           (load "viper-init.el" nil t 'nosuffix))
        )))
 ;; end pacifier
 

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 65d40e8bad79e74328fad546ca9a784ecb09a1d6..7c256bfb420647e1adbfe88d494f74eeb7544d57 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -313,9 +313,9 @@
     (eval-when-compile
       (let ((load-path (cons (expand-file-name ".") load-path)))
        (or (featurep 'viper-init)
-           (load "viper-init.el" nil nil 'nosuffix))
+           (load "viper-init.el" nil t 'nosuffix))
        (or (featurep 'viper-cmd)
-           (load "viper-cmd.el" nil nil 'nosuffix))
+           (load "viper-cmd.el" nil t 'nosuffix))
        )))
 ;; end pacifier