Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

implemented erl-show-arglist: print arglist for function-under-point

  • Loading branch information...
commit 39b28a966d05b6b03f9bf3d5d6e39285bec26ed8 1 parent 290f959
mats cronqvist authored
Showing with 8 additions and 9 deletions.
  1. +8 −9 elisp/erl-service.el
View
17 elisp/erl-service.el
@@ -1189,18 +1189,17 @@ The match positions are erl-mfa-regexp-{module,function,arity}-match.")
;;;; Argument lists
-(defun erl-openparent ()
- "Insert a '(' character and arglist."
+(defun erl-openparen ()
+ "Insert a '(' character and show arglist information."
(interactive)
- (let ((call (erlang-get-function-under-point)))
- (erl-print-arglist call erl-nodename-cache (current-buffer))))
+ (erl-show-arglist)
+ (insert "("))
-(defun erl-openparen (node)
- "Insert a '(' character and show arglist information."
- (interactive (list erl-nodename-cache))
+(defun erl-show-arglist ()
+ "Show arglist information."
+ (interactive)
(let ((call (erlang-get-function-under-point)))
- (insert "(")
- (erl-print-arglist call node)))
+ (erl-print-arglist call erl-nodename-cache)))
(defun erl-print-arglist (call node &optional ins-buffer)
(when (and node (member node erl-nodes))
Please sign in to comment.
Something went wrong with that request. Please try again.