procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emulation/viper.el (viper-set-hooks): Replace obsolete func.

Browse source
This commit is contained in:
Glenn Morris 2018-03-23 20:55:51 -04:00
parent 0ef87d6005
commit 4cfd2a2a92
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/emulation/viper.el
View file

@ -937,8 +937,13 @@ Two differences:
(if (and (eq viper-current-state 'vi-state)
;; Do not use called-interactively-p here. XEmacs does not have it
;; and interactive-p is just fine.
;; (called-interactively-p 'interactive))
(interactive-p))
(if (featurep 'xemacs)
(interactive-p)
;; Respect the spirit of the above comment, though it
;; seems pointless, since XE doesn't have advice-add or
;; lexical binding or any other of the newer features
;; this file uses.
(called-interactively-p 'interactive)))
(beep 1)
(apply orig-fun args))))