Mercurial > hg > xemacs-beta

comparison lisp/prim/format.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents b82b59fe008d
children 131b0175ea99
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
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.