diff options
| author | Tino Calancha | 2016-07-27 19:44:06 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-07-27 19:44:06 +0900 |
| commit | e0d425976e3a83585db9a586687897fe1ac6455f (patch) | |
| tree | 6790ef076d00fedac524feceefe806b4719e00af | |
| parent | 404765526af1a29ba9a9a8c870726588e423d657 (diff) | |
| download | emacs-e0d425976e3a83585db9a586687897fe1ac6455f.tar.gz emacs-e0d425976e3a83585db9a586687897fe1ac6455f.zip | |
Remove hook when disabling ibuffer-auto-mode
* lisp/ibuf-ext.el (ibuffer-auto-mode):
Remove 'ibuffer-auto-update-changed' from 'post-command-hook'.
| -rw-r--r-- | lisp/ibuf-ext.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 96b42b99f5c..f93957ecb78 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el | |||
| @@ -250,8 +250,11 @@ the mode if ARG is omitted or nil." | |||
| 250 | nil nil nil | 250 | nil nil nil |
| 251 | (unless (derived-mode-p 'ibuffer-mode) | 251 | (unless (derived-mode-p 'ibuffer-mode) |
| 252 | (error "This buffer is not in Ibuffer mode")) | 252 | (error "This buffer is not in Ibuffer mode")) |
| 253 | (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) ; Initialize state vector | 253 | (cond (ibuffer-auto-mode |
| 254 | (add-hook 'post-command-hook 'ibuffer-auto-update-changed)) | 254 | (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) ; Initialize state vector |
| 255 | (add-hook 'post-command-hook 'ibuffer-auto-update-changed)) | ||
| 256 | (t | ||
| 257 | (remove-hook 'post-command-hook 'ibuffer-auto-update-changed)))) | ||
| 255 | 258 | ||
| 256 | (defun ibuffer-auto-update-changed () | 259 | (defun ibuffer-auto-update-changed () |
| 257 | (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) | 260 | (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed) |