mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(top-level): Don't require advice.

Browse Source 
Don't load viper-util, viper-keym, viper-mous, viper-macs, viper-ex
when compiling.
This commit is contained in:
Glenn Morris 2007-12-02 21:04:10 +00:00
parent eec597ed4a
commit b01fc9c9d9
2 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/ChangeLog
View File

@ -1,3 +1,29 @@
2007-12-02 Glenn Morris <rgm@gnu.org>
* emulation/viper-cmd.el (top-level): Don't require advice.
Don't load viper-util, viper-keym, viper-mous, viper-macs,
viper-ex when compiling.
* emulation/viper-ex.el (top-level): Don't load viper-util,
viper-keym when compiling.
* emulation/viper-init.el (top-level): Move provide statement to end.
* emulation/viper-keym.el (top-level): Don't load viper-util when
compiling. Move provide statement to end.
* emulation/viper-macs.el (top-level): Don't load viper-util,
viper-keym, viper-mous when compiling.
* emulation/viper-mous.el (top-level): Don't load viper-util when
compiling.
* emulation/viper-util.el (top-level): Don't load viper-init when
compiling.
* emulation/viper.el (top-level): Don't require ring.
Don't load viper-init, viper-cmd when compiling.
2007-12-02 Karl Fogel <kfogel@red-bean.com>
Offer option for saveplace to be quiet about loading and saving.

18
lisp/emulation/viper-cmd.el
View File

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