Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
71a895c6
Commit
71a895c6
authored
Dec 11, 1997
by
Karl Heuer
Browse files
(comint-strip-ctrl-m): Don't die if
comint-last-output-start does not point anywhere.
parent
f0ed3f3e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/comint.el
lisp/comint.el
+4
-2
No files found.
lisp/comint.el
View file @
71a895c6
...
...
@@ -1386,8 +1386,10 @@ This function could be on `comint-output-filter-functions' or bound to a key."
(
interactive
)
(
let
((
pmark
(
process-mark
(
get-buffer-process
(
current-buffer
)))))
(
save-excursion
(
goto-char
(
if
(
interactive-p
)
comint-last-input-end
comint-last-output-start
))
(
condition-case
nil
(
goto-char
(
if
(
interactive-p
)
comint-last-input-end
comint-last-output-start
))
(
error
nil
))
(
while
(
re-search-forward
"\r+$"
pmark
t
)
(
replace-match
""
t
t
)))))
(
defalias
'shell-strip-ctrl-m
'comint-strip-ctrl-m
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment