Mercurial > emacs
comparison lisp/add-log.el @ 13255:9e94f911f00c
(add-log-current-defun): Handle `private', `public' in C++ class definitions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 20 Oct 1995 15:22:56 +0000 |
| parents | 1bc6075184d7 |
| children | 69fe836d7f02 |
comparison
equal
deleted
inserted
replaced
| 13254:7ed0775e99af | 13255:9e94f911f00c |
|---|---|
| 442 ;; Now find the right beginning of the name. | 442 ;; Now find the right beginning of the name. |
| 443 ;; Include certain keywords if they | 443 ;; Include certain keywords if they |
| 444 ;; precede the name. | 444 ;; precede the name. |
| 445 (setq middle (point)) | 445 (setq middle (point)) |
| 446 (forward-word -1) | 446 (forward-word -1) |
| 447 ;; Ignore these subparts of a class decl | |
| 448 ;; and move back to the class name itself. | |
| 449 (while (looking-at "public \\|private ") | |
| 450 (skip-chars-backward " \t:") | |
| 451 (setq end (point)) | |
| 452 (backward-sexp 1) | |
| 453 (setq middle (point)) | |
| 454 (forward-word -1)) | |
| 447 (and (bolp) | 455 (and (bolp) |
| 448 (looking-at "struct \\|union \\|class ") | 456 (looking-at "struct \\|union \\|class ") |
| 449 (setq middle (point))) | 457 (setq middle (point))) |
| 450 (buffer-substring middle end))))))))) | 458 (buffer-substring middle end))))))))) |
| 451 ((memq major-mode | 459 ((memq major-mode |