diff options
| author | Miles Bader | 2000-08-14 12:56:03 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-08-14 12:56:03 +0000 |
| commit | 1cc9bc49d80b832999f941090aec4dc458d32b51 (patch) | |
| tree | b634adce9a724b0d8f8af73034b75ca0bdeb3dbd | |
| parent | 90cbf47ef1911fd5a5f040c110fbc317d167a4b6 (diff) | |
| download | emacs-1cc9bc49d80b832999f941090aec4dc458d32b51.tar.gz emacs-1cc9bc49d80b832999f941090aec4dc458d32b51.zip | |
(comint-bol): Use `forward-line 0' instead of calling beginning-of-line
with inhibit-field-text-motion bound.
| -rw-r--r-- | lisp/comint.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index c7762678dd4..da9e2797749 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1740,9 +1740,8 @@ prompt skip is done by skipping text matching the regular expression | |||
| 1740 | `comint-prompt-regexp', a buffer local variable." | 1740 | `comint-prompt-regexp', a buffer local variable." |
| 1741 | (interactive "P") | 1741 | (interactive "P") |
| 1742 | (if arg | 1742 | (if arg |
| 1743 | ;; Disregard prompt | 1743 | ;; Unlike `beginning-of-line', forward-line ignores field boundaries |
| 1744 | (let ((inhibit-field-text-motion t)) | 1744 | (forward-line 0) |
| 1745 | (beginning-of-line)) | ||
| 1746 | (goto-char (comint-line-beginning-position)))) | 1745 | (goto-char (comint-line-beginning-position)))) |
| 1747 | 1746 | ||
| 1748 | ;; These three functions are for entering text you don't want echoed or | 1747 | ;; These three functions are for entering text you don't want echoed or |