Commit 43711c22 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dabbrev--goto-start-of-abbrev): Put a limit on field-beginning search.

parent 1665be47
......@@ -599,7 +599,9 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
(progn
(forward-char -1)
(while (and (looking-at dabbrev--abbrev-char-regexp)
(not (= (point) (field-beginning (point)))))
(not (bobp))
(not (= (point) (field-beginning (point) nil
(1- (point))))))
(forward-char -1))
(or (looking-at dabbrev--abbrev-char-regexp)
(forward-char 1))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment