982 |
|
|
983 |
(defadvice describe-key (before viper-read-keyseq-ad protect activate) |
(defadvice describe-key (before viper-read-keyseq-ad protect activate) |
984 |
"Force to read key via `viper-read-key-sequence'." |
"Force to read key via `viper-read-key-sequence'." |
985 |
(interactive (list (viper-events-to-keys |
(interactive (list (viper-read-key-sequence "Describe key: ")))) |
|
(viper-read-key-sequence "Describe key: "))))) |
|
986 |
|
|
987 |
(defadvice describe-key-briefly |
(defadvice describe-key-briefly |
988 |
(before viper-read-keyseq-ad protect activate) |
(before viper-read-keyseq-ad protect activate) |
989 |
"Force to read key via `viper-read-key-sequence'." |
"Force to read key via `viper-read-key-sequence'." |
990 |
(interactive (list (viper-events-to-keys |
(interactive (list (viper-read-key-sequence "Describe key briefly: ")))) |
|
(viper-read-key-sequence "Describe key briefly: "))))) |
|
991 |
|
|
992 |
|
|
993 |
(defadvice find-file (before viper-add-suffix-advice activate) |
(defadvice find-file (before viper-add-suffix-advice activate) |