diff lisp/format.el @ 54469:0610337ed9b5

(format-insert-file): Always return a list of two elements, like insert-file-contents does.

--- 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)