Mercurial > hg > xemacs-beta

diff lisp/hyperbole/hbmap.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/hyperbole/hbmap.el	Mon Aug 13 08:50:31 2007 +0200
+++ b/lisp/hyperbole/hbmap.el	Mon Aug 13 08:51:03 2007 +0200
@@ -9,7 +9,7 @@
 ;; ORG:          Brown U.
 ;;
 ;; ORIG-DATE:     6-Oct-91 at 06:34:05
-;; LAST-MOD:     24-Oct-95 at 18:32:30 by Bob Weiner
+;; LAST-MOD:     17-Feb-97 at 15:30:16 by Bob Weiner
 ;;
 ;; This file is part of Hyperbole.
 ;; Available for use and distribution under the same terms as GNU Emacs.
@@ -114,7 +114,9 @@
 ;;; ************************************************************************
 
 (defvar hbmap:dir-user
-  (if (memq system-type '(ms-windows windows-nt ms-dos))
+  (if (and hyperb:microcruft-os-p
+	   (or (not (fboundp 'getenv))
+	       (not (getenv "HOME"))))
       "c:/_hyperb/" "~/.hyperb/")
   "Per user directory in which to store top level Hyperbole map data.
 Must end with a directory separator.