[Emacs-diffs] Changes to emacs/lisp/emulation/viper-ex.el,v

[Michael Kifer]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Michael Kifer <kifer>   07/11/02 06:03:12

Index: lisp/emulation/viper-ex.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-ex.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- lisp/emulation/viper-ex.el  19 Aug 2007 13:47:07 -0000      1.62
+++ lisp/emulation/viper-ex.el  2 Nov 2007 06:03:11 -0000       1.63
@@ -651,7 +651,9 @@
        (setq initial-str (format "%d,%d" reg-beg-line reg-end-line)))
 
     (setq com-str
-         (or string (viper-read-string-with-history
+         (if string
+             (concat initial-str string)
+           (viper-read-string-with-history
                      ":"
                      initial-str
                      'viper-ex-history