diff options
Diffstat (limited to 'lisp/emulation/viper.el')
| -rw-r--r-- | lisp/emulation/viper.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el index e3582f2165a..3fdbccc2957 100644 --- a/lisp/emulation/viper.el +++ b/lisp/emulation/viper.el | |||
| @@ -990,12 +990,13 @@ remains buffer-local." | |||
| 990 | (setq global-mode-string | 990 | (setq global-mode-string |
| 991 | (append '("" viper-mode-string) (cdr global-mode-string)))) | 991 | (append '("" viper-mode-string) (cdr global-mode-string)))) |
| 992 | 992 | ||
| 993 | (defadvice describe-key (before viper-read-keyseq-ad protect activate) | 993 | (defadvice describe-key (before viper-describe-key-ad protect activate) |
| 994 | "Force to read key via `viper-read-key-sequence'." | 994 | "Force to read key via `viper-read-key-sequence'." |
| 995 | (interactive (list (viper-read-key-sequence "Describe key: ")))) | 995 | (interactive (list (viper-read-key-sequence "Describe key: ")) |
| 996 | )) | ||
| 996 | 997 | ||
| 997 | (defadvice describe-key-briefly | 998 | (defadvice describe-key-briefly |
| 998 | (before viper-read-keyseq-ad protect activate) | 999 | (before viper-describe-key-briefly-ad protect activate) |
| 999 | "Force to read key via `viper-read-key-sequence'." | 1000 | "Force to read key via `viper-read-key-sequence'." |
| 1000 | (interactive (list (viper-read-key-sequence "Describe key briefly: ")))) | 1001 | (interactive (list (viper-read-key-sequence "Describe key briefly: ")))) |
| 1001 | 1002 | ||