From 6b2f463a695200a10038dbcc5f3a01c50b92da19 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Mon, 17 Apr 2017 08:33:32 +0300 Subject: Drop the redundant erlang-uncomment-region command --- lib/tools/emacs/erlang.el | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'lib/tools') diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index db3b537919..7c99e57b93 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -123,7 +123,7 @@ variable.") ("Edit" (("Fill Comment" erlang-fill-paragraph) ("Comment Region" comment-region mark-active) - ("Uncomment Region" erlang-uncomment-region mark-active) + ("Uncomment Region" uncomment-region mark-active) nil ("Beginning of Function" erlang-beginning-of-function) ("End of Function" erlang-end-of-function) @@ -1052,7 +1052,7 @@ behaviour.") (define-key map "\C-c\C-l" 'erlang-compile-display) (define-key map "\C-c\C-s" 'erlang-show-syntactic-information) (define-key map "\C-c\C-q" 'erlang-indent-function) - (define-key map "\C-c\C-u" 'erlang-uncomment-region) + (define-key map "\C-c\C-u" 'uncomment-region) (define-key map "\C-c\C-y" 'erlang-clone-arguments) (define-key map "\C-c\C-a" 'erlang-align-arrows) (define-key map "\C-c\C-z" 'erlang-shell-display) @@ -3356,13 +3356,6 @@ and initial `%':s." (fill-prefix comment-fill-prefix)) (fill-paragraph justify)))))) - -(defun erlang-uncomment-region (beg end) - "Uncomment all commented lines in the region." - (interactive "r") - (uncomment-region beg end)) - - (defun erlang-generate-new-clause () "Create additional Erlang clause header. -- cgit v1.2.3