emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #927 from edwintorok/more-fixes

Browse source 
Fix some error path and typos spotted by `make compile`
This commit is contained in:
Henrik Lissner 2018-10-03 19:40:04 -04:00 • committed by GitHub
commit d8dbd0759c
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/core-lib.el
View file

@ -277,7 +277,7 @@ Body forms can access the hook's arguments through the let-bound variable
fill-column 80)" fill-column 80)"
(declare (indent 1)) (declare (indent 1))
(unless (= 0 (% (length rest) 2)) (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 `(add-hook! :append ,hooks
,@(let (forms) ,@(let (forms)
(while rest (while rest

2
modules/editor/format/autoload/settings.el
View file

@ -77,7 +77,7 @@
(cl-defun +format--set (name &key function modes unset) (cl-defun +format--set (name &key function modes unset)
(declare (indent defun)) (declare (indent defun))
(when (and unset (not (gethash name format-all-format-table))) (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) (puthash name function format-all-format-table)
(dolist (mode (doom-enlist modes)) (dolist (mode (doom-enlist modes))
(cl-destructuring-bind (m &optional probe) (cl-destructuring-bind (m &optional probe)

2
modules/lang/org/config.el
View file

@ -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 ;; Fix variable height org-level-N faces in the eldoc string
(defun +org*format-outline-path (orig-fn path &optional width prefix separator) (defun +org*format-outline-path (orig-fn path &optional width prefix separator)
(let ((result (funcall orig-fn path width prefix separator)) (let ((result (funcall orig-fn path width prefix separator))
(seperator (or separator "/"))) (separator (or separator "/")))
(string-join (string-join
(cl-loop for part (cl-loop for part
in (split-string (substring-no-properties result) separator) in (split-string (substring-no-properties result) separator)