/[emacs]/emacs/lisp/strokes.el
ViewVC logotype

Diff of /emacs/lisp/strokes.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by fx, Fri Sep 15 17:22:25 2000 UTC revision 1.7 by pj, Mon Nov 26 16:22:21 2001 UTC
# Line 1295  This is based on the last time the `stro Line 1295  This is based on the last time the `stro
1295                    (erase-buffer)                    (erase-buffer)
1296                    (emacs-lisp-mode)                    (emacs-lisp-mode)
1297                    (goto-char (point-min))                    (goto-char (point-min))
1298                    (insert-string                    (insert
1299                     ";;   -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n")                     ";;   -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n")
1300                    (insert-string (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-string (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)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26