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

Fix broken viper deactivation

Browse source 
* lisp/emulation/viper.el (viper--deactivate-advice-list): Destructure
  args to advice-remove.
  (viper--advice-add): Use cons not list.

Addresses bug#23625
This commit is contained in:
Phillip Lord 2016-05-27 16:49:12 +01:00
parent ee297210cf
commit 01f375386d
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emulation/viper.el
View file

@ -647,10 +647,14 @@ This startup message appears whenever you load Viper, unless you type `y' now."
(defun viper--advice-add (function where advice)
(advice-add function where advice)
(push (list function advice) viper--advice-list))
(push (cons function advice) viper--advice-list))
(defun viper--deactivate-advice-list ()
(mapc #'advice-remove viper--advice-list)
(mapc (lambda (n)
(advice-remove
(car n)
(cdr n)))
viper--advice-list)
(setq viper--advice-list nil))
(defun viper-go-away ()