Index: emacs/lisp/emulation/viper.el
diff -c emacs/lisp/emulation/viper.el:1.78 emacs/lisp/emulation/viper.el:1.79
*** emacs/lisp/emulation/viper.el:1.78 Tue May 17 17:29:06 2005
--- emacs/lisp/emulation/viper.el Fri Jun 3 08:04:03 2005
***************
*** 990,1001 ****
(setq global-mode-string
(append '("" viper-mode-string) (cdr global-mode-string))))
! (defadvice describe-key (before viper-read-keyseq-ad protect activate)
"Force to read key via `viper-read-key-sequence'."
! (interactive (list (viper-read-key-sequence "Describe key: "))))
(defadvice describe-key-briefly
! (before viper-read-keyseq-ad protect activate)
"Force to read key via `viper-read-key-sequence'."
(interactive (list (viper-read-key-sequence "Describe key briefly: "))))
--- 990,1002 ----
(setq global-mode-string
(append '("" viper-mode-string) (cdr global-mode-string))))
! (defadvice describe-key (before viper-describe-key-ad protect activate)
"Force to read key via `viper-read-key-sequence'."
! (interactive (list (viper-read-key-sequence "Describe key: "))
! ))
(defadvice describe-key-briefly
! (before viper-describe-key-briefly-ad protect activate)
"Force to read key via `viper-read-key-sequence'."
(interactive (list (viper-read-key-sequence "Describe key briefly: "))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
