[Emacs-diffs] emacs/lisp ChangeLog comint.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/03 00:39:14

Modified files:
        lisp           : ChangeLog comint.el 

Log message:
        * comint.el (comint-replace-by-expanded-history-before-point):
        Replace !! with the previous input string literally (Bug#1795).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16543&r2=1.16544
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/comint.el?cvsroot=emacs&r1=1.397&r2=1.398

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16543
retrieving revision 1.16544
diff -u -b -r1.16543 -r1.16544
--- ChangeLog   2 Nov 2009 02:59:23 -0000       1.16543
+++ ChangeLog   3 Nov 2009 00:39:10 -0000       1.16544
@@ -1,3 +1,8 @@
+2009-11-03  Chong Yidong  <address@hidden>
+
+       * comint.el (comint-replace-by-expanded-history-before-point):
+       Replace !! with the previous input string literally (Bug#1795).
+
 2009-11-02  Jay Belanger  <address@hidden>
 
        * calc/calc-forms.el (calc-date-notation): Allow a "blank string"

Index: comint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/comint.el,v
retrieving revision 1.397
retrieving revision 1.398
diff -u -b -r1.397 -r1.398
--- comint.el   24 Oct 2009 03:50:23 -0000      1.397
+++ comint.el   3 Nov 2009 00:39:14 -0000       1.398
@@ -1277,10 +1277,7 @@
                   (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^$*-]+\\)?")