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

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index bfba153f0240716f373d46b62ed8b1c8edef0098..9d75150b08492d46e2c020f3ce6a6a608ad11ab7 100644 (file)
--- 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))