From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 23 Aug 2024 15:24:02 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/lisp.el (beginning-of-defun-raw): Simplify.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2df8168ac7e284de2b340f87298efb46d3b883e8;p=emacs.git

; * lisp/emacs-lisp/lisp.el (beginning-of-defun-raw): Simplify.
---

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)