Mercurial > emacs
comparison lisp/add-log.el @ 1089:1aea52712a31
entered into RCS
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Thu, 10 Sep 1992 22:59:11 +0000 |
| parents | 15b4ed20e524 |
| children | e7bc20e1b2b9 |
comparison
equal
deleted
inserted
replaced
| 1088:c4400ec7bee0 | 1089:1aea52712a31 |
|---|---|
| 244 (while (eq (char-after (- (point) 2)) ?\\) | 244 (while (eq (char-after (- (point) 2)) ?\\) |
| 245 (forward-line -1)) | 245 (forward-line -1)) |
| 246 (looking-at "[ \t]*#[ \t]*define[ \t]"))) | 246 (looking-at "[ \t]*#[ \t]*define[ \t]"))) |
| 247 ;; Handle a C macro definition. | 247 ;; Handle a C macro definition. |
| 248 (beginning-of-line) | 248 (beginning-of-line) |
| 249 (while (= (char-after (- (point) 2)) ?\\) | 249 (while (eq (char-after (- (point) 2)) ?\\) ;not =; note above |
| 250 (forward-line -1)) | 250 (forward-line -1)) |
| 251 (search-forward "define") | 251 (search-forward "define") |
| 252 (skip-chars-forward " \t") | 252 (skip-chars-forward " \t") |
| 253 (buffer-substring (point) | 253 (buffer-substring (point) |
| 254 (progn (forward-sexp 1) (point)))) | 254 (progn (forward-sexp 1) (point)))) |