Commit d3b98912 authored by Miles Bader's avatar Miles Bader
Browse files

(comint-get-old-input-default): Don't signal an error if point is not on

an input field; instead, return the current line (using `comint-bol' to
skip any prompt, in case we're not using fields at all).
parent c7cbaf4a
2001-08-22 Miles Bader <miles@gnu.org>
* comint.el (comint-get-old-input-default): Don't signal an error
if point is not on an input field; instead, return the current
line (using `comint-bol' to skip any prompt, in case we're not
using fields at all).
* man.el (Man-mode-line-format): Variable removed.
(Man-mode): Change `mode-line-buffer-identification' instead of
`mode-line-format'.
2001-08-27 Gerd Moellmann <gerd@gnu.org>
 
* mail/sendmail.el (mail-send-hook): Remove a duplicate defcustom.
......
......@@ -1372,10 +1372,13 @@ The values of `comint-get-old-input', `comint-input-filter-functions', and
in the buffer. E.g.,
If the interpreter is the csh,
comint-get-old-input is the default: either return the current
field, or take the current line and discard any
initial string matching regexp `comint-prompt-regexp', depending
on the value of `comint-use-prompt-regexp-instead-of-fields'.
comint-get-old-input is the default:
If `comint-use-prompt-regexp-instead-of-fields' is nil, then
either return the current input field, if point is on an input
field, or the current line, if point is on an output field.
If `comint-use-prompt-regexp-instead-of-fields' is non-nil, then
return the current line with any initial string matching the
regexp `comint-prompt-regexp' removed.
comint-input-filter-functions monitors input for \"cd\", \"pushd\", and
\"popd\" commands. When it sees one, it cd's the buffer.
comint-input-filter is the default: returns t if the input isn't all white
......@@ -1753,21 +1756,17 @@ This function could be on `comint-output-filter-functions' or bound to a key."
(defun comint-get-old-input-default ()
"Default for `comint-get-old-input'.
Returns either the current field, or the current line with any initial
text matching `comint-prompt-regexp' stripped off, depending on the
value of `comint-use-prompt-regexp-instead-of-fields'."
(if comint-use-prompt-regexp-instead-of-fields
(save-excursion
(beginning-of-line)
(comint-skip-prompt)
(let ((beg (point)))
(end-of-line)
(buffer-substring beg (point))))
;; Return the contents of the field at the current point.
(let ((pos (field-beginning (point))))
(unless (eq (get-char-property pos 'field) 'input)
(error "Not an input field"))
(field-string pos))))
If `comint-use-prompt-regexp-instead-of-fields' is nil, then either
return the current input field, if point is on an input field, or the
current line, if point is on an output field.
If `comint-use-prompt-regexp-instead-of-fields' is non-nil, then return
the current line with any initial string matching the regexp
`comint-prompt-regexp' removed."
(let ((bof (field-beginning)))
(if (eq (get-char-property bof 'field) 'input)
(field-string bof)
(comint-bol)
(buffer-substring (point) (line-end-position)))))
(defun comint-copy-old-input ()
"Insert after prompt old input at point as new input to be edited.
......
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