Mercurial > hg > xemacs-beta
comparison lisp/comint/comint.el @ 48:56c54cf7c5b6 r19-16b90
Import from CVS: tag r19-16b90
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:56:04 +0200 |
| parents | d620409f5eb8 |
| children | 131b0175ea99 |
comparison
equal
deleted
inserted
replaced
| 47:11c6df210d7f | 48:56c54cf7c5b6 |
|---|---|
| 1032 See `comint-magic-space' and `comint-replace-by-expanded-history-before-point'. | 1032 See `comint-magic-space' and `comint-replace-by-expanded-history-before-point'. |
| 1033 | 1033 |
| 1034 Returns t if successful." | 1034 Returns t if successful." |
| 1035 (interactive) | 1035 (interactive) |
| 1036 (if (and comint-input-autoexpand | 1036 (if (and comint-input-autoexpand |
| 1037 (string-match "[!^]" (funcall comint-get-old-input)) | 1037 (string-match "!\\|^\\^" (funcall comint-get-old-input)) |
| 1038 (save-excursion (beginning-of-line) | 1038 (save-excursion (beginning-of-line) |
| 1039 (looking-at comint-prompt-regexp))) | 1039 (looking-at comint-prompt-regexp))) |
| 1040 ;; Looks like there might be history references in the command. | 1040 ;; Looks like there might be history references in the command. |
| 1041 (let ((previous-modified-tick (buffer-modified-tick))) | 1041 (let ((previous-modified-tick (buffer-modified-tick))) |
| 1042 (message "Expanding history references...") | 1042 (message "Expanding history references...") |