From: Pavel Janík Date: Mon, 26 Nov 2001 16:22:21 +0000 (+0000) Subject: (strokes-prompt-user-save-strokes): Use insert instead of insert-string. X-Git-Tag: ttn-vms-21-2-B4~18124 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=051f98305e9d58373af32ed21137ae5a2a2ac48f;p=emacs.git (strokes-prompt-user-save-strokes): Use insert instead of insert-string. --- diff --git a/lisp/strokes.el b/lisp/strokes.el index 7c9423b3c8f..e3a1f2b3bf4 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1295,13 +1295,13 @@ This is based on the last time the `strokes-window-configuration was updated." (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)