Sam Steingold <[EMAIL PROTECTED]> writes:

> 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)...
> Loading /usr/libexec/emacs/21.4/i386-redhat-linux/fns-21.4.1-x.el
> (source)...
> While compiling the end of the data in file
> /home/shared/lib/elisp/dvc/lisp/dvc-utils.el:
>   ** The function `read-directory-name' is not known to be defined.
> Wrote /home/shared/lib/elisp/dvc/lisp/dvc-utils.elc
> Wrote /home/shared/lib/elisp/dvc/lisp/xgit-dvc.elc
> Wrote /home/shared/lib/elisp/dvc/lisp/xgit.elc
>
> `read-directory-name' is in e22 but not e21.

The read-directory-name is part of the following definition:

(defun dvc-read-directory-name (prompt &optional dir default-dirname
                                        mustmatch initial)
  "Read directory name, prompting with PROMPT and completing in directory DIR.
Value is not expanded---you must call `expand-file-name' yourself.
Default name to DEFAULT-DIRNAME if user exits with the same
non-empty string that was inserted by this function.
 (If DEFAULT-DIRNAME is omitted, the current buffer's directory is used,
  except that if INITIAL is specified, that combined with DIR is used.)
If the user exits with an empty minibuffer, this function returns
an empty string.  (This can only happen if the user erased the
pre-inserted contents or if `insert-default-directory' is nil.)
Fourth arg MUSTMATCH non-nil means require existing directory's name.
 Non-nil and non-t means also require confirmation after completion.
Fifth arg INITIAL specifies text to start with.
DIR should be an absolute directory name.  It defaults to
the value of `default-directory'."
  (if (fboundp 'read-directory-name)
      (read-directory-name prompt dir default-dirname mustmatch initial)
    ;; The same as the definition of `read-directory-name'
    ;; in GNU Emacs in CVS.
    (unless dir
      (setq dir default-directory))
    (unless default-dirname
      (setq default-dirname
            (if initial (concat dir initial) dir)))
    (read-file-name prompt dir default-dirname mustmatch initial)))

So it is only used, when it is available.
Does anyone know how we can suppress the byte compiler warning?


Stefan.

_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev

Reply via email to