Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

* helm-mode.el: Move helm-this-command to helm.el

  • Loading branch information...
commit 6d56659921fa59b6d8fe7280870bd083ee939446 1 parent 396044f
@thierryvolpiatto thierryvolpiatto authored
Showing with 15 additions and 15 deletions.
  1. +0 −15 helm-mode.el
  2. +15 −0 helm.el
View
15 helm-mode.el
@@ -97,21 +97,6 @@ See `helm-case-fold-search' for more info."
#'(lambda (_candidate)
(identity ""))))
-(defun helm-this-command ()
- "Return the actual command in action.
-Like `this-command' but return the real command,
-not `exit-minibuffer' or unwanted functions."
- (loop with bl = '(helm-exit-minibuffer
- exit-minibuffer)
- for count from 1 to 50
- for btf = (backtrace-frame count)
- for fn = (second btf)
- if (and (commandp fn) (not (memq fn bl))) return fn
- else
- if (and (eq fn 'call-interactively)
- (> (length btf) 2))
- return (cadr (cdr btf))))
-
(defun helm-comp-read-get-candidates (collection &optional test sort-fn alistp)
"Convert COLLECTION to list removing elements that don't match TEST.
See `helm-comp-read' about supported COLLECTION arguments.
View
15 helm.el
@@ -704,6 +704,21 @@ Otherwise make a list with one element."
obj
(list obj)))
+(defun helm-this-command ()
+ "Return the actual command in action.
+Like `this-command' but return the real command,
+not `exit-minibuffer' or unwanted functions."
+ (loop with bl = '(helm-exit-minibuffer
+ exit-minibuffer)
+ for count from 1 to 50
+ for btf = (backtrace-frame count)
+ for fn = (second btf)
+ if (and (commandp fn) (not (memq fn bl))) return fn
+ else
+ if (and (eq fn 'call-interactively)
+ (> (length btf) 2))
+ return (cadr (cdr btf))))
+
;; Helm API
Please sign in to comment.
Something went wrong with that request. Please try again.