# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 934773366 0
# Node ID c8d2d5e80cc0d2e15b509bc8f2a9113f4c0c6083
# Parent  db26c1e763139ae825bcba6e7d1ca3a30964c2a6
(add-log-current-defun): Exclude all trailing whitespace.
Handle `enum' like `struct'.

diff -r db26c1e76313 -r c8d2d5e80cc0 lisp/add-log.el
--- a/lisp/add-log.el	Mon Aug 16 03:15:11 1999 +0000
+++ b/lisp/add-log.el	Mon Aug 16 03:16:06 1999 +0000
@@ -612,10 +612,9 @@
                                           ;; 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 @@
 				     (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) ?=)