diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2000-07-31 15:35:51 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2000-07-31 15:35:51 +0000 |
| commit | 364ce449bc63980245c7bccbf2f1de4e344f1e62 (patch) | |
| tree | efdb9e1ed28abff676c48dd208e4cce2a8d2749f /lisp/strokes.el | |
| parent | e2c00a47192925f865cf07ce567d11df8ff7d94b (diff) | |
| download | emacs-364ce449bc63980245c7bccbf2f1de4e344f1e62.tar.gz | |
(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.
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/strokes.el b/lisp/strokes.el index 03f1c109cb8..d45d9c19732 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -268,7 +268,7 @@ WARNING: Changing the value of this variable will gravely affect the :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 @@ strokes with (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) |