/[emacs]/emacs/lisp/add-log.el
ViewVC logotype

Diff of /emacs/lisp/add-log.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.170 by rms, Sun Oct 23 17:58:45 2005 UTC revision 1.171 by jet, Thu Nov 10 12:36:52 2005 UTC
# Line 860  Has a preference of looking backwards." Line 860  Has a preference of looking backwards."
860                                     (skip-syntax-backward " ")                                     (skip-syntax-backward " ")
861                                     (point))))                                     (point))))
862                         (if (looking-at "^[+-]")                         (if (looking-at "^[+-]")
863                             ;; C++.                             ;; Objective-C
864                             (change-log-get-method-definition)                             (change-log-get-method-definition)
865                           ;; Ordinary C function syntax.                           ;; Ordinary C function syntax.
866                           (setq beg (point))                           (setq beg (point))
# Line 901  Has a preference of looking backwards." Line 901  Has a preference of looking backwards."
901                                 ;; precede the name.                                 ;; precede the name.
902                                 (setq middle (point))                                 (setq middle (point))
903                                 (forward-word -1)                                 (forward-word -1)
904                                   ;; Is this C++ method?
905                                   (when (and (< 2 middle)
906                                              (string= (buffer-substring (- middle 2)
907                                                                         middle)
908                                                       "::"))
909                                     ;; Include "classname::".
910                                     (setq middle (point)))
911                                 ;; Ignore these subparts of a class decl                                 ;; Ignore these subparts of a class decl
912                                 ;; and move back to the class name itself.                                 ;; and move back to the class name itself.
913                                 (while (looking-at "public \\|private ")                                 (while (looking-at "public \\|private ")

Legend:
Removed from v.1.170  
changed lines
  Added in v.1.171

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26