[elpa] externals/cape 551c9c14f0 3/3: cape--dabbrev-bounds: Check buffer limit

[ELPA Syncer]

branch: externals/cape
commit 551c9c14f083c3edc84fcb640deda75c2034400d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    cape--dabbrev-bounds: Check buffer limit
---
 cape.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/cape.el b/cape.el
index ddb5808de8..0e777bf1c7 100644
--- a/cape.el
+++ b/cape.el
@@ -448,11 +448,14 @@ If INTERACTIVE is nil the function acts like a Capf."
   "Return bounds of abbreviation."
   (unless (boundp 'dabbrev-abbrev-char-regexp)
     (require 'dabbrev))
-  (let ((re (or dabbrev-abbrev-char-regexp "\\sw\\|\\s_")))
+  (let ((re (or dabbrev-abbrev-char-regexp "\\sw\\|\\s_"))
+        (limit (minibuffer-prompt-end)))
     (when (or (looking-at re)
-              (save-excursion (forward-char -1) (looking-at re)))
+              (and (> (point) limit)
+                   (save-excursion (forward-char -1) (looking-at re))))
       (cons (save-excursion
-              (while (save-excursion (forward-char -1) (looking-at re))
+              (while (and (> (point) limit)
+                          (save-excursion (forward-char -1) (looking-at re)))
                 (forward-char -1))
               (when dabbrev-abbrev-skip-leading-regexp
                 (while (looking-at dabbrev-abbrev-skip-leading-regexp)