*** empty log message ***

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 9e396cc5d6e1e6c5717eacf741674b572cc961c5..f8ff8c9464a91ad5ecc52594c31e78b1b4c0738f 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 (format "`%s': %s" ex-token vip-BadExCommand)))
+            (error "`%s': %s" ex-token vip-BadExCommand))
            ((eq ex-token-type 'whole)
             (setq address nil)
             (setq ex-addresses
@@ -961,22 +961,18 @@ reversed.")
             (string= ex-token "change")
             (string= ex-token "insert")
             (string= ex-token "open"))
-        (error
-         (format "`%s': Obsolete command, not supported by Viper"
-                 ex-token)))
+        (error "`%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)))
+         "`%s': Vi abbrevs are obsolete. Use the more powerful Emacs abbrevs"
+         ex-token))
        ((or (string= ex-token "list")
             (string= ex-token "print")
             (string= ex-token "z")
             (string= ex-token "#"))
-        (error
-         (format "`%s': Command not implemented in Viper" ex-token)))
-       (t (error (format "`%s': %s" ex-token vip-BadExCommand)))))
+        (error "`%s': Command not implemented in Viper" ex-token))
+       (t (error "`%s': %s" ex-token vip-BadExCommand))))
 
 (defun vip-undisplayed-files ()
   (mapcar
@@ -1581,7 +1577,7 @@ reversed.")
                 val "nil")))
     (if (eq val 0) ; value must be set by the user
        (let ((cursor-in-echo-area t))
-         (message (format ":set %s = <Value>" var))
+         (message ":set %s = <Value>" var)
          ;; if there are unread events, don't wait
          (or (vip-set-unread-command-events "") (sit-for 2))
          (setq val (read-string (format ":set %s = " var)))
@@ -1653,9 +1649,9 @@ reversed.")
                ))
          ))
     
-    (message (format "%s %s %s" set-cmd var (if (string-match "^[ \t]*$" val)
-                                               (format "%S" val)
-                                             val)))
+    (message "%s %s %s" set-cmd var (if (string-match "^[ \t]*$" val)
+                                       (format "%S" val)
+                                     val))
     (eval (car (read-from-string actual-lisp-cmd)))
        (if (string= var "fill-column")
                (if (> val2 0)
@@ -1996,4 +1992,4 @@ Please contact your system administrator. "
 
 (provide 'viper-ex)
 
-;;;  viper-ex.el ends here
+;;;  viper-ex.el ends here
\ No newline at end of file

diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index 39eb92b228653b5529716dc6fecf44e14b578a05..714c49c7b6f21c5bebdf3de70a67052a2d6f01bf 100644 (file)
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -364,6 +364,7 @@ vip-insert-basic-map. Not recommended, except for novice users.")
 ;; Keymap for reading file names in Ex-style commands.
 (defvar ex-read-filename-map (make-sparse-keymap))
 (define-key ex-read-filename-map " " 'vip-complete-filename-or-exit)
+(define-key ex-read-filename-map "!" 'vip-handle-!)
 
 
          

diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index 1ef27a3389ae481dfdf1c9a4318e9107cf87913b..cea440ebab3de96a03170f268ee46fbb2b7d8b57 100644 (file)
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -150,10 +150,10 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
             '(?\b ?\d '^? '^H (control h) (control \?) backspace delete))
            (setq key-seq (subseq key-seq 0 (- (length key-seq) 2))))
        (setq message
-             (format ":map%s %s"
-                variant (if (> (length key-seq) 0)
-                            (prin1-to-string (vip-display-macro key-seq))
-                          "")))
+             ":map%s %s"
+             variant (if (> (length key-seq) 0)
+                         (prin1-to-string (vip-display-macro key-seq))
+                       ""))
        (message message)
        (setq event (vip-read-key))
        ;;(setq event (vip-read-event))
@@ -215,20 +215,20 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
              ((member key '(tab (control i) ?\t))
               (setq key-seq (subseq key-seq 0 (1- (length key-seq))))
               (setq message 
-                    (format ":unmap%s %s"
-                            variant (if (> (length key-seq) 0)
-                                        (prin1-to-string
-                                         (vip-display-macro key-seq))
-                                      "")))
+                    ":unmap%s %s"
+                    variant (if (> (length key-seq) 0)
+                                (prin1-to-string
+                                 (vip-display-macro key-seq))
+                              ""))
               (setq key-seq
                     (vip-do-sequence-completion key-seq macro-alist message))
               ))
        (setq message 
-             (format ":unmap%s %s"
-                     variant (if (> (length key-seq) 0)
-                                 (prin1-to-string
-                                  (vip-display-macro key-seq))
-                               "")))
+             ":unmap%s %s"
+             variant (if (> (length key-seq) 0)
+                         (prin1-to-string
+                          (vip-display-macro key-seq))
+                       ""))
        (message message)
        (setq event (vip-read-key))
        ;;(setq event (vip-read-event))
@@ -641,9 +641,7 @@ there."
     (princ "  none\n"))
   (princ "\n   ** Global:")
   (if (vip-kbd-global-definition macro)
-      (princ 
-       (format "\n           %S" 
-              (cdr (vip-kbd-global-pair macro))))
+      (princ (format "\n           %S" (cdr (vip-kbd-global-pair macro))))
     (princ "  none"))
   (princ "\n"))
   
