diff options
| author | Roland McGrath | 1993-01-25 16:59:48 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-01-25 16:59:48 +0000 |
| commit | c7e69876999c3beb7b8af55e48935d8094884ae9 (patch) | |
| tree | b67e38dd23d5f9a18725a473a838285f5eb0d064 | |
| parent | d0678801de6f32bcf2541e7b78e1ade6d3c3045b (diff) | |
| download | emacs-c7e69876999c3beb7b8af55e48935d8094884ae9.tar.gz emacs-c7e69876999c3beb7b8af55e48935d8094884ae9.zip | |
(next-complete-history-element): Use only buffer contents before point
to match history elements.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index abd57753245..e0a027c660d 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -536,8 +536,8 @@ If N is negative, find the previous or Nth previous match." | |||
| 536 | "\ | 536 | "\ |
| 537 | Get previous element of history which is a completion of minibuffer contents." | 537 | Get previous element of history which is a completion of minibuffer contents." |
| 538 | (interactive "p") | 538 | (interactive "p") |
| 539 | (next-matching-history-element (concat "^" (regexp-quote (buffer-string))) | 539 | (next-matching-history-element |
| 540 | n)) | 540 | (concat "^" (regexp-quote (buffer-substring (point-min) (point)))) n)) |
| 541 | 541 | ||
| 542 | (defun previous-complete-history-element (n) | 542 | (defun previous-complete-history-element (n) |
| 543 | "Get next element of history which is a completion of minibuffer contents." | 543 | "Get next element of history which is a completion of minibuffer contents." |