TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove unnecessary append of class symbol in spacemacs|advise-commands

Browse source
This commit is contained in:
syl20bnr 2015-05-10 23:42:11 -04:00
parent 6f7505abf9
commit 60052b3168
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
spacemacs/funcs.el
View file

@ -793,8 +793,7 @@ The body of the advice is in BODY."
`(progn
,@(mapcar (lambda (command)
`(defadvice ,command
(,class ,(intern (format "%S-%s-%S"
command advice-name class))
(,class ,(intern (format "%S-%s" command advice-name))
activate)
,@body))
commands)))

6
spacemacs/packages.el
View file

@ -747,13 +747,13 @@ Example: (evil-map visual \"<\" \"<gv\")"
("P" evil-paste-pop-next))
(unless dotspacemacs-enable-paste-micro-state
(ad-disable-advice 'evil-paste-before 'after
'evil-paste-before-paste-micro-state-after)
'evil-paste-before-paste-micro-state)
(ad-activate 'evil-paste-before)
(ad-disable-advice 'evil-paste-after 'after
'evil-paste-after-paste-micro-state-after)
'evil-paste-after-paste-micro-state)
(ad-activate 'evil-paste-after)
(ad-disable-advice 'evil-visual-paste 'after
'evil-visual-paste-paste-micro-state-after)
'evil-visual-paste-paste-micro-state)
(ad-activate 'evil-visual-paste))
;; define text objects