From xemacs-m  Sun Feb 16 13:05:07 1997
Received: from mailhost.lanl.gov (mailhost.lanl.gov [128.165.3.12])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id NAA28247
	for <xemacs-beta@xemacs.org>; Sun, 16 Feb 1997 13:05:06 -0600 (CST)
Received: from branagh.ta52.lanl.gov (branagh.ta52.lanl.gov [128.165.144.9]) by mailhost.lanl.gov (8.8.5/8.8.3) with SMTP id MAA19442 for <xemacs-beta@xemacs.org>; Sun, 16 Feb 1997 12:05:07 -0700 (MST)
Received: by branagh.ta52.lanl.gov (SMI-8.6/SMI-SVR4)
	id MAA10975; Sun, 16 Feb 1997 12:01:21 -0700
Date: Sun, 16 Feb 1997 12:01:21 -0700
Message-Id: <199702161901.MAA10975@branagh.ta52.lanl.gov>
From: "John A. Turner" <turner@branagh.ta52.lanl.gov>
To: xemacs-beta@xemacs.org
Subject: 19.15-b94 on Solaris 2.5.1/SunPro CC 4.2
In-Reply-To: <m2zpx5co7c.fsf@altair.xemacs.org>
References: <m2zpx5co7c.fsf@altair.xemacs.org>
Reply-To: turner@lanl.gov

Built from full source...

Configured for `sparc-sun-solaris2.5.1'.

  Where should the build process find the source code?    /opt/local/xemacs-19.15-b94
  What installation prefix should install use?		  ${srcdir}
  What operating system and machine description files should XEmacs use?
        `s/sol2-5.h' and `m/sparc.h'
  What compiler should XEmacs be built with?              cc -g -fast -xO3 -fsimple=2 -xarch=v8plusa -xchip=ultra
  Should XEmacs use the GNU version of malloc?            yes
  Should XEmacs use the relocating allocator for buffers? yes
  What window system should XEmacs use?                   x11
  Where do we find X Windows header files?                /usr/openwin/include
  Additional header files:                                /usr/dt/include /opt/Summertime_96.sparc/include
  Additional libraries:                                   /usr/dt/lib /opt/Summertime_96.sparc/lib
  Compiling in support for XAUTH.
  Compiling in support for XPM.
  Compiling in support for X-Face headers.
  Compiling in support for GIF image conversion.
  Compiling in support for JPEG image conversion.
  Compiling in native sound support.
  Compiling in support for DBM.
  Compiling in support for ToolTalk.
  Compiling in support for CDE.
  Compiling in support for SparcWorks.
  Using the Lucid menubar.
  Using the Lucid scrollbar.
  Using the Motif dialog boxes.

Built cleanly.  90% purespace usage.  Docstring lossage (details
omitted).

First C-x C-f evoked this:

Signaling: (void-variable default-dir-emacs-version)
  default-directory()
  (read-file-name "Find file: " (default-directory))
)
  (expand-file-name (read-file-name "Find file: " (default-directory)))
)
  (list (expand-file-name (read-file-name "Find file: " ...)))
)
  call-interactively(find-file)

Traced to this in efs' default-dir.el, I think:

(defun default-directory ()
  " Returns the default-directory for the current buffer.
Will use the variable default-directory-function if it non-nil."
  (if default-directory-function
      (funcall default-directory-function)
    (if (eq default-dir-emacs-version 'xemacs)
	(abbreviate-file-name default-directory t)
      (abbreviate-file-name default-directory))))

Just a few lines above in default-dir.el is:

(defconst default-dir-emacs-variant
  (cond ((string-match "XEmacs" emacs-version) 'xemacs)
	((>= (string-to-int (substring emacs-version 0 2)) 19) 'fsf-19)
	(t 'fsf-18)))

Looks like skew between -version and -variant?

-- 
John Turner
http://www.lanl.gov/home/turner

