From: Dima Kogan <dima@secretsauce.net>
Date: Fri, 25 Nov 2016 21:15:12 +0000 (-0800)
Subject: comint-get-old-input-default: behavior follows docstring
X-Git-Tag: emacs-26.0.90~858^2~49
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c941b900007c9e79c00af0f21d88154f6d8af1a;p=emacs.git

comint-get-old-input-default: behavior follows docstring

lisp/comint.el (comint-get-old-input-default): Modify behavior to follow
docstring: if `comint-use-prompt-regexp' is nil, then return the CURRENT LINE,
if point is on an output field.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index 830f4ca88f9..b23f72ed618 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2239,10 +2239,7 @@ the current line with any initial string matching the regexp
              (null (get-char-property (setq bof (field-beginning)) 'field)))
 	(field-string-no-properties bof)
       (comint-bol)
-      (buffer-substring-no-properties (point)
-				      (if comint-use-prompt-regexp
-					  (line-end-position)
-					(field-end))))))
+      (buffer-substring-no-properties (point) (line-end-position)))))
 
 (defun comint-copy-old-input ()
   "Insert after prompt old input at point as new input to be edited.