mirror of https://github.com/Chizi123/.emacs.d.git
view | history | commit | commitdiff
Chizi123
2018-11-17 c4001ccd1864293b64aa37d83a9d9457eb875e70
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\322$\207" [require cl-lib eieio defalias helm-type-file-p eieio-make-class-predicate helm-type-file helm-type-file--eieio-childp eieio-make-child-predicate helm-type-file-child-p make-obsolete "use (cl-typep ... \\='helm-type-file) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) nil (:documentation "A class to define helm type file.")] 6)
16 #@71 Create a new object of class type `helm-type-file'.
17
18 (fn &rest SLOTS)
19 (defalias 'helm-type-file #[128 "\300\301\302#\207" [apply make-instance helm-type-file] 5 (#$ . 952)])
20 (byte-code "\300\301\302\303#\300\207" [function-put helm-type-file compiler-macro helm-type-file--anon-cmacro] 4)
21 #@26 
22
23 (fn WHOLE &rest SLOTS)
24 (defalias 'helm-type-file--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 (#$ . 1248)])
25 (byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\207" [eieio--defalias helm-source-get-action-from-type eieio--defgeneric-init-form nil eieio--defmethod helm-type-file #[257 "\300\301\"\207" [slot-value action] 4 "\n\n(fn OBJECT)"]] 5)
26 (defalias 'helm-actions-from-type-file #[0 "\300\301!\302!\210\303!\207" [make-instance helm-type-file helm--setup-source helm-source-get-action-from-type] 3])
27 #@27 Generic Keymap for files.
28 (defvar helm-generic-files-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\307#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key "" helm-ff-run-toggle-basename "" helm-ff-run-grep [134217831 115] [134217831 122] helm-ff-run-zgrep [134217831 112] helm-ff-run-pdfgrep "g" helm-ff-run-gid [134217810] helm-ff-run-rename-file [134217795] helm-ff-run-copy-file [134217794] helm-ff-run-byte-compile-file [134217804] helm-ff-run-load-file [134217811] helm-ff-run-symlink-file [134217800] helm-ff-run-hardlink-file [134217796] helm-ff-run-delete-file [67108925] helm-ff-run-ediff-file "=" helm-ff-run-ediff-merge-file "o" helm-ff-run-switch-other-window "r" helm-ff-run-find-file-as-root "" helm-ff-run-switch-other-frame [134217833] helm-ff-properties-persistent "" helm-ff-run-open-file-externally "X" helm-ff-run-open-file-with-default-tool [134217774] helm-ff-run-etags "@" helm-ff-run-insert-org-link "" helm-ff-run-marked-files-in-dired "" helm-ff-run-mail-attach-files] 5) (#$ . 1893))
29 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\313\315\"\"\210\316\313\317\320\321$\210\312\313\314\313\315\"\"\210\316\313\322\320\323$\210\324\325\326\327!\"\210\324\330\331\327!\"\210\324\332\330\"\210\333\332\334\335#\210\336\327\337\330#\340\327\341\315\342$\207" [custom-declare-variable helm-type-file-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366&6\207" [helm-make-actions "Find file" helm-find-many-files "Find file as root" helm-find-file-as-root "Find file other window" helm-find-files-other-window "Find file other frame" find-file-other-frame "Open dired in file's directory" helm-open-dired "Attach file(s) to mail buffer `C-c C-a'" helm-ff-mail-attach-files "Marked files in dired" helm-marked-files-in-dired "Grep File(s) `C-u recurse'" helm-find-files-grep "Zgrep File(s) `C-u Recurse'" helm-ff-zgrep "Pdfgrep File(s)" helm-ff-pdfgrep "Insert as org link" helm-files-insert-as-org-link "Checksum File" helm-ff-checksum "Ediff File" helm-find-files-ediff-files "Ediff Merge File" helm-find-files-ediff-merge-files "Etags `M-., C-u reload tag file'" helm-ff-etags-select "View file" view-file "Insert file" insert-file "Add marked files to file-cache" helm-ff-cache-add-file "Delete file(s)" helm-ff-delete-files "Copy file(s) `M-C, C-u to follow'" helm-find-files-copy "Rename file(s) `M-R, C-u to follow'" helm-find-files-rename "Symlink files(s) `M-S, C-u to follow'" helm-find-files-symlink "Relsymlink file(s) `C-u to follow'" helm-find-files-relsymlink "Hardlink file(s) `M-H, C-u to follow'" helm-find-files-hardlink "Open file externally (C-u to choose)" helm-open-file-externally "Open file with default tool" helm-open-file-with-default-tool "Find file in hex dump" hexl-find-file] 55] "Default actions for type files." :group helm-files :type (alist :key-type string :value-type function) eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :primary helm-type-file #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\211\302\303\304#\266\211\302\305\306#\266\211\302\307\310#\266\211\302\311\312#\266\211\302\313\314#\266\211\302\315\316#\266\211\302\317\320D#\266\211\302\321    #\266\211\302\322\323#\207" [helm-mode-line-string helm-generic-files-map eieio-oset action helm-type-file-actions persistent-help "Show this file" action-transformer (helm-transform-file-load-el helm-transform-file-browse-url helm-transform-file-cache) candidate-transformer (helm-skip-boring-files helm-w32-pathname-transformer) filtered-candidate-transformer helm-highlight-files help-message helm-generic-file-help-message mode-line "File(s)" keymap group helm-files] 7 "\n\n(fn SOURCE)"] defalias helm-type-bookmark-p eieio-make-class-predicate helm-type-bookmark helm-type-bookmark--eieio-childp eieio-make-child-predicate helm-type-bookmark-child-p make-obsolete "use (cl-typep ... \\='helm-type-bookmark) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) (:documentation "A class to define type bookmarks.")] 8)
30 #@75 Create a new object of class type `helm-type-bookmark'.
31
32 (fn &rest SLOTS)
33 (defalias 'helm-type-bookmark #[128 "\300\301\302#\207" [apply make-instance helm-type-bookmark] 5 (#$ . 6632)])
34 (byte-code "\300\301\302\303#\300\207" [function-put helm-type-bookmark compiler-macro helm-type-bookmark--anon-cmacro] 4)
35 #@26 
36
37 (fn WHOLE &rest SLOTS)
38 (defalias 'helm-type-bookmark--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 (#$ . 6949)])
39 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\313\315\"\"\210\316\313\315\317\320$\210\312\321\314\321\315\"\"\210\316\321\322\317\323$\210\312\321\314\321\315\"\"\210\316\321\324\317\325$\210\326\327\330\331!\"\210\326\332\333\331!\"\210\326\334\332\"\210\335\334\336\337#\210\340\331\341\332#\342\331\343\315\344$\207" [custom-declare-variable helm-type-bookmark-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322&\207" [helm-make-actions "Jump to bookmark" helm-bookmark-jump "Jump to BM other window" helm-bookmark-jump-other-window "Jump to BM other frame" helm-bookmark-jump-other-frame "Bookmark edit annotation" bookmark-edit-annotation "Bookmark show annotation" bookmark-show-annotation "Delete bookmark(s)" helm-delete-marked-bookmarks "Edit Bookmark" helm-bookmark-edit-bookmark "Rename bookmark" helm-bookmark-rename "Relocate bookmark" bookmark-relocate] 19] "Default actions for type bookmarks." :group helm-bookmark :type (alist :key-type string :value-type function) eieio--defalias helm-source-get-action-from-type eieio--defgeneric-init-form nil eieio--defmethod helm-type-bookmark #[257 "\300\301\"\207" [slot-value action] 4 "\n\n(fn OBJECT)"] helm--setup-source :primary #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\211\302\303\304#\266\211\302\305#\266\211\302\306\307    D#\266\211\302\310\311#\266\211\302\312\313#\266\211\302\314\315#\266\211\302\316\317#\207" [helm-bookmark-map helm-mode-line-string eieio-oset action helm-type-bookmark-actions keymap mode-line "Bookmark(s)" help-message helm-bookmark-help-message migemo t follow never group helm-bookmark] 7 "\n\n(fn SOURCE)"] defalias helm-type-buffer-p eieio-make-class-predicate helm-type-buffer helm-type-buffer--eieio-childp eieio-make-child-predicate helm-type-buffer-child-p make-obsolete "use (cl-typep ... \\='helm-type-buffer) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) (:documentation "A class to define type buffer.")] 8)
40 #@73 Create a new object of class type `helm-type-buffer'.
41
42 (fn &rest SLOTS)
43 (defalias 'helm-type-buffer #[128 "\300\301\302#\207" [apply make-instance helm-type-buffer] 5 (#$ . 9263)])
44 (byte-code "\300\301\302\303#\300\207" [function-put helm-type-buffer compiler-macro helm-type-buffer--anon-cmacro] 4)
45 #@26 
46
47 (fn WHOLE &rest SLOTS)
48 (defalias 'helm-type-buffer--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 (#$ . 9570)])
49 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\313\315\"\"\210\316\313\315\317\320$\210\312\321\314\321\315\"\"\210\316\321\322\317\323$\210\312\321\314\321\315\"\"\210\316\321\324\317\325$\210\326\327\330\331!\"\210\326\332\333\331!\"\210\326\334\332\"\210\335\334\336\337#\210\340\331\341\332#\342\331\343\315\344$\207" [custom-declare-variable helm-type-buffer-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342&\"\207" [helm-make-actions "Switch to buffer(s)" helm-buffer-switch-buffers "Switch to buffer(s) other window `C-c o'" helm-buffer-switch-buffers-other-window "Switch to buffer other frame `C-c C-o'" switch-to-buffer-other-frame "Browse project from buffer" helm-buffers-browse-project "Query replace regexp `C-M-%'" helm-buffer-query-replace-regexp "Query replace `M-%'" helm-buffer-query-replace "View buffer" view-buffer "Display buffer" display-buffer "Rename buffer" helm-buffers-rename-buffer "Grep buffers `M-g s' (C-u grep all buffers)" helm-zgrep-buffers "Multi occur buffer(s) `C-s'" helm-multi-occur-as-action "Revert buffer(s) `M-U'" helm-revert-marked-buffers "Insert buffer" insert-buffer "Kill buffer(s) `M-D'" helm-kill-marked-buffers "Diff with file `C-='" diff-buffer-with-file "Ediff Marked buffers `C-c ='" helm-ediff-marked-buffers "Ediff Merge marked buffers `M-='" #[257 "\300\301\"\207" [helm-ediff-marked-buffers t] 4 "\n\n(fn CANDIDATE)"]] 35] "Default actions for type buffers." :group helm-buffers :type (alist :key-type string :value-type function) eieio--defalias helm-source-get-action-from-type eieio--defgeneric-init-form nil eieio--defmethod helm-type-buffer #[257 "\300\301\"\207" [slot-value action] 4 "\n\n(fn OBJECT)"] helm--setup-source :primary #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\211\301\302\303#\266\211\301\304\305#\266\211\301\306\307D#\266\211\301\310\311#\266\211\301\312\313#\207" [helm-mode-line-string eieio-oset action helm-type-buffer-actions persistent-help "Show this buffer" mode-line "Buffer(s)" filtered-candidate-transformer (helm-skip-boring-buffers helm-buffers-sort-transformer helm-highlight-buffers) group helm-buffers] 7 "\n\n(fn SOURCE)"] defalias helm-type-function-p eieio-make-class-predicate helm-type-function helm-type-function--eieio-childp eieio-make-child-predicate helm-type-function-child-p make-obsolete "use (cl-typep ... \\='helm-type-function) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) (:documentation "A class to define helm type function.")] 8)
50 #@75 Create a new object of class type `helm-type-function'.
51
52 (fn &rest SLOTS)
53 (defalias 'helm-type-function #[128 "\300\301\302#\207" [apply make-instance helm-type-function] 5 (#$ . 12480)])
54 (byte-code "\300\301\302\303#\300\207" [function-put helm-type-function compiler-macro helm-type-function--anon-cmacro] 4)
55 #@26 
56
57 (fn WHOLE &rest SLOTS)
58 (defalias 'helm-type-function--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 (#$ . 12798)])
59 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\313\315\"\"\210\316\313\315\317\320$\207" [custom-declare-variable helm-type-function-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317\320&\207" [helm-make-actions "Describe command" describe-function "Add command to kill ring" helm-kill-new "Go to command's definition" find-function "Debug on entry" debug-on-entry "Cancel debug on entry" cancel-debug-on-entry "Trace function" trace-function "Trace function (background)" trace-function-background "Untrace function" untrace-function] 17] "Default actions for type functions." :group helm-elisp :type (alist :key-type string :value-type function) eieio--defalias helm-source-get-action-from-type eieio--defgeneric-init-form nil eieio--defmethod helm-type-function #[257 "\300\301\"\207" [slot-value action] 4 "\n\n(fn OBJECT)"]] 8)
60 (defalias 'helm-actions-from-type-function #[0 "\300\301!\302!\210\303!\207" [make-instance helm-type-function helm--setup-source helm-source-get-action-from-type] 3])
61 (byte-code "\300\301\302\301\303\"\"\210\304\301\305\306\307$\210\300\301\302\301\303\"\"\210\304\301\310\306\311$\210\312\313\314\315!\"\210\312\316\317\315!\"\210\312\320\316\"\210\321\320\322\323#\210\324\315\325\316#\326\315\327\303\330$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :primary helm-type-function #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\211\300\301\302#\266\211\300\303\304#\266\211\300\305\306#\266\211\300\307\310#\207" [eieio-oset action helm-type-function-actions action-transformer helm-transform-function-call-interactively candidate-transformer helm-mark-interactive-functions coerce helm-symbolify] 6 "\n\n(fn SOURCE)"] defalias helm-type-command-p eieio-make-class-predicate helm-type-command helm-type-command--eieio-childp eieio-make-child-predicate helm-type-command-child-p make-obsolete "use (cl-typep ... \\='helm-type-command) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) (:documentation "A class to define helm type command.")] 6)
62 #@74 Create a new object of class type `helm-type-command'.
63
64 (fn &rest SLOTS)
65 (defalias 'helm-type-command #[128 "\300\301\302#\207" [apply make-instance helm-type-command] 5 (#$ . 15199)])
66 (byte-code "\300\301\302\303#\300\207" [function-put helm-type-command compiler-macro helm-type-command--anon-cmacro] 4)
67 #@26 
68
69 (fn WHOLE &rest SLOTS)
70 (defalias 'helm-type-command--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 (#$ . 15512)])
71 (defalias 'helm-actions-from-type-command #[0 "\300\301!\302!\210\303!\207" [make-instance helm-type-command helm--setup-source helm-source-get-action-from-type] 3])
72 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\313\315\"\"\210\316\313\317\320\321$\210\312\313\314\313\315\"\"\210\316\313\322\320\323$\210\324\325\326\327!\"\210\324\330\331\327!\"\210\324\332\330\"\210\333\332\334\335#\210\336\327\337\330#\340\327\341\315\342$\207" [custom-declare-variable helm-type-command-actions funcall function #[0 "\300\301\302\303\"\304 \"\207" [append helm-make-actions "Call interactively" helm-call-interactively helm-actions-from-type-function] 4] "Default actions for type command." :group helm-command :type (alist :key-type string :value-type function) eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :primary helm-type-command #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\211\300\301\302#\266\211\300\303\304#\266\211\300\305\306#\266\211\300\307\310#\207" [eieio-oset action helm-type-command-actions coerce helm-symbolify persistent-action describe-function group helm-command] 6 "\n\n(fn SOURCE)"] defalias helm-type-timers-p eieio-make-class-predicate helm-type-timers helm-type-timers--eieio-childp eieio-make-child-predicate helm-type-timers-child-p make-obsolete "use (cl-typep ... \\='helm-type-timers) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source) (:documentation "A class to define helm type timers.")] 8)
73 #@73 Create a new object of class type `helm-type-timers'.
74
75 (fn &rest SLOTS)
76 (defalias 'helm-type-timers #[128 "\300\301\302#\207" [apply make-instance helm-type-timers] 5 (#$ . 17301)])
77 (byte-code "\300\301\302\303#\300\207" [function-put helm-type-timers compiler-macro helm-type-timers--anon-cmacro] 4)
78 #@26 
79
80 (fn WHOLE &rest SLOTS)
81 (defalias 'helm-type-timers--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 (#$ . 17609)])
82 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\313\314\313\315\"\"\210\316\313\317\320\321$\210\312\313\314\313\315\"\"\210\316\313\322\320\323$\207" [custom-declare-variable helm-type-timers-actions funcall function #[0 "\300\207" [(("Cancel Timer" lambda (_timer) (let ((mkd (helm-marked-candidates))) (cl-loop for timer in mkd do (cancel-timer timer)))) ("Describe Function" lambda (tm) (describe-function (timer--function tm))) ("Find Function" lambda (tm) (helm-aif (timer--function tm) (if (byte-code-function-p it) (message "Can't find anonymous function `%s'" it) (find-function it)))))] 1] "Default actions for type timers." :group helm-elisp :type (alist :key-type string :value-type function) eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod :primary helm-type-timers #[257 "\300\207" [nil] 2 "\n\n(fn SOURCE)"] :before #[257 "\211\300\301\302#\266\211\300\303\304#\266\211\300\305\306#\266\211\300\307\310#\207" [eieio-oset action helm-type-timers-actions persistent-action #[257 "\300\301H!\207" [describe-function 5] 4 "\n\n(fn TM)"] persistent-help "Describe Function" group helm-elisp] 6 "\n\n(fn SOURCE)"]] 8)
83 (defalias 'helm-build-type-file #[0 "\300\301!\207" [helm-make-type helm-type-file] 2])
84 (defalias 'helm-build-type-function #[0 "\300\301!\207" [helm-make-type helm-type-function] 2])
85 (defalias 'helm-build-type-command #[0 "\300\301!\207" [helm-make-type helm-type-command] 2])
86 (provide 'helm-types)