Mercurial > hg > xemacs-beta

comparison lisp/prim/format.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents b9518feda344
children 43dd3413c7c7
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
290 (let (value size) 290 (let (value size)
291 (let ((format-alist nil)) 291 (let ((format-alist nil))
292 (setq value (insert-file-contents filename nil beg end)) 292 (setq value (insert-file-contents filename nil beg end))
293 (setq size (nth 1 value))) 293 (setq size (nth 1 value)))
294 (if format 294 (if format
295 (setq size (format-decode size format) 295 (setq size (format-decode format size)
296 value (cons (car value) size))) 296 value (cons (car value) size)))
297 value)) 297 value))
298 298
299 (defun format-read (&optional prompt) 299 (defun format-read (&optional prompt)
300 "Read and return the name of a format. 300 "Read and return the name of a format.