@@ -904,7 +902,7 @@ there."
               (setq vip-last-macro-reg reg)
               (vip-set-register-macro reg))))
          (t
-          (error (format "`%c': Unknown register" reg))))))
+          (error "`%c': Unknown register" reg)))))
           
 
 (defun vip-global-execute ()

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 062ada3f88d1f389f37c5453fc1b24813b059a5c..e1e87102bfcd8f48c5007734e418e0f362ed5846 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -31,9 +31,20 @@
       window-system
     (device-type (selected-device))))
 ;; in XEmacs: device-type is tty on tty and stream in batch.
-(defsubst vip-window-display-p ()
+(defun vip-window-display-p ()
   (and (vip-device-type) (not (memq (vip-device-type) '(tty stream)))))
 
+(defvar vip-force-faces nil
+  "If t, Viper will think that it is running on a display that supports faces.
+This is provided as a temporary relief for users of face-capable displays
+that Viper doesn't know about.")
+
+(defun vip-has-face-support-p ()
+  (cond ((vip-window-display-p))
+       (vip-force-faces)
+       (vip-emacs-p (memq (vip-device-type) '(pc)))
+       (vip-xemacs-p (memq (vip-device-type) '(tty pc)))))
+
 \f
 ;;; Macros
 
@@ -130,7 +141,7 @@
       (fset 'vip-move-overlay (symbol-function 'set-extent-endpoints))
       (if (vip-window-display-p)
          (fset 'vip-iconify (symbol-function 'iconify-frame)))
-      (cond ((vip-window-display-p)
+      (cond ((vip-has-face-support-p)
             (fset 'vip-get-face (symbol-function 'get-face))
             (fset 'vip-color-defined-p
                   (symbol-function 'valid-color-name-p))
@@ -145,7 +156,7 @@
   (fset 'vip-move-overlay (symbol-function 'move-overlay))
   (if (vip-window-display-p)
       (fset 'vip-iconify (symbol-function 'iconify-or-deiconify-frame)))
-  (cond ((vip-window-display-p)
+  (cond ((vip-has-face-support-p)
         (fset 'vip-get-face (symbol-function 'internal-get-face))
         (fset 'vip-color-defined-p (symbol-function 'x-color-defined-p))
         )))
@@ -173,7 +184,7 @@
     ))
 
 (defun vip-hide-face (face)
-  (if (and (vip-window-display-p) vip-emacs-p)
+  (if (and (vip-has-face-support-p) vip-emacs-p)
       (add-to-list 'facemenu-unlisted-faces face)))
 
 ;; cursor colors
@@ -555,7 +566,7 @@
           (match-beginning 0) (match-end 0) (current-buffer))))
   
   (vip-overlay-put vip-search-overlay 'priority vip-search-overlay-priority)
-  (if (vip-window-display-p)
+  (if (vip-has-face-support-p)
       (progn
        (vip-overlay-put vip-search-overlay 'face vip-search-face)
        (sit-for 2)
@@ -569,7 +580,7 @@
     (setq vip-replace-overlay (vip-make-overlay beg end (current-buffer)))
     (vip-overlay-put 
      vip-replace-overlay 'priority vip-replace-overlay-priority)) 
-  (if (vip-window-display-p)
+  (if (vip-has-face-support-p)
       (vip-overlay-put vip-replace-overlay 'face vip-replace-overlay-face))
   (vip-save-cursor-color)
   (vip-change-cursor-color vip-replace-overlay-cursor-color)
@@ -579,11 +590,11 @@
 (defsubst vip-hide-replace-overlay ()
   (vip-set-replace-overlay-glyphs nil nil)
   (vip-restore-cursor-color)
-  (if (vip-window-display-p)
+  (if (vip-has-face-support-p)
       (vip-overlay-put vip-replace-overlay 'face nil)))
       
 (defsubst vip-set-replace-overlay-glyphs (before-glyph after-glyph)
-  (if (or (not (vip-window-display-p))
+  (if (or (not (vip-has-face-support-p))
          vip-use-replace-region-delimiters)
       (let ((before-name (if vip-xemacs-p 'begin-glyph 'before-string))
            (after-name (if vip-xemacs-p 'end-glyph 'after-string)))
@@ -605,7 +616,7 @@
 
 (defun vip-set-minibuffer-overlay ()
   (vip-check-minibuffer-overlay)
-  (if (vip-window-display-p)
+  (if (vip-has-face-support-p)
       (progn
        (vip-overlay-put
         vip-minibuffer-overlay 'face vip-minibuffer-current-face)
@@ -636,6 +647,12 @@
 
 \f
 ;;; XEmacs compatibility
+
+(defun vip-abbreviate-file-name (file)
+  (if vip-emacs-p
+      (abbreviate-file-name file)
+    ;; XEmacs requires addl argument
+    (abbreviate-file-name file t)))
     
 ;; Sit for VAL milliseconds. XEmacs doesn't support the millisecond arg 
 ;; in sit-for, so this function smoothes out the differences.

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index bc59c077213385311a4a393bcdc6f530eaeac289..3e3b4bf4e9404d380608ed488f1c80092b55af84 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -4694,7 +4694,7 @@ One can use `` and '' to temporarily jump 1 step back."
                (text-marker (get-register reg)))
           (if com (vip-move-marker-locally 'vip-com-point (point)))
           (if (not (vip-valid-marker text-marker))
-              (error (format vip-EmptyTextmarker char)))
+              (error vip-EmptyTextmarker char))
           (if (and (vip-same-line (point) vip-last-jump)
                    (= (point) vip-last-jump-ignore))
               (push-mark vip-last-jump t)