# HG changeset patch # User Pavel Jank # Date 1006791741 0 # Node ID 7456b3a795c442106ca849ebe6a5234f4ff4d3cb # Parent f403516f2134167b275788d03b130ee5741710e5 (strokes-prompt-user-save-strokes): Use insert instead of insert-string. diff -r f403516f2134 -r 7456b3a795c4 lisp/strokes.el --- a/lisp/strokes.el Mon Nov 26 16:21:40 2001 +0000 +++ b/lisp/strokes.el Mon Nov 26 16:22:21 2001 +0000 @@ -1295,13 +1295,13 @@ (erase-buffer) (emacs-lisp-mode) (goto-char (point-min)) - (insert-string + (insert ";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n") - (insert-string (format ";;; saved strokes for %s, as of %s\n\n" + (insert (format ";;; saved strokes for %s, as of %s\n\n" (user-full-name) (format-time-string "%B %e, %Y" nil))) (message "Saving strokes in %s..." strokes-file) - (insert-string (format "(setq strokes-global-map '%s)" + (insert (format "(setq strokes-global-map '%s)" (pp current))) (message "Saving strokes in %s..." strokes-file) (indent-region (point-min) (point-max) nil)