Mercurial > emacs

comparison lisp/strokes.el @ 41570:7456b3a795c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(strokes-prompt-user-save-strokes): Use insert instead of insert-string.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 26 Nov 2001 16:22:21 +0000
parents 27d41d6ec45d
children 4c61a8ae179d
comparison
equal deleted inserted replaced
41569:f403516f2134 41570:7456b3a795c4
1293 (get-buffer-create "*saved-strokes*") 1293 (get-buffer-create "*saved-strokes*")
1294 (set-buffer "*saved-strokes*") 1294 (set-buffer "*saved-strokes*")
1295 (erase-buffer) 1295 (erase-buffer)
1296 (emacs-lisp-mode) 1296 (emacs-lisp-mode)
1297 (goto-char (point-min)) 1297 (goto-char (point-min))
1298 (insert-string 1298 (insert
1299 ";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n") 1299 ";; -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-\n")
1300 (insert-string (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-string (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)