From fe44bc6d35140096916c8524613b6fb6f711d0ce Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 16 Aug 1999 03:16:06 +0000 Subject: [PATCH] (add-log-current-defun): Exclude all trailing whitespace. Handle `enum' like `struct'. --- lisp/add-log.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/add-log.el b/lisp/add-log.el index 24ff059c3a..f85a62e30e 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -612,10 +612,9 @@ Has a preference of looking backwards." ;; shouldn't take us back before BEG. (> (point) beg)) (let (end middle) - ;; Don't include any final newline + ;; Don't include any final whitespace ;; in the name we use. - (if (= (preceding-char) ?\n) - (forward-char -1)) + (skip-chars-backward " \t\n") (setq end (point)) (backward-sexp 1) ;; Now find the right beginning of the name. @@ -632,7 +631,7 @@ Has a preference of looking backwards." (setq middle (point)) (forward-word -1)) (and (bolp) - (looking-at "struct \\|union \\|class ") + (looking-at "enum \\|struct \\|union \\|class ") (setq middle (point))) (goto-char end) (when (eq (preceding-char) ?=) -- 2.20.1