Load viper*.el files silently.

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 2c07017..d6786c0 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 caeecd1..6ea3802 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 ade63b1..e453983 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 788feaf..25e0a56 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 7a47d32..1aae144 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 6a21fa1..0497c16 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 65d40e8..7c256bf 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