Skip to content

Commit

Permalink
Address unused lexical warnings from byte compiler.
Browse files Browse the repository at this point in the history
  • Loading branch information
chaosemer committed Dec 9, 2023
1 parent 0edd692 commit 922b3fc
Show file tree
Hide file tree
Showing 3 changed files with 8 additions and 8 deletions.
2 changes: 1 addition & 1 deletion c.el
Original file line number Diff line number Diff line change
Expand Up @@ -64,7 +64,7 @@ This is the value of `next-error-function' in CScope buffers."
(goto-char (point-min))))

(let ((do-next (> n 0)))
(dotimes (i (abs n))
(dotimes (_ (abs n))
(cscope-buffer-search t do-next)))))
(defadvice cscope-call (before my-cscope-call)
"Wrapper to make sure `next-error-function' is set."
Expand Down
4 changes: 2 additions & 2 deletions compilation.el
Original file line number Diff line number Diff line change
Expand Up @@ -4,8 +4,8 @@
(hook-mode occur-mode-hook
next-error-follow-minor-mode)

(defun road-runner (&rest args)
(defun road-runner (&rest _)
"BEEP! BEEP!"
(dotimes (i 2)
(dotimes (_ 2)
(beep) (sleep-for 0.2)))
(add-hook 'compilation-finish-functions 'road-runner)
10 changes: 5 additions & 5 deletions emacs.el
Original file line number Diff line number Diff line change
Expand Up @@ -5,21 +5,21 @@
;; If this triggers, make sure to install the `bar-cursor' package
;; from melpa unstable.
(display-warning 'emacs "SETUP ISSUE: bar-cursor package is not installed.")
(defun bar-cursor-mode (&optional arg)
(defun bar-cursor-mode (&optional _)
;; Do nothing -- stub
))
(unless (fboundp 'global-form-feed-st-mode)
;; If this triggers, make sure to install the `form-feed-st' package
;; from melpa unstable.
(display-warning 'emacs "SETUP ISSUE: form-feed-st package is not installed.")
(defun global-form-feed-st-mode (&optional arg)
(defun global-form-feed-st-mode (&optional _)
;; Do nothing -- stub
))
(unless (fboundp 'global-window-tool-bar-mode)
;; If this triggers, make sure to install the `window-tool-bar'
;; package from GitHub.
(display-warning 'emacs "SETUP ISSUE: window-tool-bar package is not installed.")
(defun global-window-tool-bar-mode (&optional arg)
(defun global-window-tool-bar-mode (&optional _)
;; Do nothing -- stub
))

Expand Down Expand Up @@ -92,7 +92,7 @@
(setq xterm-extra-capabilities '(setSelection))

;; Use the default Windows browser.
(setq browse-url-browser-function (lambda (url &rest args)
(setq browse-url-browser-function (lambda (url &rest _)
(call-process "explorer.exe" nil nil nil url)))))

;; Make Emacs display similar to modern editors.
Expand Down Expand Up @@ -213,7 +213,7 @@
;;; Custom commands:

;;; DWIM <home> and <end> TODO(package)
(defun beginning-of-line-dwim (&optional n)
(defun beginning-of-line-dwim (&optional _)
"Move point to the first non-whitespace character or the beginning of line."
(interactive "^p")

Expand Down

0 comments on commit 922b3fc

Please sign in to comment.