Mercurial > emacs
comparison lisp/add-log.el @ 24940:ca83292ec6f2
(add-log-current-defun): Remove trailing -=' in C modes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 09 Jul 1999 18:37:55 +0000 |
| parents | 7917ac967ee5 |
| children | c8d2d5e80cc0 |
comparison
equal
deleted
inserted
replaced
| 24939:db6ed843d5e8 | 24940:ca83292ec6f2 |
|---|---|
| 632 (setq middle (point)) | 632 (setq middle (point)) |
| 633 (forward-word -1)) | 633 (forward-word -1)) |
| 634 (and (bolp) | 634 (and (bolp) |
| 635 (looking-at "struct \\|union \\|class ") | 635 (looking-at "struct \\|union \\|class ") |
| 636 (setq middle (point))) | 636 (setq middle (point))) |
| 637 (goto-char end) | |
| 638 (when (eq (preceding-char) ?=) | |
| 639 (forward-char -1) | |
| 640 (skip-chars-backward " \t") | |
| 641 (setq end (point))) | |
| 637 (buffer-substring middle end))))))))) | 642 (buffer-substring middle end))))))))) |
| 638 ((memq major-mode add-log-tex-like-modes) | 643 ((memq major-mode add-log-tex-like-modes) |
| 639 (if (re-search-backward | 644 (if (re-search-backward |
| 640 "\\\\\\(sub\\)*\\(section\\|paragraph\\|chapter\\)" nil t) | 645 "\\\\\\(sub\\)*\\(section\\|paragraph\\|chapter\\)" nil t) |
| 641 (progn | 646 (progn |