diff options
| author | Richard M. Stallman | 1999-07-09 18:37:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-07-09 18:37:55 +0000 |
| commit | a0bcdd7f58bee1e0a29866e60e2af7b9ca26f7c6 (patch) | |
| tree | 3f591df5fbabe087814229856666b60a55e4f480 | |
| parent | f165ac6642751893b53f5c8e9ebaddb9fe3e20a9 (diff) | |
| download | emacs-a0bcdd7f58bee1e0a29866e60e2af7b9ca26f7c6.tar.gz emacs-a0bcdd7f58bee1e0a29866e60e2af7b9ca26f7c6.zip | |
(add-log-current-defun): Remove trailing -=' in C modes.
| -rw-r--r-- | lisp/add-log.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 0c8c36dc51c..24ff059c3a5 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el | |||
| @@ -634,6 +634,11 @@ Has a preference of looking backwards." | |||
| 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 |