emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v
Date: Sun, 02 Dec 2007 21:03:56 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/12/02 21:03:55

Index: viper-cmd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/viper-cmd.el,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -b -r1.68 -r1.69
--- viper-cmd.el        27 Nov 2007 09:06:18 -0000      1.68
+++ viper-cmd.el        2 Dec 2007 21:03:55 -0000       1.69
@@ -27,7 +27,6 @@
 ;;; Code:
 
 (provide 'viper-cmd)
-(require 'advice)
 
 ;; Compiler pacifier
 (defvar viper-minibuffer-current-face)
@@ -48,23 +47,6 @@
 (defvar initial)
 (defvar undo-beg-posn)
 (defvar undo-end-posn)
-
-;; loading happens only in non-interactive compilation
-;; in order to spare non-viperized emacs from being viperized
-(if noninteractive
-    (eval-when-compile
-      (let ((load-path (cons (expand-file-name ".") load-path)))
-       (or (featurep 'viper-util)
-           (load "viper-util.el" nil t 'nosuffix))
-       (or (featurep 'viper-keym)
-           (load "viper-keym.el" nil t 'nosuffix))
-       (or (featurep 'viper-mous)
-           (load "viper-mous.el" nil t 'nosuffix))
-       (or (featurep 'viper-macs)
-           (load "viper-macs.el" nil t 'nosuffix))
-       (or (featurep 'viper-ex)
-           (load "viper-ex.el" nil t 'nosuffix))
-       )))
 ;; end pacifier
 
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]