diff options
| author | Miles Bader | 2000-08-07 14:56:02 +0000 |
|---|---|---|
| committer | Miles Bader | 2000-08-07 14:56:02 +0000 |
| commit | 3250010dd7fbfc5d47c9ea6b22f3ebb87524c947 (patch) | |
| tree | 3815f143e0d44bf66d034737c71adef444c9cb23 | |
| parent | 01d8967d6612532a830089e4254e43f2fe208622 (diff) | |
| download | emacs-3250010dd7fbfc5d47c9ea6b22f3ebb87524c947.tar.gz emacs-3250010dd7fbfc5d47c9ea6b22f3ebb87524c947.zip | |
(ielm-indent-line): Detect a "prompt" line by seeing if comint-bol
doesn't actually go to the beginning of the line.
| -rw-r--r-- | lisp/ielm.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/ielm.el b/lisp/ielm.el index 2f2a9861e6c..a0973800271 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el | |||
| @@ -179,9 +179,7 @@ This variable is buffer-local.") | |||
| 179 | 179 | ||
| 180 | (defun ielm-indent-line nil | 180 | (defun ielm-indent-line nil |
| 181 | "Indent the current line as Lisp code if it is not a prompt line." | 181 | "Indent the current line as Lisp code if it is not a prompt line." |
| 182 | (if (save-excursion | 182 | (when (save-excursion (comint-bol) (bolp)) |
| 183 | (beginning-of-line) | ||
| 184 | (looking-at comint-prompt-regexp)) nil | ||
| 185 | (lisp-indent-line))) | 183 | (lisp-indent-line))) |
| 186 | 184 | ||
| 187 | ;;; Working buffer manipulation | 185 | ;;; Working buffer manipulation |