From fd298e0242d3ea2cd531e67f494303d1e84be67e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 27 Nov 2007 09:06:32 +0000 Subject: [PATCH] Load viper*.el files silently. --- lisp/emulation/viper-cmd.el | 10 +++++----- lisp/emulation/viper-ex.el | 6 +++--- lisp/emulation/viper-keym.el | 2 +- lisp/emulation/viper-macs.el | 8 ++++---- lisp/emulation/viper-mous.el | 4 ++-- lisp/emulation/viper-util.el | 2 +- lisp/emulation/viper.el | 4 ++-- 7 files changed, 18 insertions(+), 18 deletions(-) diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 2c07017e389..d6786c01987 100644 --- 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 caeecd12c8a..6ea3802b62d 100644 --- 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 ade63b1071c..e453983f496 100644 --- 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 788feaf86e6..25e0a56b8d1 100644 --- 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 7a47d321890..1aae14400c5 100644 --- 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 6a21fa17e31..0497c16dc20 100644 --- 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 65d40e8bad7..7c256bfb420 100644 --- 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 -- 2.39.2