Commit d80788d8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(add-log-current-defun): In normal C case,

start with beginning-of-line.
In last (fallback) case, start with end-of-line.
(add-log-current-defun-header-regexp): In first alternative
within the parens, don't allow space as last character.
parent 7b02ee3c
......@@ -203,7 +203,7 @@ Runs `change-log-mode-hook'."
(run-hooks 'change-log-mode-hook))
(defvar add-log-current-defun-header-regexp
"^\\([A-Z][A-Z_ ]+\\|[a-z_---A-Z]+\\)[ \t]*[:=]"
"^\\([A-Z][A-Z_ ]*[A-Z_]\\|[a-z_---A-Z]+\\)[ \t]*[:=]"
"*Heuristic regexp used by `add-log-current-defun' for unknown major modes.")
(defun add-log-current-defun ()
......@@ -253,6 +253,7 @@ Has a preference of looking backwards."
(buffer-substring (point)
(progn (forward-sexp 1) (point))))
((memq major-mode '(c-mode 'c++-mode))
;; See if we are in the beginning part of a function,
;; before the open brace. If so, advance forward.
(while (not (looking-at "{\\|\\(\\s *$\\)"))
......@@ -340,6 +341,7 @@ Has a preference of looking backwards."
;; If all else fails, try heuristics
(let (case-fold-search)
(if (re-search-backward add-log-current-defun-header-regexp
(- (point) 10000)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment