From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 18 Jul 2002 15:00:01 +0000 (+0000)
Subject: (dabbrev--search): Use inhibit-point-motion-hooks.
X-Git-Tag: ttn-vms-21-2-B4~14005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=155133a2576f1c37d1026f2d45e89aa822826782;p=emacs.git

(dabbrev--search): Use inhibit-point-motion-hooks.
---

diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el
index f2beb011247..9dba5d61ebe 100644
--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@@ -972,6 +972,9 @@ Leaves point at the location of the start of the expansion."
 			    "\\(" dabbrev--abbrev-char-regexp "\\)"))
 	  (pattern2 (concat (regexp-quote abbrev)
 			   "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))
+	  ;; This makes it possible to find matches in minibuffer prompts
+	  ;; even when they are "inviolable".
+	  (inhibit-point-motion-hooks t)
 	  found-string result)
       ;; Limited search.
       (save-restriction