/[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.34 by deego, Sun Sep 18 12:39:40 2005 UTC revision 1.35 by kifer, Tue Sep 20 17:47:26 2005 UTC
# Line 118  a key is a symbol, e.g., `a', `\\1', `f2 Line 118  a key is a symbol, e.g., `a', `\\1', `f2
118        (define-key viper-vi-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)        (define-key viper-vi-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)
119        (define-key viper-insert-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)        (define-key viper-insert-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)
120        (define-key viper-emacs-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)        (define-key viper-emacs-intercept-map "\C-x)" 'viper-end-mapping-kbd-macro)
121        (message "Mapping %S in %s state.  Hit `C-x )' to complete the mapping"        (message "Mapping %S in %s state.  Type macro definition followed by `C-x )'"
122                 (viper-display-macro macro-name)                 (viper-display-macro macro-name)
123                 (if ins "Insert" "Vi")))                 (if ins "Insert" "Vi")))
124      ))      ))
# Line 170  a key is a symbol, e.g., `a', `\\1', `f2 Line 170  a key is a symbol, e.g., `a', `\\1', `f2
170                ((stringp macro-name)                ((stringp macro-name)
171                 (setq macro-name (vconcat macro-name)))                 (setq macro-name (vconcat macro-name)))
172                (t (setq macro-name (vconcat (prin1-to-string macro-name)))))                (t (setq macro-name (vconcat (prin1-to-string macro-name)))))
173        (message ":map%s <Name>" variant)(sit-for 2)        (message ":map%s <Macro Name>" variant)(sit-for 2)
174        (while        (while
175            (not (member key            (not (member key
176                         '(?\C-m ?\n (control m) (control j) return linefeed)))                         '(?\C-m ?\n (control m) (control j) return linefeed)))
# 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    
           ;; 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"  
445            (message "%s" msg)            (message "%s" msg)
446            ))            ))
447    

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

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