From 2df8168ac7e284de2b340f87298efb46d3b883e8 Mon Sep 17 00:00:00 2001
From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 23 Aug 2024 17:24:02 +0200
Subject: [PATCH] ; * lisp/emacs-lisp/lisp.el (beginning-of-defun-raw):
 Simplify.

---
 lisp/emacs-lisp/lisp.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index af092733e18..e9cb526894b 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -416,10 +416,8 @@ of a defun, nil if it failed to find one."
            (while
                (and (setq found
                           (re-search-backward
-                           (if defun-prompt-regexp
-			       (concat "\\(?:" defun-prompt-regexp "\\)\\s(")
-			     "^\\s(")
-			                      nil 'move arg))
+                           (concat "\\(?:" defun-prompt-regexp "\\)\\s(")
+			   nil 'move arg))
                     (save-match-data
                       (nth 8 (syntax-ppss)))))
            found)
-- 
2.39.5