mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
(top-level): Don't require advice.
Don't load viper-util, viper-keym, viper-mous, viper-macs, viper-ex when compiling.
This commit is contained in:
parent
eec597ed4a
commit
b01fc9c9d9
2 changed files with 26 additions and 18 deletions
|
|
@ -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
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue