Mercurial > emacs

comparison lisp/format.el @ 53862:a1177e068d43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(format-decode): Fix format string.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Feb 2004 22:37:02 +0000
parents 695cf19ef79e
children 0610337ed9b5
comparison
equal deleted inserted replaced
53861:8af44ca54bdf 53862:a1177e068d43
1 ;;; format.el --- read and save files in multiple formats 1 ;;; format.el --- read and save files in multiple formats
2 2
3 ;; Copyright (c) 1994, 1995, 1997, 1999 Free Software Foundation 3 ;; Copyright (c) 1994, 1995, 1997, 1999, 2004 Free Software Foundation
4 4
5 ;; Author: Boris Goldowsky <boris@gnu.org> 5 ;; Author: Boris Goldowsky <boris@gnu.org>
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
285 ;; Deal with given format(s) 285 ;; Deal with given format(s)
286 (or (listp format) (setq format (list format))) 286 (or (listp format) (setq format (list format)))
287 (let ((do format) f) 287 (let ((do format) f)
288 (while do 288 (while do
289 (or (setq f (assq (car do) format-alist)) 289 (or (setq f (assq (car do) format-alist))
290 (error "Unknown format" (car do))) 290 (error "Unknown format %s" (car do)))
291 ;; Decode: 291 ;; Decode:
292 (if (nth 3 f) 292 (if (nth 3 f)
293 (setq end (format-decode-run-method (nth 3 f) begin end))) 293 (setq end (format-decode-run-method (nth 3 f) begin end)))
294 ;; Call visit function if required 294 ;; Call visit function if required
295 (if (and visit-flag (nth 6 f)) (funcall (nth 6 f) 1)) 295 (if (and visit-flag (nth 6 f)) (funcall (nth 6 f) 1))