Skip to content

Commit c8dad40

Browse files
committed
Remove unused let-binding for point
Fixes: purescript-navigate-imports.el:101:12: Error: Unused lexical variable ‘point’ purescript-simple-indent.el:146:10: Error: Unused lexical variable ‘point’
1 parent d98ad00 commit c8dad40

File tree

2 files changed

+15
-17
lines changed

2 files changed

+15
-17
lines changed

purescript-navigate-imports.el

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -98,10 +98,9 @@
9898
(purescript-navigate-imports-after-imports-p) ;; This one just speeds it up.
9999
(purescript-navigate-imports-line)))
100100
(forward-line))
101-
(let ((point (point)))
102-
(if (purescript-navigate-imports-line)
103-
(point)
104-
nil))))
101+
(if (purescript-navigate-imports-line)
102+
(point)
103+
nil)))
105104

106105
(defun purescript-navigate-imports-line ()
107106
"Try to match the current line as a regexp."

purescript-simple-indent.el

Lines changed: 12 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -143,19 +143,18 @@ column, `tab-to-tab-stop' is done instead."
143143
(defun purescript-simple-indent-newline-same-col ()
144144
"Make a newline and go to the same column as the current line."
145145
(interactive)
146-
(let ((point (point)))
147-
(let ((start-end
148-
(save-excursion
149-
(let* ((start (line-beginning-position))
150-
(end (progn (goto-char start)
151-
(search-forward-regexp
152-
"[^ ]" (line-end-position) t 1))))
153-
(when end (cons start (1- end)))))))
154-
(if start-end
155-
(progn (newline)
156-
(insert (buffer-substring-no-properties
157-
(car start-end) (cdr start-end))))
158-
(newline)))))
146+
(let ((start-end
147+
(save-excursion
148+
(let* ((start (line-beginning-position))
149+
(end (progn (goto-char start)
150+
(search-forward-regexp
151+
"[^ ]" (line-end-position) t 1))))
152+
(when end (cons start (1- end)))))))
153+
(if start-end
154+
(progn (newline)
155+
(insert (buffer-substring-no-properties
156+
(car start-end) (cdr start-end))))
157+
(newline))))
159158

160159
(defun purescript-simple-indent-newline-indent ()
161160
"Make a newline on the current column and indent on step."

0 commit comments

Comments
 (0)