aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2007-11-27 09:06:32 +0000
committerGlenn Morris2007-11-27 09:06:32 +0000
commitfd298e0242d3ea2cd531e67f494303d1e84be67e (patch)
tree3fa847166016f5a08c8f306561165ab9242955f5
parent1007a0a74e381a04a9e11c4ee24d2cb8a5db889a (diff)
downloademacs-fd298e0242d3ea2cd531e67f494303d1e84be67e.tar.gz
emacs-fd298e0242d3ea2cd531e67f494303d1e84be67e.zip
Load viper*.el files silently.
-rw-r--r--lisp/emulation/viper-cmd.el10
-rw-r--r--lisp/emulation/viper-ex.el6
-rw-r--r--lisp/emulation/viper-keym.el2
-rw-r--r--lisp/emulation/viper-macs.el8
-rw-r--r--lisp/emulation/viper-mous.el4
-rw-r--r--lisp/emulation/viper-util.el2
-rw-r--r--lisp/emulation/viper.el4
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 @@
55 (eval-when-compile 55 (eval-when-compile
56 (let ((load-path (cons (expand-file-name ".") load-path))) 56 (let ((load-path (cons (expand-file-name ".") load-path)))
57 (or (featurep 'viper-util) 57 (or (featurep 'viper-util)
58 (load "viper-util.el" nil nil 'nosuffix)) 58 (load "viper-util.el" nil t 'nosuffix))
59 (or (featurep 'viper-keym) 59 (or (featurep 'viper-keym)
60 (load "viper-keym.el" nil nil 'nosuffix)) 60 (load "viper-keym.el" nil t 'nosuffix))
61 (or (featurep 'viper-mous) 61 (or (featurep 'viper-mous)
62 (load "viper-mous.el" nil nil 'nosuffix)) 62 (load "viper-mous.el" nil t 'nosuffix))
63 (or (featurep 'viper-macs) 63 (or (featurep 'viper-macs)
64 (load "viper-macs.el" nil nil 'nosuffix)) 64 (load "viper-macs.el" nil t 'nosuffix))
65 (or (featurep 'viper-ex) 65 (or (featurep 'viper-ex)
66 (load "viper-ex.el" nil nil 'nosuffix)) 66 (load "viper-ex.el" nil t 'nosuffix))
67 ))) 67 )))
68;; end pacifier 68;; end pacifier
69 69
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 @@
48 (eval-when-compile 48 (eval-when-compile
49 (let ((load-path (cons (expand-file-name ".") load-path))) 49 (let ((load-path (cons (expand-file-name ".") load-path)))
50 (or (featurep 'viper-util) 50 (or (featurep 'viper-util)
51 (load "viper-util.el" nil nil 'nosuffix)) 51 (load "viper-util.el" nil t 'nosuffix))
52 (or (featurep 'viper-keym) 52 (or (featurep 'viper-keym)
53 (load "viper-keym.el" nil nil 'nosuffix)) 53 (load "viper-keym.el" nil t 'nosuffix))
54 (or (featurep 'viper-cmd) 54 (or (featurep 'viper-cmd)
55 (load "viper-cmd.el" nil nil 'nosuffix)) 55 (load "viper-cmd.el" nil t 'nosuffix))
56 ))) 56 )))
57;; end pacifier 57;; end pacifier
58 58
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 @@
42 (eval-when-compile 42 (eval-when-compile
43 (let ((load-path (cons (expand-file-name ".") load-path))) 43 (let ((load-path (cons (expand-file-name ".") load-path)))
44 (or (featurep 'viper-util) 44 (or (featurep 'viper-util)
45 (load "viper-util.el" nil nil 'nosuffix)) 45 (load "viper-util.el" nil t 'nosuffix))
46 ))) 46 )))
47;; end pacifier 47;; end pacifier
48 48
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 @@
40 (eval-when-compile 40 (eval-when-compile
41 (let ((load-path (cons (expand-file-name ".") load-path))) 41 (let ((load-path (cons (expand-file-name ".") load-path)))
42 (or (featurep 'viper-util) 42 (or (featurep 'viper-util)
43 (load "viper-util.el" nil nil 'nosuffix)) 43 (load "viper-util.el" nil t 'nosuffix))
44 (or (featurep 'viper-keym) 44 (or (featurep 'viper-keym)
45 (load "viper-keym.el" nil nil 'nosuffix)) 45 (load "viper-keym.el" nil t 'nosuffix))
46 (or (featurep 'viper-mous) 46 (or (featurep 'viper-mous)
47 (load "viper-mous.el" nil nil 'nosuffix)) 47 (load "viper-mous.el" nil t 'nosuffix))
48 (or (featurep 'viper-cmd) 48 (or (featurep 'viper-cmd)
49 (load "viper-cmd.el" nil nil 'nosuffix)) 49 (load "viper-cmd.el" nil t 'nosuffix))
50 ))) 50 )))
51;; end pacifier 51;; end pacifier
52 52
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 @@
43 (eval-when-compile 43 (eval-when-compile
44 (let ((load-path (cons (expand-file-name ".") load-path))) 44 (let ((load-path (cons (expand-file-name ".") load-path)))
45 (or (featurep 'viper-util) 45 (or (featurep 'viper-util)
46 (load "viper-util.el" nil nil 'nosuffix)) 46 (load "viper-util.el" nil t 'nosuffix))
47 (or (featurep 'viper-cmd) 47 (or (featurep 'viper-cmd)
48 (load "viper-cmd.el" nil nil 'nosuffix)) 48 (load "viper-cmd.el" nil t 'nosuffix))
49 ))) 49 )))
50;; end pacifier 50;; end pacifier
51 51
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 @@
48 (eval-when-compile 48 (eval-when-compile
49 (let ((load-path (cons (expand-file-name ".") load-path))) 49 (let ((load-path (cons (expand-file-name ".") load-path)))
50 (or (featurep 'viper-init) 50 (or (featurep 'viper-init)
51 (load "viper-init.el" nil nil 'nosuffix)) 51 (load "viper-init.el" nil t 'nosuffix))
52 ))) 52 )))
53;; end pacifier 53;; end pacifier
54 54
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 @@
313 (eval-when-compile 313 (eval-when-compile
314 (let ((load-path (cons (expand-file-name ".") load-path))) 314 (let ((load-path (cons (expand-file-name ".") load-path)))
315 (or (featurep 'viper-init) 315 (or (featurep 'viper-init)
316 (load "viper-init.el" nil nil 'nosuffix)) 316 (load "viper-init.el" nil t 'nosuffix))
317 (or (featurep 'viper-cmd) 317 (or (featurep 'viper-cmd)
318 (load "viper-cmd.el" nil nil 'nosuffix)) 318 (load "viper-cmd.el" nil t 'nosuffix))
319 ))) 319 )))
320;; end pacifier 320;; end pacifier
321 321