diff lisp/emulation/viper-cmd.el @ 19079:dfbef8117c6a

new version
author Michael Kifer <kifer@cs.stonybrook.edu>
date Sat, 02 Aug 1997 07:40:22 +0000
parents 46326a66c27c
children 58c50205001d
line wrap: on
line diff
--- a/lisp/emulation/viper-cmd.el	Sat Aug 02 06:56:24 1997 +0000
+++ b/lisp/emulation/viper-cmd.el	Sat Aug 02 07:40:22 1997 +0000
@@ -1557,8 +1557,12 @@
 	
     (message " `.' runs  %s%s"
 	     (concat "`" (viper-array-to-string keys) "'")
-	     (viper-abbreviate-string text max-text-len
-				    "  inserting  `" "'" "    ......."))
+	     (viper-abbreviate-string 
+	      (if viper-xemacs-p
+		  (replace-in-string text "\n" "^J")
+		text)
+	      max-text-len
+	      "  inserting  `" "'" "    ......."))
     ))