Mercurial > hg > xemacs-beta
comparison lisp/viper/viper-util.el @ 163:0132846995bd r20-3b8
Import from CVS: tag r20-3b8
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:43:35 +0200 |
parents | cf808b4c4290 |
children | 2d532a89d707 |
comparison
equal
deleted
inserted
replaced
162:4de2936b4e77 | 163:0132846995bd |
---|---|
37 (defvar vip-ex-tmp-buf-name) | 37 (defvar vip-ex-tmp-buf-name) |
38 | 38 |
39 (require 'cl) | 39 (require 'cl) |
40 (require 'ring) | 40 (require 'ring) |
41 | 41 |
42 (and noninteractive | 42 (if noninteractive |
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-init) | 45 (or (featurep 'viper-init) |
46 (load "viper-init.el" nil nil 'nosuffix)) | 46 (load "viper-init.el" nil nil 'nosuffix)) |
47 ))) | 47 ))) |
48 ;; end pacifier | 48 ;; end pacifier |
49 | 49 |
50 (require 'viper-init) | 50 (require 'viper-init) |
51 | 51 |
52 | 52 |