Parent Directory | Revision Log | Patch
revision 1.230 by angeli, Sat May 28 16:18:19 2005 UTC | revision 1.231 by dak, Mon Jun 6 15:53:13 2005 UTC | |
---|---|---|
# | Line 1041 command." | Line 1041 command." |
1041 | (not (eq ?\] (char-after))) | (not (eq ?\] (char-after))) |
1042 | (progn | (progn |
1043 | (unless old-match | (unless old-match |
1044 | (setq old-match (list (match-data)))) | (setq old-match (list (match-data t)))) |
1045 | (setq str (buffer-substring (1- (point)) end) | (setq str (buffer-substring (1- (point)) end) |
1046 | pos nil) | pos nil) |
1047 | (while (setq pos (string-match "\n" str pos)) | (while (setq pos (string-match "\n" str pos)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |