[nongnu] elpa/raku-mode 81805cfa8e 154/253: remove vars (to main file) per comments from syohex, clean up some

[ELPA Syncer]

branch: elpa/raku-mode
commit 81805cfa8e1ddc4eafa1381264b6f41d695cbba9
Author: Tom Browder <tom.browder@gmail.com>
Commit: Tom Browder <tom.browder@gmail.com>

    remove vars (to main file) per comments from syohex, clean up some
---
 perl6-imenu.el | 26 ++++++--------------------
 1 file changed, 6 insertions(+), 20 deletions(-)

diff --git a/perl6-imenu.el b/perl6-imenu.el
index f6211c7b32..55a9477afe 100644
--- a/perl6-imenu.el
+++ b/perl6-imenu.el
@@ -1,33 +1,19 @@
 ;;; perl6-imenu.el --- Imenu support Perl 6 -*- lexical-binding: t; -*-
 
-;;; Commentary:
-
-
 ;; Imenu functions and variables are defined here.
 (defvar perl6-imenu-generic-expression
-  '(
-    ;; the names are in reverse desired order since they are evaluated here 
last first
-    ("Variables" 
"^\\s-*\\(?:my\\|our\\)\\s-+\\(\\(?:\\$\\|@\\|%\\)\\(?:[_[:alnum:]]+\\)\\)" 1)
-    ("Subs/Methods" 
"^\\s-*\\(?:my\\s-+\\|our\\s-+\\)?\\(?:multi\\s-+sub\\|multi\\s-+method\\|sub\\|method\\|multi\\)\\s-+\\(.+)\\)"
 1)
-    )
-  "Define interesting points in the Perl 6 buffer for `imenu'.
+      '(
+        ;; the names are in reverse desired order since they are evaluated 
here last first
+        ("Variables" 
"^\\s-*\\(?:my\\|our\\)\\s-+\\(\\(?:\\$\\|@\\|%\\)\\(?:[_[:alnum:]]+\\)\\)" 1)
+        ("Subs/Methods" 
"^\\s-*\\(?:my\\s-+\\|our\\s-+\\)?\\(?:multi\\s-+sub\\|multi\\s-+method\\|sub\\|method\\|multi\\)\\s-+\\(.+)\\)"
 1)
+        )
+      "Define interesting points in the Perl 6 buffer for `imenu'.
 
 This is used to set `imenu-generic-expression' when Perl 6 mode is
 entered.  Subsequent changes to `perl6-imenu-generic-expression' will
 not affect existing Perl 6 buffers because imenu-generic-expression is
 a local variable.")
 
-;; Add imenu support for perl6-mode.  Note that imenu-generic-expression
-;; is buffer-local, so we don't need a local-variable for it.
-(setq imenu-generic-expression perl6-imenu-generic-expression
-      imenu-case-fold-search nil)
-
-;; Imenu support
-(add-hook 'perl6-mode-hook 'imenu-add-menubar-index)
-(add-hook 'perl6-mode-hook
-         (lambda ()
-           (setq imenu-generic-expression perl6-imenu-generic-expression)))
-
 ;;===========================
 (provide 'perl6-imenu)