mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 23:31:33 -07:00
Code Issues Projects Releases Wiki Activity

Load viper*.el files silently.

Browse source
This commit is contained in:
Glenn Morris 2007-11-27 09:06:32 +00:00
parent 1007a0a74e
commit fd298e0242
7 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emulation/viper-cmd.el
View file

@ -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

6
lisp/emulation/viper-ex.el
View file

@ -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

2
lisp/emulation/viper-keym.el
View file

@ -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

8
lisp/emulation/viper-macs.el
View file

@ -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

4
lisp/emulation/viper-mous.el
View file

@ -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

2
lisp/emulation/viper-util.el
View file

@ -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

4
lisp/emulation/viper.el
View file

@ -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