*** empty log message ***

3 files changed, 46 insertions, 22 deletions

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 32dff786efe..9e396cc5d6e 100644
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -489,7 +489,7 @@ reversed.")
                       ))
                    ))
             ((eq ex-token-type 'non-command)
-             (error "`%s': %s" ex-token vip-BadExCommand))
+             (error (format "`%s': %s" ex-token vip-BadExCommand)))
             ((eq ex-token-type 'whole)
              (setq address nil)
              (setq ex-addresses
@@ -839,9 +839,23 @@ reversed.")
   (setq vip-keep-reading-filename t) 
   ;; don't exit if directory---ex-commands don't 
   (cond ((ex-cmd-accepts-multiple-files-p ex-token) (exit-minibuffer))
-        (t (minibuffer-complete-word))))
-     
-               
+        ;; apparently the argument to an Ex command is
+        ;; supposed to be a shell command
+        ((vip-looking-back "^[ \t]*!.*")
+         (setq ex-cmdfile t)
+         (insert " "))
+        (t
+         (setq ex-cmdfile nil)
+         (minibuffer-complete-word))))
+
+(defun vip-handle-! ()
+  (interactive)
+  (if (and (string=
+            (buffer-string) (vip-abbreviate-file-name default-directory))
+           (member ex-token '("read" "write")))
+      (erase-buffer))
+  (insert "!"))
+
 (defun ex-cmd-accepts-multiple-files-p (token)
   (member token '("edit" "next" "Next")))
 
@@ -853,7 +867,10 @@ reversed.")
           (copy-keymap minibuffer-local-completion-map))
          beg end cont val)
     
-    (vip-add-keymap ex-read-filename-map minibuffer-local-completion-map) 
+    (vip-add-keymap ex-read-filename-map
+                    (if vip-emacs-p 
+                        minibuffer-local-completion-map
+                      read-file-name-map)) 
                     
     (setq cont (setq vip-keep-reading-filename t))
     (while cont
@@ -944,19 +961,22 @@ reversed.")
              (string= ex-token "change")
              (string= ex-token "insert")
              (string= ex-token "open"))
-         (error "`%s': Obsolete command, not supported by Viper"
-                ex-token))
+         (error
+          (format "`%s': Obsolete command, not supported by Viper"
+                  ex-token)))
         ((or (string= ex-token "abbreviate")
              (string= ex-token "unabbreviate"))
          (error
+          (format
            "`%s': Vi-style abbrevs are obsolete. Use the more powerful Emacs abbrevs"
-           ex-token))
+           ex-token)))
         ((or (string= ex-token "list")
              (string= ex-token "print")
              (string= ex-token "z")
              (string= ex-token "#"))
-         (error "`%s': Command not implemented in Viper" ex-token))
-        (t (error "`%s': %s" ex-token vip-BadExCommand))))
+         (error
+          (format "`%s': Command not implemented in Viper" ex-token)))
+        (t (error (format "`%s': %s" ex-token vip-BadExCommand)))))
 
 (defun vip-undisplayed-files ()
   (mapcar
@@ -1081,7 +1101,7 @@ reversed.")
   (if (not file)
       (vip-get-ex-file))
   (cond ((and (string= ex-file "") buffer-file-name)
-         (setq ex-file  (abbreviate-file-name (buffer-file-name))))
+         (setq ex-file  (vip-abbreviate-file-name (buffer-file-name))))
         ((string= ex-file "")
          (error vip-NoFileSpecified)))
       
@@ -1361,7 +1381,8 @@ reversed.")
     (if (not (vip-buffer-live-p buf))
         (error "Didn't find buffer %S or file %S"
                file-or-buffer-name
-               (abbreviate-file-name (expand-file-name file-or-buffer-name))))
+               (vip-abbreviate-file-name
+                (expand-file-name file-or-buffer-name))))
           
     (if (equal buf (current-buffer))
         (or no-recursion
@@ -1425,7 +1446,8 @@ reversed.")
 ;; Ex read command
 (defun ex-read ()
   (vip-get-ex-file)
-  (let ((point (if (null ex-addresses) (point) (car ex-addresses))))
+  (let ((point (if (null ex-addresses) (point) (car ex-addresses)))
+        command)
     (goto-char point)
     (vip-add-newline-at-eob-if-necessary)
     (if (not (or (bobp) (eobp))) (forward-line 1))
@@ -1435,7 +1457,9 @@ reversed.")
               (error vip-NoFileSpecified))
           (setq ex-file buffer-file-name)))
     (if ex-cmdfile
-        (shell-command ex-file t)
+        (progn
+          (setq command (ex-expand-filsyms ex-file (current-buffer)))
+          (shell-command command t))
       (insert-file-contents ex-file)))
   (ex-fixup-history vip-last-ex-prompt ex-file))
   
@@ -1675,7 +1699,7 @@ reversed.")
   (condition-case nil
       (progn
         (pop-to-buffer (get-buffer-create "*info*"))
-        (info "viper.info")
+        (info (if vip-xemacs-p "viper.info" "viper"))
         (message "Type `i' to search for a specific topic"))
     (error (beep 1)
            (with-output-to-temp-buffer " *vip-info*"
@@ -1875,7 +1899,7 @@ Please contact your system administrator. "
 
 (defun ex-write-info (exists file-name beg end)
   (message "`%s'%s %d lines, %d characters"
-           (abbreviate-file-name file-name)
+           (vip-abbreviate-file-name file-name)
            (if exists "" " [New file]")
            (count-lines beg (min (1+ end) (point-max)))
            (- end beg)))
@@ -1947,7 +1971,7 @@ Please contact your system administrator. "
         lines file info)
     (setq lines (count-lines (point-min) (vip-line-pos 'end))
           file (if (buffer-file-name)
-                   (concat (abbreviate-file-name (buffer-file-name)) ":")
+                   (concat (vip-abbreviate-file-name (buffer-file-name)) ":")
                  (concat (buffer-name) " [Not visiting any file]:"))
           info (format "line=%d/%d pos=%d/%d col=%d %s"
                        (if (= pos1 pos2)
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index f1a78d39578..1ef27a3389a 100644
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -391,8 +391,9 @@ If SCOPE is nil, the user is asked to specify the scope."
                           (if (stringp macro-body) "  ....\"" "  ....]"))
                          state-name))
                   t)))
-          (if (y-or-n-p (format "Save this macro in %s? "
-                                (abbreviate-file-name vip-custom-file-name)))
+          (if (y-or-n-p
+               (format "Save this macro in %s? "
+                       (vip-abbreviate-file-name vip-custom-file-name)))
               (vip-save-string-in-file 
                (format "\n(vip-record-kbd-macro %S '%S %s '%S)"
                        (vip-display-macro macro-name)
@@ -903,7 +904,7 @@ there."
                (setq vip-last-macro-reg reg)
                (vip-set-register-macro reg))))
           (t
-           (error "`%c': Unknown register" reg)))))
+           (error (format "`%c': Unknown register" reg))))))
            
 
 (defun vip-global-execute ()
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 34702cc331f..bc59c077213 100644
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -4839,8 +4839,7 @@ One can use `` and '' to temporarily jump 1 step back."
           ((vip-valid-register reg '(letter))
            (let* ((val (get-register (1+ (- reg ?a))))
                   (buf (if (not val) 
-                           (error 
-                            (format vip-EmptyTextmarker reg))
+                           (error vip-EmptyTextmarker reg)
                          (marker-buffer val)))
                   (pos (marker-position val))
                   line-no text (s pos) (e pos))