Commit 5b955562 authored by Chong Yidong's avatar Chong Yidong

* comint.el (comint-replace-by-expanded-history-before-point):

Replace !! with the previous input string literally (Bug#1795).
parent 6292c599
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> 2009-11-02 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-forms.el (calc-date-notation): Allow a "blank string" * calc/calc-forms.el (calc-date-notation): Allow a "blank string"
......
...@@ -1277,10 +1277,7 @@ than the logical beginning of line." ...@@ -1277,10 +1277,7 @@ than the logical beginning of line."
(message "Relative reference exceeds input history size")))) (message "Relative reference exceeds input history size"))))
((or (looking-at "!!?:?\\([0-9^$*-]+\\)") (looking-at "!!")) ((or (looking-at "!!?:?\\([0-9^$*-]+\\)") (looking-at "!!"))
;; Just a number of args from the previous input line. ;; Just a number of args from the previous input line.
(replace-match (replace-match (comint-previous-input-string 0) t t)
(comint-args (comint-previous-input-string 0)
(match-beginning 1) (match-end 1))
t t)
(message "History item: previous")) (message "History item: previous"))
((looking-at ((looking-at
"!\\??\\({\\(.+\\)}\\|\\(\\sw+\\)\\)\\(:?[0-9^$*-]+\\)?") "!\\??\\({\\(.+\\)}\\|\\(\\sw+\\)\\)\\(:?[0-9^$*-]+\\)?")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment