[Emacs-diffs] Changes to emacs/lisp/emulation/viper-macs.el

[D . Goel]

Index: emacs/lisp/emulation/viper-macs.el
diff -c emacs/lisp/emulation/viper-macs.el:1.33 
emacs/lisp/emulation/viper-macs.el:1.34
*** emacs/lisp/emulation/viper-macs.el:1.33     Mon Aug  1 14:51:28 2005
--- emacs/lisp/emulation/viper-macs.el  Sun Sep 18 12:39:40 2005
***************
*** 186,192 ****
               variant (if (> (length key-seq) 0)
                           (prin1-to-string (viper-display-macro key-seq))
                         "")))
!       (message message)
        (setq event (viper-read-key))
        ;;(setq event (viper-read-event))
        (setq key
--- 186,192 ----
               variant (if (> (length key-seq) 0)
                           (prin1-to-string (viper-display-macro key-seq))
                         "")))
!       (message "%s" message)
        (setq event (viper-read-key))
        ;;(setq event (viper-read-event))
        (setq key
***************
*** 263,269 ****
                           (prin1-to-string
                            (viper-display-macro key-seq))
                         "")))
!       (message message)
        (setq event (viper-read-key))
        ;;(setq event (viper-read-event))
        (setq key
--- 263,269 ----
                           (prin1-to-string
                            (viper-display-macro key-seq))
                         "")))
!       (message "%s" message)
        (setq event (viper-read-key))
        ;;(setq event (viper-read-event))
        (setq key
***************
*** 442,448 ****
                       scope)
               viper-custom-file-name))
  
!         (message msg)
          ))
  
      (setq new-elt
--- 442,452 ----
                       scope)
               viper-custom-file-name))
  
!         ;; 2005-09-18 T06:41:22-0400 (Sunday)    D. Goel
!         ;; From careful parsing of the above code, it looks like msg
!         ;; couldn't be nil when we reach here. Since it is a string,
!         ;; and a complicated one too, we might as well provide it a "%s"
!         (message "%s" msg)
          ))
  
      (setq new-elt