Parent Directory | Revision Log | Patch
revision 1.7 by lektu, Tue Feb 4 12:47:09 2003 UTC | revision 1.8 by lektu, Tue Feb 18 10:58:50 2003 UTC | |
---|---|---|
# | Line 391 | Line 391 |
391 | (delete-region (match-beginning 0) (match-end 0)) | (delete-region (match-beginning 0) (match-end 0)) |
392 | (if (looking-at ",") | (if (looking-at ",") |
393 | (delete-char 1) | (delete-char 1) |
394 | (while (memq (preceding-char) '(?\ ?\t)) | (while (memq (preceding-char) '(?\s ?\t)) |
395 | (forward-char -1)) | (forward-char -1)) |
396 | (if (eq (preceding-char) ?\,) | (if (eq (preceding-char) ?\,) |
397 | (delete-backward-char 1)))) | (delete-backward-char 1)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |