: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)
(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)