From 378c1b7851bfbb04d55a468ea08cb099f12e18e8 Mon Sep 17 00:00:00 2001 From: sabof Date: Wed, 12 Feb 2014 08:13:44 +0000 Subject: helm-comint-input-ring support for all commint modes --- helm-misc.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'helm-misc.el') diff --git a/helm-misc.el b/helm-misc.el index 51f25afb..c252b09b 100644 --- a/helm-misc.el +++ b/helm-misc.el @@ -261,7 +261,7 @@ It is added to `extended-command-history'. (insert candidate))) (defvar helm-source-comint-input-ring - '((name . "Shell history") + '((name . "Comint history") (candidates . (lambda () (with-helm-current-buffer (ring-elements comint-input-ring)))) @@ -378,13 +378,13 @@ It is added to `extended-command-history'. ;;;###autoload (defun helm-comint-input-ring () - "Predefined `helm' that provide completion of `shell' history." + "Predefined `helm' that provide completion of `comint' history." (interactive) - (when (eq major-mode 'shell-mode) + (when (derived-mode-p 'comint-mode) (helm :sources 'helm-source-comint-input-ring :input (buffer-substring-no-properties (comint-line-beginning-position) (point-at-eol)) - :buffer "*helm shell history*"))) + :buffer "*helm comint history*"))) (provide 'helm-misc) -- cgit v1.2.3