Add my-imenu-list-toggle

emacs.el

@@ -1230,10 +1230,19 @@ found, otherwise returns nil."
             'ggtags-mode)
   )
 
-(when (autoload-eval-lazily 'imenu-list)
+(when (fboundp 'imenu-list-minor-mode)
+  (defvar imenu-list-buffer-name)
+  (defun my-imenu-list-toggle ()
+    "My 'imenu-list` toggle."
+    (interactive)
+    (require 'imenu-list)
+    (if (eq (window-buffer)
+            (get-buffer imenu-list-buffer-name))
+        (imenu-list-minor-mode -1)
+      (imenu-list-minor-mode 1)))
   ;; (set-variable 'imenu-list-auto-resize t)
   (set-variable 'imenu-list-focus-after-activation t)
-  (define-key ctl-x-map (kbd "C-l") 'imenu-list-smart-toggle))
+  (define-key ctl-x-map (kbd "C-l") 'my-imenu-list-toggle))
 
 (add-hook 'emacs-lisp-mode-hook
           (lambda ()