comparison lisp/emulation/viper-macs.el @ 13211:76308c9753ab

(vip-record-kbd-macro): correctly escapes `.' and `[' now.

13210:8453192a1032

	  (if (y-or-n-p (format "Save this macro in %s? "
				(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)
		       state macro-body scope) 
	       vip-custom-file-name))
	  
	  (message msg)
	  ))
	

13211:76308c9753ab

	  (if (y-or-n-p (format "Save this macro in %s? "
				(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)
		       state
		       ;; if we don't let vector macro-body through %S,
		       ;; the symbols `\.' `\[' etc will be converted into
		       ;; characters, causing invalid read  error on recorded
		       ;; macros in .vip.
		       ;; I am not sure is macro-body can still be a string at
		       ;; this point, but I am preserving this option anyway.
		       (if (vectorp macro-body)
			   (format "%S" macro-body)
			 macro-body)
		       scope) 
	       vip-custom-file-name))
	  
	  (message msg)
	  ))