/[emacs]/emacs/lisp/emulation/viper-macs.el
ViewVC logotype

Diff of /emacs/lisp/emulation/viper-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by ttn, Mon Aug 1 14:51:28 2005 UTC revision 1.34 by deego, Sun Sep 18 12:39:40 2005 UTC
# Line 186  a key is a symbol, e.g., `a', `\\1', `f2 Line 186  a key is a symbol, e.g., `a', `\\1', `f2
186                 variant (if (> (length key-seq) 0)                 variant (if (> (length key-seq) 0)
187                             (prin1-to-string (viper-display-macro key-seq))                             (prin1-to-string (viper-display-macro key-seq))
188                           "")))                           "")))
189          (message message)          (message "%s" message)
190          (setq event (viper-read-key))          (setq event (viper-read-key))
191          ;;(setq event (viper-read-event))          ;;(setq event (viper-read-event))
192          (setq key          (setq key
# Line 263  a key is a symbol, e.g., `a', `\\1', `f2 Line 263  a key is a symbol, e.g., `a', `\\1', `f2
263                             (prin1-to-string                             (prin1-to-string
264                              (viper-display-macro key-seq))                              (viper-display-macro key-seq))
265                           "")))                           "")))
266          (message message)          (message "%s" message)
267          (setq event (viper-read-key))          (setq event (viper-read-key))
268          ;;(setq event (viper-read-event))          ;;(setq event (viper-read-event))
269          (setq key          (setq key
# Line 442  If SCOPE is nil, the user is asked to sp Line 442  If SCOPE is nil, the user is asked to sp
442                         scope)                         scope)
443                 viper-custom-file-name))                 viper-custom-file-name))
444    
445            (message msg)            ;; 2005-09-18 T06:41:22-0400 (Sunday)    D. Goel
446              ;; From careful parsing of the above code, it looks like msg
447              ;; couldn't be nil when we reach here. Since it is a string,
448              ;; and a complicated one too, we might as well provide it a "%s"
449              (message "%s" msg)
450            ))            ))
451    
452      (setq new-elt      (setq new-elt

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26