diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-05-24 07:05:19 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2017-05-24 07:38:54 +0200 |
commit | ee2acf04873ae513855c03f4cf0cc2b1feb2e87d (patch) | |
tree | 6f316b86db07eaf0aa1cdf1070338d7e48d7700a /helm-ring.el | |
parent | 3a1e91978703e057909c95b646073b289b81cb00 (diff) |
Start adding group in some sources.
* helm-files.el (helm-source-ffiles): Do it.
* helm-types.el (helm--setup-source): Do it.
* helm-dabbrev.el (helm-dabbrev): Do it.
* helm-elisp-package.el (helm-list-el-package-source): Do it.
* helm-grep.el (helm-grep-class): Do it.
(helm-grep-ag-class): Do it.
* helm-imenu.el (helm-imenu-source): Do it.
* helm-locate.el (helm-locate-source): Do it.
(helm-locate-subdirs-source): Do it.
* helm-man.el (helm-source-man-pages): Do it.
* helm-org.el (helm-org-headings-class): Do it.
* helm-regexp.el (helm-source-regexp): Do it.
(helm-source-multi-occur): Do it.
* helm-ring.el (helm-source-kill-ring): Do it.
(helm-source-mark-ring): Do it.
(helm-source-global-mark-ring): Do it.
(helm-source-register): Do it.
(helm-execute-kmacro): Do it.
* helm-sys.el (helm-source-top): Do it.
* helm-tags.el (helm-etags-build-source): Do it.
Diffstat (limited to 'helm-ring.el')
-rw-r--r-- | helm-ring.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/helm-ring.el b/helm-ring.el index 4217ed52..3b142063 100644 --- a/helm-ring.el +++ b/helm-ring.el @@ -88,7 +88,8 @@ will not have anymore separators between candidates." :persistent-help "DoNothing" :keymap helm-kill-ring-map :migemo t - :multiline 'helm-kill-ring-max-offset) + :multiline 'helm-kill-ring-max-offset + :group 'helm-ring) "Source for browse and insert contents of kill-ring.") (defun helm-kill-ring-candidates () @@ -247,14 +248,16 @@ This is a command for `helm-kill-ring-map'." (helm-build-sync-source "mark-ring" :candidates #'helm-mark-ring-get-candidates :action '(("Goto line" . helm-mark-ring-default-action)) - :persistent-help "Show this line")) + :persistent-help "Show this line" + :group 'helm-ring)) ;;; Global-mark-ring (defvar helm-source-global-mark-ring (helm-build-sync-source "global-mark-ring" :candidates #'helm-global-mark-ring-get-candidates :action '(("Goto line" . helm-mark-ring-default-action)) - :persistent-help "Show this line")) + :persistent-help "Show this line" + :group 'helm-ring)) (defun helm-global-mark-ring-format-buffer (marker) (with-current-buffer (marker-buffer marker) @@ -332,7 +335,8 @@ the `global-mark-ring' after each new visit." for register = (car candidate) do (setq register-alist (delq (assoc register register-alist) - register-alist))))))) + register-alist)))))) + :group 'helm-ring) "See (info \"(emacs)Registers\")") (defun helm-register-candidates () @@ -512,7 +516,8 @@ This command is useful when used with persistent action." (kmacro-push-ring) (kmacro-split-ring-element candidate) (kmacro-exec-ring-item - candidate helm-current-prefix-arg)))) + candidate helm-current-prefix-arg))) + :group 'helm-ring) :buffer "*helm kmacro*")) (provide 'helm-ring) |