# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1079930508 0
# Node ID 0610337ed9b5785b4a043cbbca78fb61d0361beb
# Parent  d21aba49e1cec8210bcdd11c8363a1fb77562441
(format-insert-file): Always return a list of two elements,
like insert-file-contents does.

diff -r d21aba49e1ce -r 0610337ed9b5 lisp/format.el
--- a/lisp/format.el	Sun Mar 21 15:53:17 2004 +0000
+++ b/lisp/format.el	Mon Mar 22 04:41:48 2004 +0000
@@ -416,7 +416,7 @@
 the part of the file to read.
 
 The return value is like the value of `insert-file-contents':
-a list (ABSOLUTE-FILE-NAME . SIZE)."
+a list (ABSOLUTE-FILE-NAME SIZE)."
   (interactive
    ;; Same interactive spec as write-file, plus format question.
    (let* ((file (read-file-name "Find file: "))
@@ -429,7 +429,7 @@
       (setq size (nth 1 value)))
     (if format
 	(setq size (format-decode format size)
-	      value (cons (car value) size)))
+	      value (list (car value) size)))
     value))
 
 (defun format-read (&optional prompt)