[elpa] externals/objed 15e49df 105/166: Refactor mode body add buffer display functions to auto init

[Clemens Radermacher]

branch: externals/objed
commit 15e49df6d28fa5afadf830f4863664ceb3e893c8
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Refactor mode body add buffer display functions to auto init
---
 objed.el | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/objed.el b/objed.el
index 9ecb8f8..c879cdc 100644
--- a/objed.el
+++ b/objed.el
@@ -3909,25 +3909,24 @@ setting the user options 
`objed-use-which-key-if-available-p' and
         (when objed-auto-init
           ;; interactive cmds
           (objed--install-advices objed-cmd-alist t)
-          ;; auto entry cmds
-          (advice-add #'quit-window
-                      :after #'objed--init-later)
-          (advice-add #'rename-buffer
-                      :after #'objed--init-later)
-          (advice-add #'create-file-buffer
-                      :after #'objed--init-later)
-          (advice-add #'switch-to-buffer
-                      :after #'objed--init-later)))
+          (dolist (f '(quit-window
+                       create-file-buffer
+                       rename-buffer
+                       switch-to-buffer
+                       display-buffer
+                       pop-to-buffer))
+            ;; auto entry cmds
+            (advice-add f :after #'objed--init-later))))
     (remove-hook 'minibuffer-setup-hook 'objed--reset)
     (objed--remove-advices objed-cmd-alist)
-    (advice-remove #'quit-window
-                   #'objed--init-later)
-    (advice-remove #'rename-buffer
-                   #'objed--init-later)
-    (advice-remove #'create-file-buffer
-                   #'objed--init-later)
-    (advice-remove #'switch-to-buffer
-                   #'objed--init-later)))
+    (dolist (f '(quit-window
+                 create-file-buffer
+                 rename-buffer
+                 switch-to-buffer
+                 display-buffer
+                 pop-to-buffer))
+      ;; auto entry cmds
+      (advice-remove f #'objed--init-later))))
 
 
 (defun objed--install-advices-for (cmds obj)