- BUG FIX:  reversed options -batch and -q in configure.in to placate
	XEmacs 20.0, changed notesinit to not downcase the pathname
	(bugs found by Thierry Bezecourt)

--- configure.in	1998/01/02 04:57:08	1.2
+++ configure.in	1998/12/18 15:55:57
@@ -54,7 +54,7 @@
 AC_ARG_WITH(lisp-dir,  --with-lisp-dir=path  specify a path for where to install .el files,lisp_dir=$withval,lisp_dir="")
 if test x$lisp_dir = x
 then
-	lisp_dir=`$emacsbin -q -batch -l notes-bootstrap.el -f notes-load-path | grep site-lisp | sed '2,$d'`
+	lisp_dir=`$emacsbin -batch -q -l notes-bootstrap.el -f notes-load-path | grep site-lisp | sed '2,$d'`
 fi
 if test "x$lisp_dir" = x
 then
--- /tmp/configure	Thu Jan  1 20:06:36 1998
+++ configure	Fri Dec 18 08:04:44 1998
@@ -633,7 +633,7 @@
 
 if test x$lisp_dir = x
 then
-	lisp_dir=`$emacsbin -q -batch -l notes-bootstrap.el -f notes-load-path | grep site-lisp | sed '2,$d'`
+	lisp_dir=`$emacsbin -batch -q -l notes-bootstrap.el -f notes-load-path | grep site-lisp | sed '2,$d'`
 fi
 if test "x$lisp_dir" = x
 then
--- notesinit	1996/08/10 06:31:31	1.1
+++ notesinit	1998/12/18 16:02:46
@@ -3,7 +3,7 @@
 #
 # notesinit
 # Copyright (C) 1996 by John Heidemann
-# $Id: notesinit,v 1.1 1996/08/10 06:31:31 johnh Exp $
+# $Id: notesinit,v 1.2 1998/12/18 16:02:46 johnh Exp $
 #
 
 sub usage {
@@ -28,13 +28,18 @@
 
 
 sub query {
+    my($lc) = 1;
+    if ($_[0] eq '-nolc') {
+	$lc = undef;
+	shift @_;
+    };
     my($query, $valid_regexp, $default) = @_;
     my($a);
     for (;;) {
         print $query;
         $a = <>;
 	chomp $a;
-	$a = lc($a);
+	$a = lc($a) if ($lc);
         return $default if ($a eq '');
         return $a if ($a =~ /$valid_regexp/);
 	print "I didn't understand your answer `$a'.\n";
@@ -62,7 +67,7 @@
 
 print <<END;
 
-Notes are stored in two directory hierarchy.
+Notes are stored in two-level hierarchy of directories.
 For example:
 ~/NOTES/199603/960329
                ^^^^^^-- a notes file (the date, in YYMMDD)
@@ -70,7 +75,7 @@
   ^^^^^---------------- the parent directory of everything
 
 END
-$::notes{dir} = query("What should the parent directory be (default: ~/NOTES)? ", '.', '~/NOTES');
+$::notes{dir} = query("-nolc", "What should the parent directory be (default: ~/NOTES)? ", '.', '~/NOTES');
 # fix ~
 $::notes{dir} =~ s@^~/@$home_dir/@;
 
@@ -92,7 +97,7 @@
 5. add code to your .emacs file to load notes-mode
 
 END
-my($def_choices, $def) = ('(M/d/s)', 'm');
+($def_choices, $def) = ('(M/d/s)', 'm');
 ($def_choices, $def) = ('(m/D/s)', 'd') if (-f "$home_dir/.notesrc");
 my($go) = query("Make these changes, describe the changes, or stop $def_choices? ", '[mds]', $def);
 exit 1 if ($go eq 's');