diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-03-22 04:41:48 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-03-22 04:41:48 +0000 |
| commit | 8c50e2d5c05cfffa52a8f0462cee2da4ac4c97bc (patch) | |
| tree | 2995fece8a096e97c281cfb624dbcde250edfae5 /lisp/format.el | |
| parent | a09e6e700a097524a1f2b42eab06559fe4e64fae (diff) | |
| download | emacs-8c50e2d5c05cfffa52a8f0462cee2da4ac4c97bc.tar.gz | |
(format-insert-file): Always return a list of two elements,
like insert-file-contents does.
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/format.el b/lisp/format.el index 90047e98a6c..09d3e5fa715 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -416,7 +416,7 @@ The optional third and fourth arguments BEG and END specify 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 @@ a list (ABSOLUTE-FILE-NAME . SIZE)." (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) |