Mercurial > emacs
comparison lisp/strokes.el @ 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 | ede0e764fc12 |
children | 27d41d6ec45d |
comparison
equal
deleted
inserted
replaced
30539:bb2f9fca15c9 | 30540:ed5f60298be9 |
---|---|
266 quick the particular platform(s) you're operating on, and | 266 quick the particular platform(s) you're operating on, and |
267 only then start programming in your custom strokes." | 267 only then start programming in your custom strokes." |
268 :type 'integer | 268 :type 'integer |
269 :group 'strokes) | 269 :group 'strokes) |
270 | 270 |
271 (defcustom strokes-file "~/.strokes" | 271 (defcustom strokes-file (convert-standard-filename "~/.strokes") |
272 "*File containing saved strokes for stroke-mode (default is ~/.strokes)." | 272 "*File containing saved strokes for stroke-mode (default is ~/.strokes)." |
273 :type 'file | 273 :type 'file |
274 :group 'strokes) | 274 :group 'strokes) |
275 | 275 |
276 (defcustom strokes-buffer-name " *strokes*" | 276 (defcustom strokes-buffer-name " *strokes*" |
1283 > M-x strokes-decode-buffer" | 1283 > M-x strokes-decode-buffer" |
1284 (interactive "P") | 1284 (interactive "P") |
1285 (let ((on-p (if arg | 1285 (let ((on-p (if arg |
1286 (> (prefix-numeric-value arg) 0) | 1286 (> (prefix-numeric-value arg) 0) |
1287 (not strokes-mode)))) | 1287 (not strokes-mode)))) |
1288 (cond ((not window-system) | 1288 (cond ((not (display-mouse-p)) |
1289 (error "Can't use strokes without windows")) | 1289 (error "Can't use strokes without a mouse")) |
1290 (on-p ; turn on strokes | 1290 (on-p ; turn on strokes |
1291 (and (file-exists-p strokes-file) | 1291 (and (file-exists-p strokes-file) |
1292 (null strokes-global-map) | 1292 (null strokes-global-map) |
1293 (strokes-load-user-strokes)) | 1293 (strokes-load-user-strokes)) |
1294 (add-hook 'kill-emacs-query-functions | 1294 (add-hook 'kill-emacs-query-functions |