From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 9 Mar 2025 06:56:26 +0000 (+0100)
Subject: ; * lisp/dabbrev.el (dabbrev-expansions): Fix infloop.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a05b88174f254933f62a88dacf8a54d70111770;p=emacs.git

; * lisp/dabbrev.el (dabbrev-expansions): Fix infloop.
---

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index bfba153f024..9d75150b084 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -60,7 +60,7 @@ addition to the current buffer and the visible buffers.")
                                   (member match more)
                                   (member match expansions))
                         (push match more))))))))))
-    (when (and abbrev anchor)
+    (when (and abbrev (not (string-empty-p abbrev)) anchor)
       ;; Search the current buffer.
       (save-excursion
         (goto-char (point-min))