Mercurial > emacs

comparison lisp/dabbrev.el @ 43981:1b2a6ccacf7b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dabbrev--goto-start-of-abbrev): Put a limit on field-beginning search.
author Richard M. Stallman <rms@gnu.org>
date Mon, 18 Mar 2002 04:24:57 +0000
parents 875f7fc9838e
children e3ba76f78075
comparison
equal deleted inserted replaced
43980:f631e828090d 43981:1b2a6ccacf7b
597 (save-match-data 597 (save-match-data
598 (if (not (bobp)) 598 (if (not (bobp))
599 (progn 599 (progn
600 (forward-char -1) 600 (forward-char -1)
601 (while (and (looking-at dabbrev--abbrev-char-regexp) 601 (while (and (looking-at dabbrev--abbrev-char-regexp)
602 (not (= (point) (field-beginning (point))))) 602 (not (bobp))
603 (not (= (point) (field-beginning (point) nil
604 (1- (point))))))
603 (forward-char -1)) 605 (forward-char -1))
604 (or (looking-at dabbrev--abbrev-char-regexp) 606 (or (looking-at dabbrev--abbrev-char-regexp)
605 (forward-char 1)))) 607 (forward-char 1))))
606 (and dabbrev-abbrev-skip-leading-regexp 608 (and dabbrev-abbrev-skip-leading-regexp
607 (while (looking-at dabbrev-abbrev-skip-leading-regexp) 609 (while (looking-at dabbrev-abbrev-skip-leading-regexp)