diff options
| author | Masatake YAMATO <jet@gyve.org> | 2005-11-10 12:36:52 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2005-11-10 12:36:52 +0000 |
| commit | 94b073f33d8d8069f0477c561f67826c95feb8d1 (patch) | |
| tree | 3e9a58aa8a83bbd17ec39e731e7b47b862ace8e6 /lisp/add-log.el | |
| parent | 19a9c3b741cb254dc74c9f673ce484feb3801fdf (diff) | |
| download | emacs-94b073f33d8d8069f0477c561f67826c95feb8d1.tar.gz | |
(add-log-current-defun): Handle class::method notation of c++.
Fix incorrect comment.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 024262a6bee..91d7ba36bab 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -860,7 +860,7 @@ Has a preference of looking backwards." (skip-syntax-backward " ") (point)))) (if (looking-at "^[+-]") - ;; C++. + ;; Objective-C (change-log-get-method-definition) ;; Ordinary C function syntax. (setq beg (point)) @@ -901,6 +901,13 @@ Has a preference of looking backwards." ;; precede the name. (setq middle (point)) (forward-word -1) + ;; Is this C++ method? + (when (and (< 2 middle) + (string= (buffer-substring (- middle 2) + middle) + "::")) + ;; Include "classname::". + (setq middle (point))) ;; Ignore these subparts of a class decl ;; and move back to the class name itself. (while (looking-at "public \\|private ") |