; * 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 af092733e18e7221dab9374a86dd67137f2a269c..e9cb526894b2462102c31a13669825cb956ad978 100644 (file)
--- 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)