diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-11-03 00:39:10 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-11-03 00:39:10 +0000 |
| commit | 5b95556284173d0cebc3b1378166c207afb3c495 (patch) | |
| tree | 17fd6f661a1e1bc04094a44bc1d16c2784123ad8 /lisp | |
| parent | 6292c59952a47bdf315223db70e31c9e4e11fbdc (diff) | |
| download | emacs-5b95556284173d0cebc3b1378166c207afb3c495.tar.gz emacs-5b95556284173d0cebc3b1378166c207afb3c495.tar.bz2 emacs-5b95556284173d0cebc3b1378166c207afb3c495.zip | |
* comint.el (comint-replace-by-expanded-history-before-point):
Replace !! with the previous input string literally (Bug#1795).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/comint.el | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f8c718a424b..c635f6fc395 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-03 Chong Yidong <cyd@stupidchicken.com> + + * comint.el (comint-replace-by-expanded-history-before-point): + Replace !! with the previous input string literally (Bug#1795). + 2009-11-02 Jay Belanger <jay.p.belanger@gmail.com> * calc/calc-forms.el (calc-date-notation): Allow a "blank string" diff --git a/lisp/comint.el b/lisp/comint.el index cd7c3f26654..5fd6d8f23a9 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1277,10 +1277,7 @@ than the logical beginning of line." (message "Relative reference exceeds input history size")))) ((or (looking-at "!!?:?\\([0-9^$*-]+\\)") (looking-at "!!")) ;; Just a number of args from the previous input line. - (replace-match - (comint-args (comint-previous-input-string 0) - (match-beginning 1) (match-end 1)) - t t) + (replace-match (comint-previous-input-string 0) t t) (message "History item: previous")) ((looking-at "!\\??\\({\\(.+\\)}\\|\\(\\sw+\\)\\)\\(:?[0-9^$*-]+\\)?") |