Parent Directory | Revision Log | Patch
revision 1.17 by miles, Tue Apr 19 06:53:24 2005 UTC | revision 1.18 by miles, Mon May 30 17:13:58 2005 UTC | |
---|---|---|
# | Line 69 them into characters should be done sepa | Line 69 them into characters should be done sepa |
69 | (cond ((eq (char-after (1+ (point))) ?\n) | (cond ((eq (char-after (1+ (point))) ?\n) |
70 | (delete-char 2)) | (delete-char 2)) |
71 | ((looking-at "=[0-9A-F][0-9A-F]") | ((looking-at "=[0-9A-F][0-9A-F]") |
72 | (let ((byte (string-to-int (buffer-substring (1+ (point)) | (let ((byte (string-to-number (buffer-substring (1+ (point)) |
73 | (+ 3 (point))) | (+ 3 (point))) |
74 | 16))) | 16))) |
75 | (mm-insert-byte byte 1) | (mm-insert-byte byte 1) |
76 | (delete-char 3))) | (delete-char 3))) |
77 | (t | (t |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |