Sync to HEAD

[bpt/emacs.git] / lisp / emulation / viper-util.el

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index fc7f0c8..5e533e5 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -394,17 +394,17 @@
                            command)))
       (goto-char (point-min))
       ;; Issue an error, if no match.
-      (if (> status 0)
-         (save-excursion
-           (skip-chars-forward " \t\n\j")
-           (if (looking-at "ls:")
-               (viper-forward-Word 1))
-           (error "%s: %s"
-                  (if (stringp  gshell)
-                      gshell
-                    "shell")
-                  (buffer-substring (point) (viper-line-pos 'end)))
-           ))
+      (unless (eq 0 status)
+       (save-excursion
+         (skip-chars-forward " \t\n\j")
+         (if (looking-at "ls:")
+             (viper-forward-Word 1))
+         (error "%s: %s"
+                (if (stringp  gshell)
+                    gshell
+                  "shell")
+                (buffer-substring (point) (viper-line-pos 'end)))
+         ))
       (goto-char (point-min))
       (viper-get-filenames-from-buffer 'one-per-line))
     ))
@@ -1517,4 +1517,5 @@ This option is appropriate if you like Emacs-style words."
 ;;; eval: (put 'viper-deflocalvar 'lisp-indent-hook 'defun)
 ;;; End:
 
+;;; arch-tag: 7f023fd5-dd9e-4378-a397-9c179553b0e3
 ;;; viper-util.el ends here