Sam Steingold <[EMAIL PROTECTED]> writes:
> revision-id: [EMAIL PROTECTED]
> date: 2007-06-14 21:00:04 +0200
> build-date: 2007-06-14 15:36:12 -0400
> revno: 189
> branch-nick: dvc
>
>
> loading dvc-load.el results in the following *Shell command output*:
>
> lispdir=/usr/local/share/emacs/site-lisp/dvc srcdir=. otherdirs="" emacs
> -batch -q -no-site-file -no-init-file -l ./dvc-build.el -f
> package-maint-clean-some-elc
> Loading /home/shared/lib/elisp/dvc/lisp/dvc-version.el (source)...
> lispdir=/usr/local/share/emacs/site-lisp/dvc srcdir=. otherdirs="" emacs
> -batch -q -no-site-file -no-init-file -l ./dvc-build.el -f
> package-maint-make-cus-load .
> Loading /home/shared/lib/elisp/dvc/lisp/dvc-version.el (source)...
> Reading directory /home/shared/lib/elisp/dvc/lisp/...
> Reading directory /home/shared/lib/elisp/dvc/lisp/...done
> lispdir=/usr/local/share/emacs/site-lisp/dvc srcdir=. otherdirs="" emacs
> -batch -q -no-site-file -no-init-file -l ./dvc-build.el -f
> package-maint-make-auto-load .
> Loading /home/shared/lib/elisp/dvc/lisp/dvc-version.el (source)...
> Reading directory /home/shared/lib/elisp/dvc/lisp/...
> Reading directory /home/shared/lib/elisp/dvc/lisp/...done
> lispdir=/usr/local/share/emacs/site-lisp/dvc srcdir=. otherdirs="" emacs
> -batch -q -no-site-file -no-init-file -l ./dvc-build.el -f
> package-maint-make-load
> Loading /home/shared/lib/elisp/dvc/lisp/dvc-version.el (source)...
> lispdir=/usr/local/share/emacs/site-lisp/dvc srcdir=. otherdirs="" emacs
> -batch -q -no-site-file -no-init-file -l ./dvc-build.el -f
> package-maint-compile
> Loading /home/shared/lib/elisp/dvc/lisp/dvc-version.el (source)...
>
> why?
This happens when you load dvc-load.el a second time.
If dvc is already loaded, dvc-reload is called:
(defun dvc-reload (&optional directory)
"Reload DVC (usually for debugging purpose).
With prefix arg, prompts for the DIRECTORY in which DVC should be
loaded. Useful to switch from one branch to the other.
If a Makefile is present in the directory where DVC is to be loaded,
run \"make\"."
(interactive
(list (when current-prefix-arg
(let* ((other (dvc-read-directory-name
"Load DVC from: "))
(lispdir (concat (file-name-as-directory other)
"lisp")))
(if (file-directory-p lispdir)
lispdir
other)))))
(when directory
(let ((current-path (file-name-directory (locate-library
"dvc-core"))))
(setq load-path
(cons directory (remove current-path load-path)))))
(let ((default-directory (file-name-directory (locate-library "dvc-core"))))
(when (file-exists-p
"Makefile")
(shell-command "make")))
(dvc-unload)
(require 'dvc-autoloads))
dvc-reload executes the makefile to actualize all dvc related files.
Stefan.
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
