]> code.delx.au - gnu-emacs/blobdiff - lisp/emulation/viper-ex.el
Update copyright year to 2015
[gnu-emacs] / lisp / emulation / viper-ex.el
index a2bdc28d2b5231ad1a96d0440af47a0a41a7bd3f..212f0533b8fa9c881cfa5b7c554625d5aa413904 100644 (file)
@@ -1,6 +1,6 @@
 ;;; viper-ex.el --- functions implementing the Ex commands for Viper
 
-;; Copyright (C) 1994-1998, 2000-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1994-1998, 2000-2015 Free Software Foundation, Inc.
 
 ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
 ;; Package: viper
@@ -1887,7 +1887,8 @@ Please contact your system administrator. "
                            (if (featurep 'xemacs) "X" "")
                            ))))))
 
-;; Ex source command.  Loads the file specified as argument or `~/.viper'
+;; Ex source command.
+;; Loads the file specified as argument or viper-custom-file-name.
 (defun ex-source ()
   (viper-get-ex-file)
   (if (string= ex-file "")
@@ -2176,7 +2177,7 @@ Please contact your system administrator. "
          (goto-char beg)
          (set-mark end)
          (viper-enlarge-region (point) (mark t))
-         (shell-command-on-region (point) (mark t) command t))
+         (shell-command-on-region (point) (mark t) command t t))
        (goto-char beg)))))
 
 (defun ex-compile ()