Mercurial > hg > xemacs-beta

comparison lisp/mu/std11-parse.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1 ;;; std11-parse.el --- STD 11 parser for GNU Emacs 1 ;;; std11-parse.el --- STD 11 parser for GNU Emacs
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Keywords: mail, news, RFC 822, STD 11 6 ;; Keywords: mail, news, RFC 822, STD 11
7 ;; Version: 7 ;; Version:
8 ;; $Id: std11-parse.el,v 1.1.1.1 1996/12/18 22:43:39 steve Exp $ 8 ;; $Id: std11-parse.el,v 1.1.1.2 1996/12/21 20:50:53 steve Exp $
9 9
10 ;; This file is part of tl (Tiny Library). 10 ;; This file is part of MU (Message Utilities).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
13 ;; modify it under the terms of the GNU General Public License as 13 ;; modify it under the terms of the GNU General Public License as
14 ;; published by the Free Software Foundation; either version 2, or (at 14 ;; published by the Free Software Foundation; either version 2, or (at
15 ;; your option) any later version. 15 ;; your option) any later version.
66 (let ((len (length str)) 66 (let ((len (length str))
67 (i (or from 0)) 67 (i (or from 0))
68 ) 68 )
69 (if (and (> len i) 69 (if (and (> len i)
70 (eq (aref str i) open)) 70 (eq (aref str i) open))
71 (let (p chr dest) 71 (let (p chr)
72 (setq i (1+ i)) 72 (setq i (1+ i))
73 (catch 'tag 73 (catch 'tag
74 (while (< i len) 74 (while (< i len)
75 (setq chr (aref str i)) 75 (setq chr (aref str i))
76 (cond ((eq chr ?\\) 76 (cond ((eq chr ?\\)