Skip to content
Browse files

patches from wrangler

  • Loading branch information...
1 parent 6ccf69a commit c4dc7b5ef31d7b23ef47b9a542a0c92d11cfeb26 Richard Carlsson committed Aug 3, 2011
Showing with 7 additions and 4 deletions.
  1. +3 −1 elisp/erl.el
  2. +1 −0 elisp/erlext.el
  3. +3 −3 src/distel.erl
View
4 elisp/erl.el
@@ -631,6 +631,8 @@ during the next `erl-schedule'."
(defun &erl-group-leader-loop ()
(erl-receive ()
((['put_chars s]
+ (if (eq s nil)
+ nil
(condition-case err
(save-excursion
(with-current-buffer (get-buffer-create "*erl-output*")
@@ -640,7 +642,7 @@ during the next `erl-schedule'."
(display-buffer (current-buffer)))))
(goto-char (point-max))
(insert s))))
- (error (message "Error in group leader: %S" err)))))
+ (error (message "Error in group leader: %S" err))))))
(&erl-group-leader-loop)))
(when (null erl-group-leader)
View
1 elisp/erlext.el
@@ -268,6 +268,7 @@
((string) (erlext-read-string))
((bin) (erlext-read-binary))
((null) nil)
+ ((nil) nil)
((pid) (vector erl-tag
'erl-pid
(erlext-read-obj) ; node
View
6 src/distel.erl
@@ -368,7 +368,7 @@ fprof_tag({M,F,A}) when is_integer(A) ->
to_atom(fmt("~p:~p/~p", [M,F,A]));
fprof_tag({M,F,A}) when is_list(A) ->
fprof_tag({M,F,length(A)});
-fprof_tag(Name) when is_atom(Name) ->
+fprof_tag(Name) when is_atom(Name) ->
Name.
fprof_mfa({M,F,A}) -> [M,F,A];
@@ -394,7 +394,7 @@ fprof_beamfile(_) -> undefined.
pad(X, A) when is_atom(A) ->
pad(X, to_list(A));
pad(X, S) when length(S) < X ->
- S ++ duplicate(X - length(S), $ );
+ S ++ duplicate(X - length(S), $\s);
pad(_X, S) ->
S.
@@ -922,7 +922,7 @@ best_arg(Args) ->
%% 'unknown' useless, type description is better, variable name is best.
best_arg(unknown, A2) -> A2;
best_arg(A1, unknown) -> A1;
-best_arg(A1, A2) when is_atom(A1),is_atom(A2) ->
+best_arg(A1, A2) when is_atom(A1), is_atom(A2) ->
%% ... and the longer the variable name the better
case length(to_list(A2)) > length(to_list(A1)) of
true -> A2;

0 comments on commit c4dc7b5

Please sign in to comment.
Something went wrong with that request. Please try again.