diff options
| author | Miles Bader | 2002-08-28 04:40:42 +0000 |
|---|---|---|
| committer | Miles Bader | 2002-08-28 04:40:42 +0000 |
| commit | dd77cb223ba1799e63b640e3789e25d20c74c25a (patch) | |
| tree | 626afaeb1d46753697b9636751375f7d4225b381 | |
| parent | f871a27b8f01ddf00c1e00c9a017ce1d2fade73b (diff) | |
| download | emacs-dd77cb223ba1799e63b640e3789e25d20c74c25a.tar.gz emacs-dd77cb223ba1799e63b640e3789e25d20c74c25a.zip | |
(comint-carriage-motion): Start at START.
| -rw-r--r-- | lisp/comint.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 31524572a51..8eb7fa776ef 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1552,6 +1552,7 @@ Make backspaces delete the previous character." | |||
| 1552 | ;; First do a quick check to see if there are any applicable | 1552 | ;; First do a quick check to see if there are any applicable |
| 1553 | ;; characters, so we can avoid calling save-match-data and | 1553 | ;; characters, so we can avoid calling save-match-data and |
| 1554 | ;; save-restriction if not. | 1554 | ;; save-restriction if not. |
| 1555 | (goto-char start) | ||
| 1555 | (when (< (skip-chars-forward "^\b\r" end) (- end start)) | 1556 | (when (< (skip-chars-forward "^\b\r" end) (- end start)) |
| 1556 | (save-match-data | 1557 | (save-match-data |
| 1557 | (save-restriction | 1558 | (save-restriction |