[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/viper.el
From: |
Michael Kifer |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/viper.el |
Date: |
Fri, 03 Jun 2005 04:04:18 -0400 |
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: "))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emulation/viper.el,
Michael Kifer <=