1298 |
(insert |
(insert |
1299 |
";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n") |
";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n") |
1300 |
(insert (format ";;; saved strokes for %s, as of %s\n\n" |
(insert (format ";;; saved strokes for %s, as of %s\n\n" |
1301 |
(user-full-name) |
(user-full-name) |
1302 |
(format-time-string "%B %e, %Y" nil))) |
(format-time-string "%B %e, %Y" nil))) |
1303 |
(message "Saving strokes in %s..." strokes-file) |
(message "Saving strokes in %s..." strokes-file) |
1304 |
(insert (format "(setq strokes-global-map '%s)" |
(insert (format "(setq strokes-global-map '%s)" |
1305 |
(pp current))) |
(pp current))) |
1306 |
(message "Saving strokes in %s..." strokes-file) |
(message "Saving strokes in %s..." strokes-file) |
1307 |
(indent-region (point-min) (point-max) nil) |
(indent-region (point-min) (point-max) nil) |
1308 |
(write-region (point-min) |
(write-region (point-min) |