Appease the byte-compiler

This commit is contained in:
Henrik Lissner 2018-07-30 12:10:11 +02:00
parent c935f3e4da
commit cbc59f9333
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 14 additions and 13 deletions

View file

@ -1,7 +1,7 @@
;;; lang/haskell/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(defun +haskell-repl-buffer ()
(defun +haskell-repl-buffer (arg)
"Returns the appropriate Haskell REPL buffer."
(if (featurep! +intero)
(intero-repl-buffer arg)
@ -11,5 +11,5 @@
(defun +haskell/repl (&optional arg)
"Opens a Haskell REPL."
(interactive "P")
(display-buffer (+haskell-repl-buffer)))
(display-buffer (+haskell-repl-buffer arg)))

View file

@ -18,7 +18,7 @@
(?t . "\\textcite[]{%l}"))
reftex-plug-into-AUCTeX t
reftex-toc-split-windows-fraction 0.3)
(unless +latex-bibtex-file
(when +latex-bibtex-file
(setq reftex-default-bibliography (list (expand-file-name +latex-bibtex-file))))
(map! :map reftex-mode-map
:localleader :n ";" 'reftex-toc)
@ -38,5 +38,5 @@
(define-key bibtex-mode-map (kbd "C-c \\") #'bibtex-fill-entry))
(after! bibtex-completion
(unless +latex-bibtex-file
(when +latex-bibtex-file
(setq bibtex-completion-bibliography (list (expand-file-name +latex-bibtex-file)))))

View file

@ -37,7 +37,7 @@ file isn't in `org-directory'."
(when (and (not (nth 2 args))
buffer-file-name
(file-in-directory-p buffer-file-name org-directory))
(cl-destructuring-bind (extension &optional subtreep pubdir) args
(cl-destructuring-bind (extension &optional subtreep _pubdir) args
(let ((dir (expand-file-name +org-export-dir org-directory)))
(unless (file-directory-p dir)
(make-directory dir t))