mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(add-log-current-defun): Exclude all trailing whitespace.

Browse source 
Handle `enum' like `struct'.
This commit is contained in:
Karl Heuer 1999-08-16 03:16:06 +00:00
parent 0c40a645af
commit fe44bc6d35
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/add-log.el
View file

@ -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) ?=)