[Emacs-diffs] Changes to emacs/lisp/emulation/viper.el

[Michael Kifer]

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