(add-log-current-defun): Handle `private', `public' in C++ class definitions.

6dfa1d83 · Richard M. Stallman · 7badea30 · 6dfa1d83
Commit 6dfa1d83 authored Oct 20, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

lisp/add-log.el lisp/add-log.el +8 -0

No files found.
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -444,6 +444,14 @@ Has a preference of looking backwards."
 				   ;; precede the name.
 				   (setq middle (point))
 				   (forward-word -1)
+				   ;; Ignore these subparts of a class decl
+				   ;; and move back to the class name itself.
+				   (while (looking-at "public \\|private ")
+				     (skip-chars-backward " \t:")
+				     (setq end (point))
+				     (backward-sexp 1)
+				     (setq middle (point))
+				     (forward-word -1))
 				   (and (bolp)
 					(looking-at "struct \\|union \\|class ")
 					(setq middle (point)))