Merge pull request #927 from edwintorok/more-fixes
Fix some error path and typos spotted by `make compile`
This commit is contained in:
commit
d8dbd0759c
3 changed files with 3 additions and 3 deletions
|
@ -277,7 +277,7 @@ Body forms can access the hook's arguments through the let-bound variable
|
|||
fill-column 80)"
|
||||
(declare (indent 1))
|
||||
(unless (= 0 (% (length rest) 2))
|
||||
(signal 'wrong-number-of-arguments (listp #'evenp (length rest))))
|
||||
(signal 'wrong-number-of-arguments (list #'evenp (length rest))))
|
||||
`(add-hook! :append ,hooks
|
||||
,@(let (forms)
|
||||
(while rest
|
||||
|
|
|
@ -77,7 +77,7 @@
|
|||
(cl-defun +format--set (name &key function modes unset)
|
||||
(declare (indent defun))
|
||||
(when (and unset (not (gethash name format-all-format-table)))
|
||||
(error "'%s' formatter does not exist to be unset"))
|
||||
(error "'%s' formatter does not exist to be unset" name))
|
||||
(puthash name function format-all-format-table)
|
||||
(dolist (mode (doom-enlist modes))
|
||||
(cl-destructuring-bind (m &optional probe)
|
||||
|
|
|
@ -391,7 +391,7 @@ conditions where a window's buffer hasn't changed at the time this hook is run."
|
|||
;; Fix variable height org-level-N faces in the eldoc string
|
||||
(defun +org*format-outline-path (orig-fn path &optional width prefix separator)
|
||||
(let ((result (funcall orig-fn path width prefix separator))
|
||||
(seperator (or separator "/")))
|
||||
(separator (or separator "/")))
|
||||
(string-join
|
||||
(cl-loop for part
|
||||
in (split-string (substring-no-properties result) separator)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue