Mercurial > emacs
changeset 6958:6962dec6fe55
(comint-replace-by-expanded-history): Expand only at prompt.
Pass SILENT flag to comint-replace-by-expanded-history-before-point.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 19 Apr 1994 00:51:24 +0000 |
| parents | 22e3af0deae4 |
| children | 3b19456b877a |
| files | lisp/comint.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Tue Apr 19 00:43:06 1994 +0000 +++ b/lisp/comint.el Tue Apr 19 00:51:24 1994 +0000 @@ -854,15 +854,17 @@ Returns t if successful." (interactive) (if (and comint-input-autoexpand - (string-match "[!^]" (funcall comint-get-old-input))) + (string-match "[!^]" (funcall comint-get-old-input)) + (save-excursion (beginning-of-line) + (looking-at comint-prompt-regexp))) ;; Looks like there might be history references in the command. (let ((previous-modified-tick (buffer-modified-tick))) (message "Expanding history references...") - (comint-replace-by-expanded-history-before-point) + (comint-replace-by-expanded-history-before-point silent) (/= previous-modified-tick (buffer-modified-tick))))) -(defun comint-replace-by-expanded-history-before-point () +(defun comint-replace-by-expanded-history-before-point (silent) "Expand directory stack reference before point. See `comint-replace-by-expanded-history'. Returns t if successful." (save-excursion