Mercurial > emacs

diff lisp/emulation/viper-macs.el @ 14580:1883960762e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Michael Kifer <kifer@cs.stonybrook.edu>
date Fri, 16 Feb 1996 04:49:12 +0000
parents 20e489e1a0ef
children 4951b11970a1
line wrap: on
line diff
--- a/lisp/emulation/viper-macs.el	Fri Feb 16 04:27:19 1996 +0000
+++ b/lisp/emulation/viper-macs.el	Fri Feb 16 04:49:12 1996 +0000
@@ -391,8 +391,9 @@
 			  (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 @@
 	       (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 ()