branch: elpa/idris-mode
commit 4734d40ee66003e8fe33d0ab7c2a7b32c9d6ecc5
Author: Marek L <nospam.ke...@gmail.com>
Commit: Marek L <nospam.ke...@gmail.com>
Remove unused variable
---
idris-simple-indent.el | 25 ++++++++++++-------------
1 file changed, 12 insertions(+), 13 deletions(-)
diff --git a/idris-simple-indent.el b/idris-simple-indent.el
index e39d6a2805a..c3704dd2d3c 100644
--- a/idris-simple-indent.el
+++ b/idris-simple-indent.el
@@ -187,19 +187,18 @@ column, `tab-to-tab-stop' is done instead."
(defun idris-simple-indent-newline-same-col ()
"Make a newline and go to the same column as the current line."
(interactive)
- (let ((point (point)))
- (let ((start-end
- (save-excursion
- (let* ((start (line-beginning-position))
- (end (progn (goto-char start)
- (search-forward-regexp
- "[^ ]" (line-end-position) t 1))))
- (when end (cons start (1- end)))))))
- (if start-end
- (progn (newline)
- (insert (buffer-substring-no-properties
- (car start-end) (cdr start-end))))
- (newline)))))
+ (let ((start-end
+ (save-excursion
+ (let* ((start (line-beginning-position))
+ (end (progn (goto-char start)
+ (search-forward-regexp
+ "[^ ]" (line-end-position) t 1))))
+ (when end (cons start (1- end)))))))
+ (if start-end
+ (progn (newline)
+ (insert (buffer-substring-no-properties
+ (car start-end) (cdr start-end))))
+ (newline))))
;;;###autoload
