*** empty log message ***

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 32dff786efe85e70da72a4ed5cd296d85cae0c2b..9e396cc5d6e1e6c5717eacf741674b572cc961c5 100644 (file)
--- 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 f1a78d3957815d3bc3474bcc9741516a94abf20f..1ef27a3389ae481dfdf1c9a4318e9107cf87913b 100644 (file)
--- 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 34702cc331f726956dd0b74644ee22965f656c90..bc59c077213385311a4a393bcdc6f530eaeac289 100644 (file)
--- 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))