workgroups2 Changeset - 0f9f40f42c2f

Changeset - 0f9f40f42c2f

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-07-26 11:50:56
sergey@pashinin.com

one line advice

1 file changed with 2 insertions and 4 deletions:

src/workgroups-advice.el

0 comments (0 inline, 0 general)

src/workgroups-advice.el

➞

Show inline comments

@@ @@ -80,26 +80,25 @@ Before selecting a new frame." @@
 (defun wg-enable-all-advice ()
   "Enable and activate all of Workgroups' advice."
   ;; From advice.el:
   ;;
   ;; (defmacro ad-define-subr-args (subr arglist)
   ;;   `(put ,subr 'ad-subr-arglist (list ,arglist)))
   ;; switch-to-buffer
   ;; (ad-define-subr-args 'switch-to-buffer '(buffer-or-name &optional norecord))
   (ad-enable-advice 'switch-to-buffer 'after 'wg-auto-associate-buffer)
   (ad-enable-advice
    'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-enable-advice 'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'switch-to-buffer)
   ;; set-window-buffer
   ;; (ad-define-subr-args 'set-window-buffer '(window buffer-or-name &optional keep-margins))
   (ad-enable-advice 'set-window-buffer 'after 'wg-auto-associate-buffer)
   (ad-enable-advice
    'set-window-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-activate 'set-window-buffer)
   ;; split-window
   (ad-enable-advice
    'split-window 'before 'wg-pre-window-configuration-change-hook)
@@ @@ -134,26 +133,25 @@ Before selecting a new frame." @@
   ;;                  'wg-update-current-workgroup-working-wconfig)
   ;;(ad-activate 'select-frame)
+  )
 ;; disable all advice
 ;; (wg-disable-all-advice)
 (defun wg-disable-all-advice ()
   "Disable and deactivate all of Workgroups' advice."
   ;; switch-to-buffer
   (ad-disable-advice 'switch-to-buffer 'after 'wg-auto-associate-buffer)
   (ad-disable-advice
    'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-disable-advice 'switch-to-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'switch-to-buffer)
   ;; set-window-buffer
   (ad-disable-advice 'set-window-buffer 'after 'wg-auto-associate-buffer)
   (ad-disable-advice
    'set-window-buffer 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'set-window-buffer)
   ;; split-window
   (ad-disable-advice
    'split-window 'before 'wg-pre-window-configuration-change-hook)
   (ad-deactivate 'split-window)

0 comments (0 inline, 0 general)