Mercurial > emacs

changeset 54469:0610337ed9b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(format-insert-file): Always return a list of two elements, like insert-file-contents does.
author Luc Teirlinck <teirllm@auburn.edu>
date Mon, 22 Mar 2004 04:41:48 +0000
parents d21aba49e1ce
children b86ac1ad1f97
files lisp/format.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)