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

more rigorously before setting argumentative-bod-function.

1 files changed, 20 insertions, 8 deletions

diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index f360cc33559..01b11cfe8e2 100644
--- 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