Mercurial > emacs
comparison lisp/strokes.el @ 41603:4c61a8ae179d
Fix indentation of previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 Nov 2001 04:30:43 +0000 |
| parents | 7456b3a795c4 |
| children | ae3e8c9e9b87 |
comparison
equal
deleted
inserted
replaced
| 41602:402b676048e8 | 41603:4c61a8ae179d |
|---|---|
| 1296 (emacs-lisp-mode) | 1296 (emacs-lisp-mode) |
| 1297 (goto-char (point-min)) | 1297 (goto-char (point-min)) |
| 1298 (insert | 1298 (insert |
| 1299 ";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n") | 1299 ";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n") |
| 1300 (insert (format ";;; saved strokes for %s, as of %s\n\n" | 1300 (insert (format ";;; saved strokes for %s, as of %s\n\n" |
| 1301 (user-full-name) | 1301 (user-full-name) |
| 1302 (format-time-string "%B %e, %Y" nil))) | 1302 (format-time-string "%B %e, %Y" nil))) |
| 1303 (message "Saving strokes in %s..." strokes-file) | 1303 (message "Saving strokes in %s..." strokes-file) |
| 1304 (insert (format "(setq strokes-global-map '%s)" | 1304 (insert (format "(setq strokes-global-map '%s)" |
| 1305 (pp current))) | 1305 (pp current))) |
| 1306 (message "Saving strokes in %s..." strokes-file) | 1306 (message "Saving strokes in %s..." strokes-file) |
| 1307 (indent-region (point-min) (point-max) nil) | 1307 (indent-region (point-min) (point-max) nil) |
| 1308 (write-region (point-min) | 1308 (write-region (point-min) |
| 1309 (point-max) | 1309 (point-max) |
| 1310 strokes-file)) | 1310 strokes-file)) |