diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-08 09:17:52 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-09-08 09:17:52 +0200 |
commit | f953f99d76e0632d490ddfec4f39f94f81e25c1a (patch) | |
tree | db97504a69d77b316b4bbfe70c0673439d360ac8 /helm-ring.el | |
parent | ce98bdea6aa2f183d288b1faf06c9dbe0429ca85 (diff) |
Remove last obsoletes defadvices.
* helm-ring.el (helm-push-mark-mode): Use advice-add.
* helm.el (helm-internal): Same.
(cua-delete-region--advice): New, replace old defadvices.
(copy-region-as-kill--advice): New replace old defadvices.
Diffstat (limited to 'helm-ring.el')
-rw-r--r-- | helm-ring.el | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/helm-ring.el b/helm-ring.el index 3221af6f..65af573e 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -249,9 +249,6 @@ replace with STR as yanked string." (set-mark (mark t))) nil) -(defadvice push-mark (around helm-push-mark-mode) - (helm--push-mark location nomsg activate)) - ;;;###autoload (define-minor-mode helm-push-mark-mode "Provide an improved version of `push-mark'. @@ -260,12 +257,8 @@ the `global-mark-ring' after each new visit." :group 'helm-ring :global t (if helm-push-mark-mode - (if (fboundp 'advice-add) - (advice-add 'push-mark :override #'helm--push-mark) - (ad-activate 'push-mark)) - (if (fboundp 'advice-remove) - (advice-remove 'push-mark #'helm--push-mark) - (ad-deactivate 'push-mark)))) + (advice-add 'push-mark :override #'helm--push-mark) + (advice-remove 'push-mark #'helm--push-mark))) ;;;; <Register> ;;; Insert from register |