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 |
)) |
)) |
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))) |
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 |
|
|