# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 965057751 0
# Node ID ed5f60298be95bd1401c797ef04c8854feb61214
# Parent  bb2f9fca15c9a5304f32f144cb73eb3fb0796d25
(strokes-file): Run the file name through
convert-standard-filename.
(strokes-mode): Call display-mouse-p instead of looking at
window-system.  Change the error message accordingly.

diff -r bb2f9fca15c9 -r ed5f60298be9 lisp/strokes.el
--- a/lisp/strokes.el	Mon Jul 31 15:35:08 2000 +0000
+++ b/lisp/strokes.el	Mon Jul 31 15:35:51 2000 +0000
@@ -268,7 +268,7 @@
   :type 'integer
   :group 'strokes)
 
-(defcustom strokes-file "~/.strokes"
+(defcustom strokes-file (convert-standard-filename "~/.strokes")
   "*File containing saved strokes for stroke-mode (default is ~/.strokes)."
   :type 'file
   :group 'strokes)
@@ -1285,8 +1285,8 @@
   (let ((on-p (if arg
 		  (> (prefix-numeric-value arg) 0)
 		(not strokes-mode))))
-    (cond ((not window-system)
-	   (error "Can't use strokes without windows"))
+    (cond ((not (display-mouse-p))
+	   (error "Can't use strokes without a mouse"))
 	  (on-p				; turn on strokes
 	   (and (file-exists-p strokes-file)
 		(null strokes-global-map)