comparison lisp/add-log.el @ 25273:c8d2d5e80cc0

(add-log-current-defun): Exclude all trailing whitespace. Handle `enum' like `struct'.

25272:db26c1e76313

					(>= location (point)))
                                          ;; Consistency check: going down and up
                                          ;; shouldn't take us back before BEG.
                                          (> (point) beg))
				 (let (end middle)
				   ;; Don't include any final newline
				   ;; in the name we use.
				   (if (= (preceding-char) ?\n)
				       (forward-char -1))
				   (setq end (point))
				   (backward-sexp 1)
				   ;; Now find the right beginning of the name.
				   ;; Include certain keywords if they
				   ;; precede the name.

				     (setq end (point))
				     (backward-sexp 1)
				     (setq middle (point))
				     (forward-word -1))
				   (and (bolp)
					(looking-at "struct \\|union \\|class ")
					(setq middle (point)))
				   (goto-char end)
				   (when (eq (preceding-char) ?=)
				     (forward-char -1)
				     (skip-chars-backward " \t")

25273:c8d2d5e80cc0

					(>= location (point)))
                                          ;; Consistency check: going down and up
                                          ;; shouldn't take us back before BEG.
                                          (> (point) beg))
				 (let (end middle)
				   ;; Don't include any final whitespace
				   ;; in the name we use.
				   (skip-chars-backward " \t\n")
				   (setq end (point))
				   (backward-sexp 1)
				   ;; Now find the right beginning of the name.
				   ;; Include certain keywords if they
				   ;; precede the name.

				     (setq end (point))
				     (backward-sexp 1)
				     (setq middle (point))
				     (forward-word -1))
				   (and (bolp)
					(looking-at "enum \\|struct \\|union \\|class ")
					(setq middle (point)))
				   (goto-char end)
				   (when (eq (preceding-char) ?=)
				     (forward-char -1)
				     (skip-chars-backward " \t")