haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Prefix unused argument with _

This commit is contained in:
Rudi Grinberg 2017-08-18 10:50:37 -04:00
parent 42953e4f6a
commit fe8b2b8aae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/top/utop.el
View File

@ -400,7 +400,7 @@ it is started."
('copy "You cannot edit the buffer while waiting for copy of last input") ('copy "You cannot edit the buffer while waiting for copy of last input")
('hist "You cannot edit the buffer while waiting for history")))) ('hist "You cannot edit the buffer while waiting for history"))))
(defun utop-before-change (start stop) (defun utop-before-change (_start stop)
(unless utop-inhibit-check (unless utop-inhibit-check
(cond (cond
((not (eq utop-state 'edit)) ((not (eq utop-state 'edit))
@ -626,7 +626,7 @@ it is started."
(minibuffer-hide-completions)) (minibuffer-hide-completions))
(setq utop-completion nil))))) (setq utop-completion nil)))))
(defun utop-process-output (process output) (defun utop-process-output (_process output)
"Process the output of utop" "Process the output of utop"
(with-current-buffer utop-buffer-name (with-current-buffer utop-buffer-name
(utop-perform (utop-perform
@ -871,7 +871,7 @@ defaults to 0."
(unless (eq utop-state 'done) (unless (eq utop-state 'done)
(utop-send-string (format "exit:%d\n" (or exit-code 0)))))) (utop-send-string (format "exit:%d\n" (or exit-code 0))))))
(defun utop-sentinel (process msg) (defun utop-sentinel (_process _msg)
"Callback for process' state change." "Callback for process' state change."
(let ((buffer (get-buffer utop-buffer-name))) (let ((buffer (get-buffer utop-buffer-name)))
;; Do nothing if the buffer does not exist anymore ;; Do nothing if the buffer does not exist anymore
@ -948,7 +948,7 @@ defaults to 0."
(setq packages (cdr packages)))) (setq packages (cdr packages))))
(setq tabulated-list-entries (nreverse tabulated-list-entries))) (setq tabulated-list-entries (nreverse tabulated-list-entries)))
(defun utop-package-printer (id cols) (defun utop-package-printer (_id cols)
"Print one findlib package entry." "Print one findlib package entry."
(let ((width (cadr (elt tabulated-list-format 0)))) (let ((width (cadr (elt tabulated-list-format 0))))
(insert-text-button (elt cols 0) (insert-text-button (elt cols 0)