(c-emacs-features): Check the working of beginning/end-of-defun-function

more rigorously before setting argumentative-bod-function.

diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index f360cc3355943ffef5a65af459094543f5aaef17..01b11cfe8e296c15f32cee91b68ec8b5b06a3971 100644 (file)
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -1443,15 +1443,27 @@ non-nil, a caret is prepended to invert the set."
                         '1-bit)
                       list)))
 
-    ;; In Emacs >= 23, beginning-of-defun-raw passes its argument to
-    ;; beginning-of-defun-function.  Assume end-of-defun does likewise.
-    (let ((beginning-of-defun-function
+    ;; Check whether beginning/end-of-defun call
+    ;; beginning/end-of-defun-function nicely, passing through the
+    ;; argument and respecting the return code.
+    (let (mark-ring
+         (bod-param 'foo) (eod-param 'foo)
+         (beginning-of-defun-function
           (lambda (&optional arg)
-            (not (eq arg nil))))
-         mark-ring)
-      (save-excursion
-       (if (beginning-of-defun-raw 1)
-           (setq list (cons 'argumentative-bod-function list)))))
+            (or (eq bod-param 'foo) (setq bod-param 'bar))
+            (and (eq bod-param 'foo)
+                 (setq bod-param arg)
+                 (eq arg 3))))
+         (end-of-defun-function
+          (lambda (&optional arg)
+            (and (eq eod-param 'foo)
+                 (setq eod-param arg)
+                 (eq arg 3)))))
+      (if (save-excursion (and (beginning-of-defun 3) (= bod-param 3)
+                              (not (beginning-of-defun))
+                              (end-of-defun 3) (= eod-param 3)
+                              (not (end-of-defun))))
+         (setq list (cons 'argumentative-bod-function list))))
 
     (let ((buf (generate-new-buffer " test"))
          parse-sexp-lookup-properties