Mercurial > emacs
changeset 30540:ed5f60298be9
(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.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 31 Jul 2000 15:35:51 +0000 |
| parents | bb2f9fca15c9 |
| children | d5e4d3d5012c |
| files | lisp/strokes.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)