Parent Directory | Revision Log | Patch
revision 1.31 by lute, Mon Jul 4 16:59:18 2005 UTC | revision 1.32 by rms, Sat Jul 16 18:41:15 2005 UTC | |
---|---|---|
# | Line 204 repeatedly until you are satisfied with | Line 204 repeatedly until you are satisfied with |
204 | (let (comempty comment) | (let (comempty comment) |
205 | (save-excursion | (save-excursion |
206 | (beginning-of-line) | (beginning-of-line) |
207 | (setq comment (comment-search-forward (line-end-position) t)) | (with-no-warnings |
208 | (setq comment (comment-search-forward (line-end-position) t))) | |
209 | (setq comempty (looking-at "[ \t]*$"))) | (setq comempty (looking-at "[ \t]*$"))) |
210 | ||
211 | (cond | (cond |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |