;;; savehist.el --- Save minibuffer history
-;; Copyright (C) 1997, 2005-2014 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2005-2016 Free Software Foundation, Inc.
;; Author: Hrvoje Niksic <hniksic@xemacs.org>
;; Maintainer: emacs-devel@gnu.org
(interactive)
(with-temp-buffer
(insert
- (format ";; -*- mode: emacs-lisp; coding: %s -*-\n" savehist-coding-system)
- ";; Minibuffer history file, automatically generated by `savehist'.\n\n")
+ (format-message
+ (concat
+ ";; -*- mode: emacs-lisp; coding: %s -*-\n"
+ ";; Minibuffer history file, automatically generated by `savehist'.\n"
+ "\n")
+ savehist-coding-system))
(run-hooks 'savehist-save-hook)
(let ((print-length nil)
(print-string-length nil)