summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/simple.el4
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."
"\
Get previous element of history which is a completion of minibuffer contents."
(interactive "p")
- (next-matching-history-element (concat "^" (regexp-quote (buffer-string)))
- n))
+ (next-matching-history-element
+ (concat "^" (regexp-quote (buffer-substring (point-min) (point)))) n))
(defun previous-complete-history-element (n)
"Get next element of history which is a completion of minibuffer contents."