;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\302%\210\314\315\316\317\320DD\321\313\310\322\323&\210\314\324\316\317\325DD\326\313\310\322\317&\210\314\327\316\317\330DD\331\313\310\322\332&\210\314\333\316\317\334DD\335\322\336\313\310&\210\314\337\316\317\340DD\341\322\332\313\310&\210\314\342\316\317\343DD\344\313\345\322\346&\210\314\347\316\317\350DD\351\313\310\322\352&\207" [require cl-lib helm helm-lib imenu helm-utils helm-help custom-declare-group helm-imenu nil "Imenu related libraries and applications for helm." :group custom-declare-variable helm-imenu-delimiter funcall function #[0 "\300\207" [#1=" / "] 1 #1#] "Delimit types of candidates and his value in `helm-buffer'." :type string helm-imenu-execute-action-at-once-if-one #[0 "\300\207" [helm-imenu--execute-action-at-once-p] 1] "Goto the candidate when only one is remaining." helm-imenu-lynx-style-map #[0 "\300\207" [t] 1] "Use Arrow keys to jump to occurences." boolean helm-imenu-all-buffer-assoc #[0 "\300\207" [nil] 1] "Major mode association alist for `helm-imenu-in-all-buffers'.\nAllow `helm-imenu-in-all-buffers' searching in these associated buffers\neven if they are not derived from each other.\nThe alist is bidirectional, i.e no need to add '((foo . bar) (bar . foo))\nonly '((foo . bar)) is needed." (alist :key-type symbol :value-type symbol) helm-imenu-in-all-buffers-separate-sources #[0 "\300\207" [t] 1] "Display imenu index of each buffer in its own source when non-nil.\n\nWhen nil all candidates are displayed in a single source.\n\nNOTE: Each source will have as name \"Imenu <buffer-name>\".\n`helm-source-imenu-all' will not be set, however it will continue\nto be used as a flag for using default as input, if you do not want\nthis behavior, remove it from `helm-sources-using-default-as-input'\neven if not using a single source to display imenu in all buffers." helm-imenu-type-faces #[0 "\300\207" [(("^Variables$" . font-lock-variable-name-face) ("^\\(Function\\|Functions\\|Defuns\\)$" . font-lock-function-name-face) ("^\\(Types\\|Provides\\|Requires\\|Classes\\|Class\\|Includes\\|Imports\\|Misc\\|Code\\)$" . font-lock-type-face))] 1] "Faces for showing type in helm-imenu.\nThis is a list of cons cells. The cdr of each cell is a face to be used,\nand it can also just be like \\='(:foreground \"yellow\").\nEach car is a regexp match pattern of the imenu type string." helm-faces (repeat (cons (regexp :tag "Imenu type regexp pattern") (sexp :tag "Face"))) helm-imenu-extra-modes #[0 "\300\207" [nil] 1] "Extra modes where helm-imenu-in-all-buffers should look into." (repeat symbol)] 8)
|
(defvar helm-imenu-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210 \203/ \304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\321\322\"\207" [helm-map helm-imenu-lynx-style-map make-sparse-keymap set-keymap-parent define-key [M-down] helm-imenu-next-section [M-up] helm-imenu-previous-section [left] helm-maybe-exit-minibuffer [right] helm-execute-persistent-action [M-left] helm-previous-source [M-right] helm-next-source delq nil] 5))
|
#@10
|
|
(fn N)
|
(defalias 'helm-imenu-next-or-previous-section #[257 "r\300 q\210\301\211 \302V\203 \303\202 \304\302V\203 \305\202 \306\3072; \211 ?\205: \210 \230\204\" \310\307\311\"\210\202\" 0\266\204)\207" [helm-buffer-get #[0 "\301\302\303\304\"\"@\207" [helm-imenu-delimiter split-string helm-get-selection nil t] 4] 0 helm-next-line helm-previous-line helm-end-of-source-p helm-beginning-of-source-p break throw nil] 8 (#$ . 3565)])
|
(defalias 'helm-imenu-next-section #[0 "\300\301!\207" [helm-imenu-next-or-previous-section 1] 2 nil nil])
|
(defalias 'helm-imenu-previous-section #[0 "\300\301!\207" [helm-imenu-next-or-previous-section -1] 2 nil nil])
|
(defvar helm-cached-imenu-alist nil)
|
(make-variable-buffer-local 'helm-cached-imenu-alist)
|
(defvar helm-cached-imenu-candidates nil)
|
(make-variable-buffer-local 'helm-cached-imenu-candidates)
|
(defvar helm-cached-imenu-tick nil)
|
(make-variable-buffer-local 'helm-cached-imenu-tick)
|
(defvar helm-imenu--in-all-buffers-cache nil)
|
#@27 See (info "(emacs)Imenu")
|
(defvar helm-source-imenu nil (#$ . 4563))
|
(defvar helm-source-imenu-all nil)
|
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-imenu-source-p eieio-make-class-predicate helm-imenu-source helm-imenu-source--eieio-childp eieio-make-child-predicate helm-imenu-source-child-p make-obsolete "use (cl-typep ... \\='helm-imenu-source) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-sync) ((candidates :initform 'helm-imenu-candidates) (candidate-transformer :initform 'helm-imenu-transformer) (persistent-action :initform 'helm-imenu-persistent-action) (persistent-help :initform "Show this entry") (nomark :initform t) (keymap :initform helm-imenu-map) (help-message :initform 'helm-imenu-help-message) (action :initform 'helm-imenu-action) (group :initform 'helm-imenu)) nil] 6)
|
#@74 Create a new object of class type `helm-imenu-source'.
|
|
(fn &rest SLOTS)
|
(defalias 'helm-imenu-source #[128 "\300\301\302#\207" [apply make-instance helm-imenu-source] 5 (#$ . 5522)])
|
(byte-code "\300\301\302\303#\300\207" [function-put helm-imenu-source compiler-macro helm-imenu-source--anon-cmacro] 4)
|
#@26
|
|
(fn WHOLE &rest SLOTS)
|
(defalias 'helm-imenu-source--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 5834)])
|
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable helm-imenu-fuzzy-match funcall function #[0 "\300\207" [nil] 1] "Enable fuzzy matching in `helm-source-imenu'." :group helm-imenu :type boolean :set #[514 "L\210\302\303\304\305$\211\207" [helm-imenu-fuzzy-match helm-source-imenu helm-make-source "Imenu" helm-imenu-source :fuzzy-match] 7 "\n\n(fn VAR VAL)"]] 10)
|
#@18
|
|
(fn CANDIDATE)
|
(defalias 'helm-imenu--maybe-switch-to-buffer #[257 "\211A\300!\205 \301!\211\205 \302!\262\207" [markerp marker-buffer switch-to-buffer] 5 (#$ . 6483)])
|
(defalias 'helm-imenu--execute-action-at-once-p #[0 "\301 r\302!\203 \206 p\211q\210\212\303 b\210\304 *A\232\203, \305\306\307!\210\310 \210\202- \311\207" [helm-current-buffer helm-get-selection buffer-live-p point-at-bol point-marker nil helm-set-pattern "" helm-force-update t] 5])
|
#@57 Default action for `helm-source-imenu'.
|
|
(fn CANDIDATE)
|
(defalias 'helm-imenu-action #[257 "\301\302!\210\303!\210\304!\210\305=?\205 \306 \207" [imenu-default-goto-function helm-log-run-hook helm-goto-line-before-hook helm-imenu--maybe-switch-to-buffer imenu semantic-imenu-goto-function helm-highlight-current-line] 3 (#$ . 6959)])
|
#@68 Default persistent action for `helm-source-imenu'.
|
|
(fn CANDIDATE)
|
(defalias 'helm-imenu-persistent-action #[257 "\300!\210\301!\210\302 \207" [helm-imenu--maybe-switch-to-buffer imenu helm-highlight-current-line] 3 (#$ . 7303)])
|
#@25
|
|
(fn &optional BUFFER)
|
(defalias 'helm-imenu-candidates #[256 "r\211\206 q\210\304 =\203 \n\202( \305\306\307!\310\311\312\313\"\"!\262\211\262)\207" [helm-current-buffer helm-cached-imenu-tick helm-cached-imenu-candidates imenu--index-alist buffer-modified-tick nil imenu--make-index-alist t helm-imenu--candidates-1 delete assoc "*Rescan*"] 8 (#$ . 7541)])
|
#@32
|
|
(fn &optional BUILD-SOURCES)
|
(defalias 'helm-imenu-candidates-in-all-buffers #[256 "\305 \306\307\310G#\203 p\202 \311\310\311:\203\207 @\262rq\210 \n\235\204. \312\313!\2052 \314 \")\203h \203Z \315\316\317\320!\"\321\322rq\210\323!)\324\f&B\262\202h \325rq\210\323!)!\244\262\211\247\203v \211@Y\205z \326\"\266A\262T\262\202 \211\237\266\205\327!\210\207" [helm-current-buffer major-mode helm-imenu-extra-modes helm-imenu-all-buffer-assoc helm-imenu-fuzzy-match buffer-list make-progress-reporter "Imenu indexing buffers..." 1 nil derived-mode-p prog-mode helm-same-major-mode-p helm-make-source format "Imenu in %s" buffer-name helm-imenu-source :candidates helm-imenu-candidates :fuzzy-match reverse progress-reporter-do-update progress-reporter-done] 15 (#$ . 7920)])
|
#@14
|
|
(fn ALIST)
|
(defalias 'helm-imenu--candidates-1 #[257 "\211\300\211:\203\237 @\262\301!\203P \302A\300\211\211:\203H @\262\211A\262\242\262\303\304 @#\250\203; \305!\202< BB\262A\262\202 \211\237\266\204!\202\223 A<\203_ \205\223 C\202\223 A\205\223 \211A\306!\203v \211\307!\262\202\213 \310!\204\201 \211\250\203\212 \211\305!\262\202\213 \300\262\241\205\223 C\237\244\262A\262\202 \211\237\207" [nil imenu--subalist-p helm-imenu--candidates-1 propertize helm-imenu-type copy-marker overlayp copy-overlay markerp] 13 (#$ . 8740)])
|
#@13
|
|
(fn ITEM)
|
(defalias 'helm-imenu--get-prop #[257 "\300\301\302#\211D\205$ \203# \300\301\302#\262\203\f B\262\202\f \211\207" [get-text-property 0 helm-imenu-type] 7 (#$ . 9320)])
|
#@19
|
|
(fn CANDIDATES)
|
(defalias 'helm-imenu-transformer #[257 "\211\301\211\211\211\211\211\211:\203\201 @\262\211A\262\242\262\302\303!\203+ \304!\202@ \305!\2048 \250\203? \306!\202@ \301!\262\307!\206] rq\210\310\311!)\203Y \312\202Z \313D\262\314\315#\262\316\317#\262BBB\262A\262\202 \211\237\207" [helm-imenu-delimiter nil buffer-name overlayp overlay-buffer markerp marker-buffer helm-imenu--get-prop derived-mode-p prog-mode "Function" "Top level" mapconcat #[257 "\301\302\303\211\304\303:\2036 @\262\211A\262\242\262\305\n\"\203+ \262\303\211\262\202, \304\2036 A\262\202 \203> \306\202? \211\266\205#\207" [helm-imenu-type-faces propertize face nil t string-match default] 12 "\n\n(fn X)"] propertize help-echo] 13 (#$ . 9517)])
|
#@35 Preconfigured `helm' for `imenu'.
|
(defalias 'helm-imenu #[0 "\204 \305\306\307\310 $\311\312\313!\n \314\315\300\316\317\205 \320!\321QD\322\323\324&*\207" [helm-source-imenu helm-imenu-fuzzy-match helm-imenu-execute-action-at-once-if-one helm-execute-action-at-once-if-one imenu-auto-rescan helm-make-source "Imenu" helm-imenu-source :fuzzy-match t thing-at-point symbol helm :sources :default "\\_<" regexp-quote "\\_>" :preselect :buffer "*helm imenu*"] 11 (#$ . 10320) nil])
|
#@235 Preconfigured helm for fetching imenu entries in all buffers with similar mode as current.
|
A mode is similar as current if it is the same, it is derived i.e `derived-mode-p'
|
or it have an association in `helm-imenu-all-buffer-assoc'.
|
(defalias 'helm-imenu-in-all-buffers #[0 "\204 \204 \306\307\310\311\312\313\314\315\n&\316\317\320! \301\f>??\203( \321\322!\202) \323 \324\325\326\327\205? \330 !\331QD\332 ?\205L \333\334&+\207" [helm-imenu-in-all-buffers-separate-sources helm-source-imenu-all helm-imenu-fuzzy-match helm-imenu-execute-action-at-once-if-one helm-sources-using-default-as-input helm--maybe-use-default-as-input helm-make-source "Imenu in all buffers" helm-imenu-source :init #[0 "\301 \211\207" [helm-imenu--in-all-buffers-cache helm-imenu-candidates-in-all-buffers] 2] :candidates helm-imenu--in-all-buffers-cache :fuzzy-match t thing-at-point symbol helm-imenu-candidates-in-all-buffers build-sources (helm-source-imenu-all) helm :sources :default "\\_<" regexp-quote "\\_>" :preselect :buffer "*helm imenu all*" helm-execute-action-at-once-if-one imenu-auto-rescan] 14 (#$ . 10819) nil])
|
(provide 'helm-imenu)
|
