(c-end-of-statement-1): Wrap backward-up-list in a c-safe call so no

error results when buffer contains only a comment and point is at eob.

(c-inside-bracelist-p): Add a test to the enum list test so that enum
in a k&r arg decl doesn't confuse handling of the function body.

diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 5aa24e67fc0759ed45cdb57d17d65b2c6297ad4a..9fd6d37248543a7fe574e15572a922031d257161 100644 (file)
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -7,7 +7,7 @@
 ;;             1985 Richard M. Stallman
 ;; Maintainer: cc-mode-help@python.org
 ;; Created:    22-Apr-1997 (split from cc-mode.el)
-;; Version:    5.16
+;; Version:    5.17
 ;; Keywords:   c languages oop
 
 ;; This file is part of GNU Emacs.
@@ -188,13 +188,13 @@
          (goto-char end))
        (re-search-backward "[;{}]")
        (forward-char 1))
-    (error 
+    (error
      (let ((beg (point)))
-       (backward-up-list -1)
+       (c-safe (backward-up-list -1))
        (let ((end (point)))
         (goto-char beg)
-        (search-forward ";" end 'move))))))
-
+        (search-forward ";" end 'move)))
+     )))
 
 \f
 (defun c-crosses-statement-barrier-p (from to)
@@ -750,9 +750,11 @@
        (save-excursion
         (goto-char containing-sexp)
         (forward-sexp -1)
-        (if (or (looking-at "enum[\t\n ]+")
-                (progn (forward-sexp -1)
-                       (looking-at "enum[\t\n ]+")))
+        (if (and (or (looking-at "enum[\t\n ]+")
+                     (progn (forward-sexp -1)
+                            (looking-at "enum[\t\n ]+")))
+                 (progn (c-end-of-statement-1)
+                        (> (point) containing-sexp)))
             (point)))
      (error nil))
    ;; this will pick up array/aggregate init lists, even if they are nested.