diff --git a/c.el b/c.el index a063834..11f40c1 100644 --- a/c.el +++ b/c.el @@ -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." diff --git a/compilation.el b/compilation.el index a72954a..227c790 100644 --- a/compilation.el +++ b/compilation.el @@ -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) diff --git a/emacs.el b/emacs.el index fc75a2a..b9725b8 100644 --- a/emacs.el +++ b/emacs.el @@ -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 )) @@ -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. @@ -213,7 +213,7 @@ ;;; Custom commands: ;;; DWIM and 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")