[Emacs-diffs] Changes to emacs/lisp/comint.el,v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       08/01/16 08:10:16

Index: comint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/comint.el,v
retrieving revision 1.361.2.9
retrieving revision 1.361.2.10
diff -u -b -r1.361.2.9 -r1.361.2.10
--- comint.el   10 Jan 2008 11:28:33 -0000      1.361.2.9
+++ comint.el   16 Jan 2008 08:10:15 -0000      1.361.2.10
@@ -1021,9 +1021,11 @@
         (last-command last-command)
         (regexp (read-from-minibuffer prompt nil nil nil
                                       'minibuffer-history-search-history)))
+    ;; If the user didn't enter anything, nothing is added to m-h-s-h.
+    ;; Use the previous search regexp, if there is one.
     (list (if (string-equal regexp "")
-             (setcar minibuffer-history-search-history
-                     (nth 1 minibuffer-history-search-history))
+              (or (car minibuffer-history-search-history)
+                  regexp)
            regexp)
          (prefix-numeric-value current-prefix-arg))))