diff options
| author | Bozhidar Batsov <[email protected]> | 2017-04-17 08:33:32 +0300 |
|---|---|---|
| committer | Bozhidar Batsov <[email protected]> | 2017-04-17 08:33:32 +0300 |
| commit | 6b2f463a695200a10038dbcc5f3a01c50b92da19 (patch) | |
| tree | e7a87bc749f898b24d381a0aca54a42d3371f1f4 | |
| parent | 829f42a7e7a49a7a27a456b783db821623475886 (diff) | |
| download | otp-6b2f463a695200a10038dbcc5f3a01c50b92da19.tar.gz otp-6b2f463a695200a10038dbcc5f3a01c50b92da19.tar.bz2 otp-6b2f463a695200a10038dbcc5f3a01c50b92da19.zip | |
Drop the redundant erlang-uncomment-region command
| -rw-r--r-- | lib/tools/emacs/erlang.el | 11 |
1 files changed, 2 insertions, 9 deletions
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. |